带有未绑定列表框的 MS Access 搜索拆分表单

Question

我是 MS 访问的新手，正在努力想出正确的代码行来启用多参数搜索表单。 我有一个从 3 个表收集信息的查询。 此查询中的两个字段是级联组合框和列表框。 列表框从组合框更新（通过重新查询）。 对于组合框中的每个值，列表框中有 3-5 个值。 我尝试设置一个搜索表单（带电子表格的拆分表单），其中未绑定组合框和列表框将查找在列表框中选择的所有值，并在拆分表单的电子表格中显示生成的值池。 组合列表框和表单可以正常显示所有初始值，并且在列表框中仅选择一个值时也可以正常工作。 但是，当在列表框中选择超过 1 个值时，我收到一条消息

查询表达式 '(GistID = (4,9))' 中的语法错误（逗号）

或类似的取决于 GistName ID#。

此表单的代码：

Private Sub cmdSearch_Click()
    Dim varItem as Variant
    Dim strSearch As String
    Dim Task as String

    For Each varItem In Me!listbGist.ItemsSelected
        strSearch=strSearch & "," & Me.listbGist.ItemData(varItem)
    Next varItem
    If Len(strSearch)=0 Then
        Task="select * From qryScreening"
    Else
        strSearch=Right(strSearch, Len(strSearch)-1)
        Task="select * from qryScreening where (GistID=("& strSearch & "))"
    End if
    DoCmD. ApplyFilter Task
End Sub

代码生成一个字符串，X，X，X 并且 Len 函数删除第一个逗号，正如我通过 MsgBox(strSearch) 了解到的那样，但是如果在列表框中选择了超过 1 个值，则过滤器任务不会运行。 您能否建议对此代码现在不起作用的补救措施。

Answer 1

您需要使用 SQL IN或构建OR语句。 IN会更具可读性。

像这样：

=需要像这样select * from [qryScreening] where [GistID] in (1,2,3,4,5)

此外，可能会更好地阅读以检查所选项目的数量而不是依赖字符串长度。