MS Access中列表框ItemsSelected筛选报表失效问题求助

• 制作了包含3个列表框的Access窗体，需要基于列表框选中项实现报表筛选功能。
• 最初将组合框的查询筛选逻辑直接套用到列表框，无法正常生效，原组合框筛选条件如下：

Like [Forms]![Statusfrm]![FieldCombo] & "*"

• 后续尝试编写VBA按钮点击事件实现筛选，但即使只选中单个选项，也无法匹配显示对应记录，原代码如下：

Private Sub Command26_Click()
   On Error GoTo ControlError
   Set ctl = Me.Combo22 'frm!Combo22
   Set ctl2 = Me.Combo24
   
   'Set rpt = Foms!rpt
   
   If Me.Combo22.ListIndex <> -1 Then  'And Me.Combo24.ListIndex <> -1
      miFiltro = "id in("
      For Each varItm In ctl.ItemsSelected
       'miFiltro = miFiltro & "'" & varItm & "',"
       miFiltro = miFiltro & varItm & ","
       'Lista27.AddItem varItm
     
       'ctl.ItemData (varItm)
    
      Next varItm
   
      miFiltro = Mid(miFiltro, 1, Len(miFiltro) - 1)
      miFiltro = miFiltro & ")"
      'MsgBox (miFiltro)
      If miFiltro <> "" Then
       DoCmd.OpenReport "Rpt", acViewPreview, , miFiltro
       miFiltro = ""
      End If
      
     'Aplicamos el filtro al formulario
     'Me.Filter = miFiltro
     'Me.FilterOn = True
   Else
     MsgBox ("Please select data")
     Me.Combo22.SetFocus
   End If
     
   'DoCmd.OpenReport "Rpt", acPreview, , Me.Filter
   

ControlError:
    MsgBox "Encontré el error" & Err.number & " " & Err.Description
     
End Sub

1. 组合框直接引用控件名即可返回单个选中值，而多选列表框直接引用控件无法返回所有选中值的集合，原Like筛选逻辑仅适用于单选的组合框，完全不匹配多选列表框的使用场景。
2. VBA代码遍历ItemsSelected集合时，拿到的varItm是选中项的行索引，不是绑定列的实际存储值，注释掉的ctl.ItemData(varItm)才是获取选中项实际值的正确写法，直接拼接索引会导致匹配值完全错误。
3. 代码未区分筛选字段类型：如果id是文本类型，值两侧必须加单引号，否则会触发SQL语法错误；如果值本身包含单引号，还需要做转义处理避免语法报错。
4. 错误处理逻辑缺失Exit Sub，代码正常执行完成后也会跳转到错误提示块，弹出无意义的报错信息。
5. 仅实现了单个列表框的筛选逻辑，未处理多列表框同时选中时的条件拼接。

使用VBA动态拼接SQL筛选字符串是实现多列表框筛选报表的可行方案，Access查询设计器无法直接解析多选列表框的选中值集合，修正后的可直接复用代码如下：

Private Sub Command26_Click()
    On Error GoTo ControlError
    Dim ctl As Control, ctl2 As Control, ctl3 As Control
    Dim varItm As Variant
    Dim miFiltro As String, strIn As String
    
    ' 绑定3个列表框控件，按需替换控件名
    Set ctl = Me.Combo22
    Set ctl2 = Me.Combo24
    Set ctl3 = Me.第三个列表框的控件名 ' 替换为实际的第三个列表框名称
    
    ' 校验至少有一个筛选条件选中，可按需调整校验规则
    If ctl.ItemsSelected.Count = 0 And ctl2.ItemsSelected.Count = 0 And ctl3.ItemsSelected.Count = 0 Then
        MsgBox "请先选择筛选数据"
        ctl.SetFocus
        GoTo ExitSub
    End If
    
    miFiltro = ""
    
    ' 拼接第一个列表框（id字段）的筛选条件
    If ctl.ItemsSelected.Count > 0 Then
        strIn = "id In("
        For Each varItm In ctl.ItemsSelected
            ' === 数字类型id启用下面这行，注释掉文本类型的行 ===
            strIn = strIn & ctl.ItemData(varItm) & ","
            ' === 文本类型id启用下面这行，注释掉数字类型的行 ===
            ' strIn = strIn & "'" & Replace(ctl.ItemData(varItm), "'", "''") & "',"
        Next
        strIn = Left(strIn, Len(strIn) - 1) & ")"
        miFiltro = strIn
    End If
    
    ' 拼接第二个列表框的筛选条件，将Field2替换为实际的筛选字段名
    If ctl2.ItemsSelected.Count > 0 Then
        strIn = "Field2 In("
        For Each varItm In ctl2.ItemsSelected
            ' 数字类型用这行
            strIn = strIn & ctl2.ItemData(varItm) & ","
            ' 文本类型用这行
            ' strIn = strIn & "'" & Replace(ctl2.ItemData(varItm), "'", "''") & "',"
        Next
        strIn = Left(strIn, Len(strIn) - 1) & ")"
        miFiltro = miFiltro & IIf(miFiltro <> "", " And ", "") & strIn
    End If
    
    ' 拼接第三个列表框的筛选条件，将Field3替换为实际的筛选字段名
    If ctl3.ItemsSelected.Count > 0 Then
        strIn = "Field3 In("
        For Each varItm In ctl3.ItemsSelected
            ' 数字类型用这行
            strIn = strIn & ctl3.ItemData(varItm) & ","
            ' 文本类型用这行
            ' strIn = strIn & "'" & Replace(ctl3.ItemData(varItm), "'", "''") & "',"
        Next
        strIn = Left(strIn, Len(strIn) - 1) & ")"
        miFiltro = miFiltro & IIf(miFiltro <> "", " And ", "") & strIn
    End If
    
    ' 打开报表并应用筛选
    DoCmd.OpenReport "Rpt", acViewPreview, , miFiltro

ExitSub:
    ' 释放控件对象
    Set ctl = Nothing
    Set ctl2 = Nothing
    Set ctl3 = Nothing
    Exit Sub

ControlError:
    MsgBox "运行出错，错误号：" & Err.Number & "，错误信息：" & Err.Description
    Resume ExitSub
End Sub

注意事项 #

• 代码中已经预留了3个列表框的处理逻辑，只需要替换对应控件名、字段名，根据字段类型选择启用数字/文本对应的拼接行即可。
• 多条件之间默认用And连接（即同时满足所有选中的筛选条件），如果需要实现“满足任意一个条件即可”的逻辑，把And替换为Or即可。
• 如果需要支持模糊匹配而非精确匹配，把In(...)结构替换为Like '*值*'的Or拼接结构即可，但多选场景下精确匹配用In的执行效率远高于多个Like条件拼接。

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