无需VBA或遍历选中项，能否用Access多选列表框过滤记录？

没有你期望的那种无需编写代码的内置简便方法。

Access的查询引擎无法直接将多选列表框的所有选中项识别为IN子句可接收的集合——你尝试的两种写法只会返回列表框的默认选中项（通常是第一个选中值），而非全部选中项。

不过可以用更简洁的方式替代繁琐的全量遍历代码：编写一个可复用的VBA自定义函数，提取多选列表框的选中项，再在查询中调用该函数。

步骤1：添加VBA自定义函数 #

打开VBA编辑器，在对应表单的模块中添加以下函数：

Function GetSelectedRegions() As String
    Dim strItems As String
    Dim i As Integer
    With Forms!frmSearchForm!lstRegionFilter
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                '将选中项用引号包裹并拼接
                strItems = strItems & "," & Chr(34) & .Column(0, i) & Chr(34)
            End If
        Next i
    End With
    '移除开头多余的逗号
    GetSelectedRegions = Mid(strItems, 2)
End Function

步骤2：在查询中调用函数 #

修改查询语句，通过函数获取选中项集合实现筛选：

SELECT 
    [tblSalespeople].[SalespersonName] AS [Salesperson Name],
    [tblSalespeople].[Region] AS [Region]
FROM tblSalespeople
WHERE [tblSalespeople].[Region] IN (Eval(GetSelectedRegions()));

或者用InStr实现更兼容的筛选（避免空值或特殊字符问题）：

SELECT 
    [tblSalespeople].[SalespersonName] AS [Salesperson Name],
    [tblSalespeople].[Region] AS [Region]
FROM tblSalespeople
WHERE InStr("," & GetSelectedRegions() & ",", "," & [Region] & ",") > 0;

这种方式只需要编写一次函数，后续可在多个查询或表单中复用，比每次手动遍历选中项要简洁得多。

内容的提问来源于stack exchange，提问作者ge97aa