Access查询中如何引用窗体多选列表框的选中项

基础结构说明 #

现有Access数据库包含2张业务表、1个业务查询：

• tab_Projects（项目表）：存储全量项目记录，字段如下：
  • ID：项目唯一标识
  • Title：项目标题
  • Status：项目状态ID，关联状态字典表
• tab_Status（状态字典表）：存储固定状态枚举值，字段如下：
  • ID：状态唯一标识
  • Status：状态文本描述
    表内固定数据如下：

基于Access Runtime搭建用户端应用时，创建了筛选窗体frm_Filter_Projects，窗体上放置支持多选的列表框控件listStatus，控件数据源绑定tab_Status表，供用户勾选多个状态值筛选项目。

问题现象 #

初始编写的筛选SQL尝试直接引用列表框ItemsSelected属性作为IN子句参数，代码如下：

SELECT 
   tbl_Projekte.ID, 
   tbl_Projekte.Titel, 
   tbl_Projekte.Status
FROM tab_Status 
INNER JOIN tbl_Projekte ON tab_Status.ID = tbl_Projekte.Status
WHERE tab_Status.ID IN ([Forms]![frm_Filter_Projects]![listStatus].[itemsselected]);

该写法运行无正确结果，但将条件替换为硬编码WHERE tab_Status.ID IN (1,3)时，查询可正常返回符合状态要求的项目记录。

原因说明 #

Access多选列表框的ItemsSelected属性返回的是选中行的索引集合对象，不是逗号分隔的数值字符串，无法被SQL的IN子句直接识别解析，因此直接引用该属性的写法无法生效。

实现方案 #

方案1：事件触发动态拼接SQL（适配Access Runtime，稳定性最高） #

该方案无需额外公共模块，在窗体代码内即可完成，适合Runtime环境部署：

1. 先配置列表框属性：将listStatus的绑定列设置为第1列（对应tab_Status.ID字段），设置列宽为0;2cm（隐藏ID列，仅对用户显示状态文本）。
2. 给列表框添加AfterUpdate事件，写入如下VBA代码，遍历选中项拼接IN条件，动态赋值给结果展示控件的数据源：

Private Sub listStatus_AfterUpdate()
    Dim varItem As Variant
    Dim strIn As String
    Dim strSQL As String
    
    ' 遍历所有选中行，拼接ID字符串
    For Each varItem In Me.listStatus.ItemsSelected
        strIn = strIn & Me.listStatus.ItemData(varItem) & ","
    Next
    
    ' 处理无选中项的场景，可按需调整为返回空结果
    If Len(strIn) = 0 Then
        strSQL = "SELECT tab_Projects.ID, tab_Projects.Title, tab_Projects.Status FROM tab_Projects;"
    Else
        ' 移除末尾多余的逗号
        strIn = Left(strIn, Len(strIn) - 1)
        strSQL = "SELECT tab_Projects.ID, tab_Projects.Title, tab_Projects.Status " & _
                 "FROM tab_Status INNER JOIN tab_Projects ON tab_Status.ID = tab_Projects.Status " & _
                 "WHERE tab_Status.ID IN (" & strIn & ");"
    End If
    
    ' 将拼接完成的SQL赋值给结果展示子窗体/列表框，刷新显示
    Me.subProjectResult.Form.RecordSource = strSQL
    Me.subProjectResult.Requery
End Sub

注意代码中的表名、结果子控件名需要和实际开发的对象名称保持一致。

方案2：公共函数传参，保留静态查询结构 #

如果需要使用固定存储查询、不动态修改数据源，可以通过公共函数返回选中项字符串，在查询内调用：

1. 在数据库标准模块中编写如下公共函数：

Public Function GetSelectedStatusIDs() As String
    Dim ctl As ListBox
    Dim varItem As Variant
    Dim strResult As String
    
    ' 引用筛选窗体上的列表框控件
    Set ctl = Forms!frm_Filter_Projects!listStatus
    
    ' 遍历选中项拼接ID
    For Each varItem In ctl.ItemsSelected
        strResult = strResult & ctl.ItemData(varItem) & ","
    Next
    
    ' 无选中项时默认返回全部状态ID，可按需修改为返回空值
    If Len(strResult) = 0 Then
        GetSelectedStatusIDs = "0,1,2,3"
    Else
        GetSelectedStatusIDs = Left(strResult, Len(strResult) - 1)
    End If
End Function

2. 修改原查询的WHERE条件，通过字符串匹配实现筛选，避免IN子句无法解析动态值的问题：

SELECT 
   tab_Projects.ID, 
   tab_Projects.Title, 
   tab_Projects.Status
FROM tab_Status 
INNER JOIN tab_Projects ON tab_Status.ID = tab_Projects.Status
WHERE InStr(',' & GetSelectedStatusIDs() & ',', ',' & tab_Status.ID & ',') > 0;

注意：该方案需要确保筛选窗体frm_Filter_Projects处于打开状态时运行查询，否则函数无法正确获取控件值，会触发报错。

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