在MS Access表单

Question

＆＃34;查找和替换＆＃34;我的按钮事件运行后，对话框不断出现。为什么以及如何阻止它？

Private Sub btn_Find_Click()
    Dim query_string As String

    'MsgBox (Me.InventoryDetailsID)

    query_string = "SELECT " & _
               "tbl_Inventory_Header.InventoryHeaderID, " & _
               "tbl_Inventory_Header.InventoryTitle, " & _
               "tbl_Inventory_Header.Author, " & _
               "tbl_Lookup_MediaTypes.MediaTypeDescription, " & _
               "tbl_Inventory_Details.ShelfNumber, " & _
               "tbl_Lookup_Vendors.VendorName, " & _
               "tbl_Inventory_Header.Year_Publish_Produced, " & _
               "tbl_Inventory_Header.InventoryDescription " & _
               "FROM (((tbl_Inventory_Header " & _
               "INNER JOIN tbl_Inventory_Details ON tbl_Inventory_Details.InventoryHeaderID = tbl_Inventory_Header.InventoryHeaderID) " & _
               "INNER JOIN tbl_Lookup_Vendors ON tbl_Lookup_Vendors.VendorID = tbl_Inventory_Header.VendorID) " & _
               "INNER JOIN tbl_Lookup_MediaTypes ON tbl_Lookup_MediaTypes.MediaTypeID = tbl_Inventory_Header.MediaTypeID) " & _
               "WHERE tbl_Inventory_Details.InventoryDetailsID LIKE '" & Me.InventoryDetailsID & "';"

    Me.Controls!test.Value = query_string

    'MsgBox ("Querying for record data")
    CurrentDb.QueryDefs("qry_Inventory_Header_ISBN").SQL = query_string

    Dim recordSet As DAO.recordSet
    Set recordSet = CurrentDb.OpenRecordset("qry_Inventory_Header_ISBN")

    If Not recordSet.RecordCount > 0 Then
        MsgBox ("No record found for barcode " & Me.Controls!InventoryDetailsID)
        GoTo Exit_btn_SearchByHeaderId_Click
    Else
        'MsgBox ("record found")
    End If

    'MsgBox (recordSet!InventoryTitle)

    'MsgBox ("filling controls")
    Me.Controls!InventoryTitle.Value = recordSet!InventoryTitle
    Me.Controls!Author = recordSet!Author
    Me.Controls!MediaTypeDescription = recordSet!MediaTypeDescription
    Me.Controls!VendorName = recordSet!VendorName
    Me.Controls!Year_Publish_Produced = recordSet!Year_Publish_Produced
    Me.Controls!InventoryDescription = recordSet!InventoryDescription
    Me.Controls!ShelfNumber = recordSet!ShelfNumber

    Me.Controls!ISBN.SetFocus

    On Error GoTo Err_btn_SearchByHeaderId_Click
        'MsgBox ("got error")
        Screen.PreviousControl.SetFocus
        DoCmd.RunCommand acCmdFind

Exit_btn_SearchByHeaderId_Click:
        'MsgBox ("exit")
        Exit Sub

Err_btn_SearchByHeaderId_Click:
        MsgBox Err.Description
        Resume Exit_btn_SearchByHeaderId_Click
End Sub

Answer 1

“查找”对话框在错误处理程序之前的此命令DoCmd.RunCommand acCmdFind处导出。

根据代码，此查找命令将始终运行，因为没有If Then，Do While Loop，For Next或Goto包围它。

如果此查找命令应该是错误句柄的一部分，请考虑将其删除，重新定位或在其前面放置Exit Sub。