访问：转到记录找不到正确的记录

Question

您可以看到的第一个表单表是翻译查询中的数据。

单击表左侧的按钮，代码如下；

Private Sub btnProductInfo_Click()
On Error GoTo Err_mySUB
'---------------------'

        Dim LintelID As String

        LintelID = DLookup("ID", "ImportProductAndTypes", "No =" & ItemNo)

         'DoCmd.OpenForm "MAINProductInformation", , , "NoCode =" & Chr(34) & Me.ItemNo & Chr(34), acFormEdit

'---------------------'
Exit_mySUB:
    Exit Sub
Err_mySUB:
    MsgBox Err.Number & ": " & Err.Description & " (" & Erl & ")"
    Resume Exit_mySUB
End Sub

我首先使用DoCmd.OpenForm函数，该函数获取查询的ItemNo（项目代码）列的文本值，然后假定在使用该代码的记录上打开形式“ MAINProductInformation”引用。

这没有按预期方式工作，因此我决定在表“ ImportProductAndTypes”中添加一个ID列，在该表中需要引用被打开的表单才能进入记录。我发现的是，无论出于何种原因，即使表中存在值，也无法在表中找到该项目。

请帮助，因为我在这里很茫然！！

Answer 1

也要更改：

 LintelID = DLookup("ID", "ImportProductAndTypes", "No ='" & ItemNo & "'")

似乎您也从未在代码中设置ItemNo。这个变量设置在某个地方吗？