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

Posted 2023-05-07

【中文标题】使用导航表单时在 DoCmd.SearchForRecord 中引用表单 - 访问

【英文标题】：Referancing form in DoCmd.SearchForRecord when using Navigation form - Access

【发布时间】：2015-05-02 10:40:58

【问题描述】：

我有一个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

查看屏幕截图：

【参考方案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

【讨论】：

对我来说没问题。这是您的文件：drive.google.com/file/d/0B-J5B7nFljZiLVJ1dEtoTVQwcXc/…

非常感谢 matt hall 帮助我，现在一切正常，再次感谢