Ms access 在列表框中查询多个值

这是我的情况。还没有找到任何可靠的消息来源。 我需要从表单中的列表框中查询多个选项。 Qry是qryMetrics， 表是度量标准， 字段是工作描述， 列表框为lstJobDesc

---

我有一个显示职位描述列表的列表框和一个运行查询的按钮。我可以选择一个职务说明，然后运行查询并返回我选择的1个职务说明。我需要能够让用户选择多个值并返回所选值的查询。我知道，如果未选择任何选项，则Multi-Select将返回Null，但如何在返回从表单中选择的多个值的同时扩展或简化工作，并在未选择任何选项时返回all？

显示可使用一个选项的查询。您可以添加一个VBA循环来使用IN子句构建查询以进行多项选择，但是您没有任何示例代码或SQL向我们展示？下面是它的链接。我不确定我能提供什么。创建列表时没有太多编码。正如您所见，qryWhseMetrics有一个工作描述列表。我希望能够选择多个描述并在qry中返回它们的值。你的问题。不是您的整个数据库Text=”“For i=0 To Me.lstJobDesc.ListCount-1 If Me.lstJobDesc.Selected（i）然后Text=Text&Me.lstJobDesc.ItemData（i）&vbNewLine End If Next i If Text=“”，然后For i=0 To Me.lstJobDesc.ListCount-1 Text=Text&Me.lstJobDesc.ItemData（i）&vbNewLine下一步我结束如果MsgBox text感谢您的回复。我正在将其添加到我的代码中，但什么都没有发生。我想知道我是否把这件事弄错了。任何进一步的输入都很好。试着调试代码，并让我知道问题出在哪里。

'''Listbox - Multiselect property=Simple
Private Sub cmdOK_Click()
    Text = ""

    For i = 0 To Me.lstJobDesc.ListCount - 1
        If Me.lstJobDesc.Selected(i) Then
            Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine
        End If
    Next i

    If Text = "" Then
        For i = 0 To Me.lstJobDesc.ListCount - 1
            Text = Text & Me.lstJobDesc.ItemData(i) & vbNewLine
        Next i
    End If
    MsgBox Text
End Sub