使用导航表单时在 DoCmd.SearchForRecord 中引用表单 - 访问

Question

我有一个Mainform 和textbox 和button 来搜索subform 记录 当我直接打开Mainform 并搜索欲望记录时它工作正常 但是当我以Navigaition 形式打开我的表单时，它给了我错误。

Download My Access Project 我试过的。

下面是我的代码：

Private Sub cmdSearch_Click()
    Dim MainFK As Long
    MainFK = DLookup("MainformID", "Subform", "SubformID =" & Me.txtSearch)
    Debug.Print MainFK    
    DoCmd.SearchForRecord acDataForm, "Mainform", acFirst, "MainformID=" &MainFK
End Sub

查看屏幕截图：

Answer 1

我认为DoCmd.SearchForRecord 在子表单上很棘手。试试这个：

Private Sub cmdSearch_Click()

    Dim MainFK As Long
    Dim rs As DAO.Recordset
    Dim WhereStr As String

    MainFK = DLookup("MainformID", "Subform", "SubformID =" & Me.txtSearch)

    WhereStr = "MainformID=" & MainFK

    With Me.Form

        Set rs = .RecordsetClone
        rs.FindFirst WhereStr

        If _
            rs.NoMatch _
        Then

            MsgBox "Subform record not match to mainform record"

        Else

            .Bookmark = rs.Bookmark

        End If

    End With

End Sub

这是您的文件返回：https://drive.google.com/file/d/0B-J5B7nFljZiLVJ1dEtoTVQwcXc/view?usp=sharing