2

我有一个列表框，其中显示了我的整个 Access 数据库记录，并在附加列中进行了简要说明。第一列 (0) 具有记录标识符 (PART NUMBER)，它是表中的主键。我试图让双击事件打开“SETUP SHEET DATA ENTRY”表单到列表框中的特定行。零件编号被分类为文本而不是数字。我不知道问题是什么，任何建议都会有所帮助。

列表框名称 = Listallpart

表名中的主键 = PART NUMBER

表名 = 设置表历史

表格名称 = 设置表数据输入

Private Sub Listallpart_DblClick(Cancel As Integer)
    DoCmd.OpenForm "SETUP SHEET DATA ENTRY", , , "[PART NUMBER] = " & Me.Listallpart.Column(0).Value
End Sub

我还有一个非常相似的问题......

Private Sub Listallpart_DblClick(Cancel As Integer)
Dim strpn As String
Dim strco As String

strpn = Me.Listallpart.Column(0)
strco = Me.Listallpart.Column(1)

DoCmd.OpenForm "SETUP SHEET DATA ENTRY", , , ("[PART NUMBER] = '" & Me.Listallpart.Column(0) & "'" And "[CURRENTOPERATION] ='" & Me.Listallpart.Column(1) & "'")

End Sub

上面的代码是对代码的另一个修改。每条记录都有这 2 个必需的唯一字段。我收到“运行时错误”13“不匹配类型”。我在开头添加了两个变量以确保值正确。我插入了断点并确认了这些值。数据是数字的。

4

2 回答 2

3

由于[PART NUMBER]是文本字段，因此请在OpenForm语句中的列表框值周围添加引号。

DoCmd.OpenForm "SETUP SHEET DATA ENTRY", , , "[PART NUMBER] = '" & Me.Listallpart.Column(0).Value & "'"
于 2013-09-21T22:33:27.240 回答
0

您的第二个问题与您的第一个问题相反；看到 [CURRENTOPERATION] 是数字，你不需要在你的OpenForm

DoCmd.OpenForm "SETUP SHEET DATA ENTRY", , , ("[PART NUMBER] = '" & Me.Listallpart.Column(0) & "'" And "[CURRENTOPERATION] =" & Me.Listallpart.Column(1))
于 2013-09-23T00:29:38.420 回答