Access SQL多值筛选问题：公共函数返回无结果（单值正常）

问题根源 #

你当前的实现中，GetValue()函数返回的是一个完整字符串（比如"'Spain','Italy'"），Access会将这个字符串作为单个值传入IN子句，实际执行的SQL等价于：

WHERE Country IN ("'Spain','Italy'")

也就是查找Country字段完全等于'Spain','Italy'的记录，自然没有匹配结果。

解决方案 #

方法1：动态修改查询的SQL语句（推荐） #

直接在按钮点击事件中构造正确的IN子句，更新查询的SQL代码，确保每次筛选都生成合法的语句：

Private Sub btnFilter_Click()
    Dim qdf As DAO.QueryDef
    Dim selectedCountries As String
    
    ' 根据复选框状态构造国家列表
    If chkSpain.Value Then selectedCountries = selectedCountries & "'Spain',"
    If chkItaly.Value Then selectedCountries = selectedCountries & "'Italy',"
    ' 可继续添加其他复选框的判断逻辑
    
    ' 处理无勾选的情况（返回所有记录或自定义逻辑）
    If Len(selectedCountries) = 0 Then
        selectedCountries = "'%'" ' 或者改为"*"，根据字段类型调整
    Else
        ' 移除最后多余的逗号
        selectedCountries = Left(selectedCountries, Len(selectedCountries) - 1)
    End If
    
    ' 绑定到目标查询
    Set qdf = CurrentDb.QueryDefs("YourTargetQueryName") ' 替换为你的查询名称
    qdf.SQL = "SELECT * FROM transactionsTable WHERE Country IN (" & selectedCountries & ")"
    Set qdf = Nothing
    
    ' 刷新绑定该查询的窗体/报表
    If Forms!YourFormName.Visible Then Forms!YourFormName.Requery ' 替换为你的窗体名称
End Sub

这种方式彻底避免了字符串解析的问题，每次点击都生成标准的IN子句，解决了之前修改后不更新的问题（之前可能未正确保存QueryDef或刷新界面）。

方法2：让函数返回记录集而非字符串 #

修改全局函数，使其返回拆分后的国家列表记录集，供IN子句查询：

首先在模块中定义全局变量和拆分函数：

Public strCountries As String

' 自定义字符串拆分函数（兼容旧版Access）
Public Function SplitString(ByVal str As String, ByVal delimiter As String) As DAO.Recordset
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strTemp As String
    Dim pos As Integer
    
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM (SELECT '' AS Country) AS Temp WHERE 1=0")
    
    Do While Len(str) > 0
        pos = InStr(str, delimiter)
        If pos = 0 Then
            strTemp = Trim(str)
            str = ""
        Else
            strTemp = Trim(Left(str, pos - 1))
            str = Mid(str, pos + Len(delimiter))
        End If
        If strTemp <> "" Then
            rs.AddNew
            rs!Country = strTemp
            rs.Update
        End If
    Loop
    rs.MoveFirst
    Set SplitString = rs
End Function

Public Function GetCountryList() As DAO.Recordset
    Set GetCountryList = SplitString(strCountries, ",")
End Function

然后修改SQL查询：

SELECT *  
FROM transactionsTable 
WHERE Country IN (SELECT Country FROM GetCountryList());

使用时，在按钮事件中设置strCountries = "Spain,Italy"（无需加单引号），函数会自动拆分并生成记录集供筛选。

注意事项 #

• 动态修改SQL时，注意处理SQL注入风险（内部使用可忽略，面向外部需过滤特殊字符）。
• 如果使用拆分函数，确保全局变量strCountries在每次筛选前被正确更新。

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