使用导航表单 - Access时，在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

参见屏幕截图：