Access中使用Me.Filter实现多条件表单过滤无数据返回的问题求助

咱们一步步拆解你遇到的问题，其实都是几个容易忽略的小细节导致的：

问题1：Like语句里的多余空格毁了匹配逻辑 #

你在Filter2里写的" And [Brand] Like "" * " & Search & " * """，这里的*前后加了空格，等于让Access去匹配前后必须带空格的品牌名。比如数据库里存的是"Apple"，你的代码会找" Apple "（前后都有空格），自然匹配不到任何数据，直接空了。

问题2：变量没取到二次过滤的用户输入 #

Filter2是单独的过程，你里面用的Category和Search根本没赋值！这俩变量是第一个Filter过程里的，在Filter2里等于没拿到用户选的二次筛选类别和关键词，等于你的If Category = "Brand"判断根本不会触发，或者触发了也是用的旧值，逻辑完全不对。

问题3：Filter为空时直接拼接And会导致语法错误 #

如果用户先点二次过滤，或者第一次过滤没生效（比如没选Year就点了第一次过滤），Me.Filter是空的，你直接拼" And..."，最终Filter会变成" And [Brand] Like..."，这种语法Access根本解析不了，结果就是过滤后无数据。

修正后的代码 #

先把第一个Filter过程补全（你原来漏了End If），然后修正Filter2的逻辑：

第一次过滤的代码（补全+规范） #

Sub Filter()
    Dim Category As Variant
    Dim Search As Variant
    Category = Me.Field118.Value ' 加上.Value更明确
    Search = Me.Text110.Value
    
    If Category = "Year" Then
        ' Year是Access保留字，最好用方括号括起来
        Me.Filter = "[Year] Like ""*" & Search & "*"""
        Me.FilterOn = True
    End If ' 补上之前缺失的End If
End Sub

二次过滤的代码（修正所有问题） #

Sub Filter2()
    Dim Category2 As Variant
    Dim Search2 As Variant
    ' 这里换成你新增的二次筛选控件名称！别用错
    Category2 = Me.Field200.Value 
    Search2 = Me.Text200.Value
    
    ' 先判断用户有没有输入内容，避免无效过滤
    If Trim(Search2) = "" Then
        MsgBox "请输入二次筛选的关键词！"
        Exit Sub
    End If
    
    If Category2 = "Brand" Then
        ' 处理Filter为空的情况，避免语法错误
        If Me.Filter = "" Then
            Me.Filter = "[Brand] Like ""*" & Search2 & "*"""
        Else
            Me.Filter = Me.Filter & " And [Brand] Like ""*" & Search2 & "*"""
        End If
        Me.FilterOn = True
    End If
End Sub

额外注意事项 #

1. 控件名称要对应：把代码里的Field200和Text200换成你实际新增的二次筛选类别框和搜索框的名称，别搞混。
2. 保留字字段要加方括号：像Year这种Access保留字，作为字段名时一定要用[Year]括起来，避免潜在的语法错误。
3. 可以扩展多条件：如果以后要加更多二次筛选类别，直接在Filter2里加ElseIf Category2 = "XXX"的判断就行，逻辑和Brand的处理一致。

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