在VBA访问中，如何在用户单击列表框中的项目后将列表项目传递给其他表单？

Question

我有两种形式，frmSearch和frmDisplay。 frmDisplay是用于显示记录的弹出表单。

在frmSearch表单上，我有：

• 一个名为SearchResults的列表框
• 名为Search的文本框

问题是frmDisplay表单启动，但不显示所选记录。请在下面查看我的代码：

Private Sub Search_Change()
    Dim where As String

    Const SQLResults As String = "SELECT itemNumber, itemName FROM tblMain "
    <whereclause> ORDER BY ItemName;"

    If Me.Search.Text <> "" Then
        where = "WHERE itemName LIKE '*" & Me.Search.Text & "*' "
    End If

    Me.SearchResults.RowSource = Replace(SQLResults, "<whereclause>", where)

End Sub

Private Sub SearchResults_Click()

    Dim searchCriteria As String

    searchCriteria = "[itemNumber]='" & Me![SearchResults].Value & "'"

    DoCmd.OpenForm "frmDisplay", acNormal, , searchCriteria
    DoCmd.Close acForm, "frmSearch"

End Sub