基于两个组合框选择过滤表单的问题求助

我来帮你排查下代码失效的原因，然后给出可行的解决方案！

问题根源 #

你当前的代码直接把两个组合框的内容拼接成Filter值，这完全不符合Access过滤条件的语法要求——Access的Filter需要的是合法的SQL WHERE子句片段（比如[产品类别] = '电子产品' AND [库存数量] > 10），而直接拼接Me.Combo19 & Me.Combo21只会生成无意义的字符串，自然无法起到过滤作用。

修正后的代码实现 #

下面是调整后的Check34_AfterUpdate事件代码，它会根据两个组合框的选择动态构建合法的过滤条件，同时处理其中一个或两个都未选择的场景：

Private Sub Check34_AfterUpdate()
    Dim filterCondition As String
    
    ' 初始化过滤条件为空字符串
    filterCondition = ""
    
    ' 处理Combo19的过滤规则（替换成你实际的字段名！）
    If Not IsNull(Me.Combo19) Then
        ' 示例：假设Combo19对应数据源中的[分类名称]字段
        filterCondition = "[分类名称] = '" & Me.Combo19 & "'"
    End If
    
    ' 处理Combo21的过滤规则，注意多条件时用AND连接
    If Not IsNull(Me.Combo21) Then
        If filterCondition <> "" Then
            filterCondition = filterCondition & " AND "
        End If
        ' 示例：假设Combo21对应数据源中的[供应商名称]字段
        filterCondition = filterCondition & "[供应商名称] = '" & Me.Combo21 & "'"
    End If
    
    ' 应用过滤逻辑
    If filterCondition <> "" Then
        Me.Filter = filterCondition
        Me.FilterOn = True
    Else
        ' 如果两个组合框都未选择，关闭过滤
        Me.FilterOn = False
    End If
    
    Me.Refresh
End Sub

关键注意事项 #

• 替换实际字段名：一定要把代码中的[分类名称]和[供应商名称]换成你表单数据源中与两个组合框对应的真实字段名。
• 处理数据类型：如果组合框绑定的是数字类型字段（比如ID编号），要去掉值两边的单引号，例如：[分类ID] = " & Me.Combo19（数字不需要引号包裹）。
• 空值处理：用IsNull判断组合框是否有选中值，避免空值导致的SQL语法错误，同时保证当某个组合框未选择时，只应用另一个的过滤条件。

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