如何使查询中作为参数的函数返回可被In子句识别的多值？

嘿，这个问题我之前在Access里踩过坑！核心原因是**In子句的工作方式和你想的不一样**：当你写In(getColors())时，Access会把getColors()返回的整个字符串"BLUE , GREEN"当成单个匹配值，而不是自动拆分成BLUE和GREEN两个独立值去匹配。所以它会去查找Description字段完全等于"BLUE , GREEN"的记录，自然得不到你想要的结果。

下面给你几个实用的解决方案，按需选择：

方案1：用自定义拆分函数让In识别多值 #

Access没有内置的字符串拆分函数能直接在SQL里用，所以我们可以自己写一个函数，把逗号分隔的字符串拆成一个记录集，这样In子句就能正确读取每个值了。

第一步：创建拆分函数 #

打开VBA编辑器（Alt+F11），插入一个模块，粘贴下面的代码：

Public Function SplitStringToList(strInput As String, Optional strDelimiter As String = ",") As ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim strItems() As String
    Dim i As Integer
    
    ' 添加存储拆分后值的字段
    rs.Fields.Append "Value", adVarChar, 255
    rs.Open
    
    ' 先清理字符串首尾空格，再拆分
    strInput = Trim(strInput)
    If strInput <> "" Then
        strItems = Split(strInput, strDelimiter)
        For i = LBound(strItems) To UBound(strItems)
            ' 去掉每个值的前后空格，添加到记录集
            rs.AddNew
            rs("Value") = Trim(strItems(i))
            rs.Update
        Next i
    End If
    
    rs.MoveFirst
    Set SplitStringToList = rs
End Function

注意：需要先引用Microsoft ActiveX Data Objects x.x Library（在VBA编辑器的「工具」→「引用」里找到并勾选）。

第二步：修改你的SQL查询 #

现在把原来的getColors()替换成拆分函数，用子查询的方式给In提供值列表：

SELECT Colors.* 
FROM Colors 
WHERE Colors.Description IN (SELECT Value FROM SplitStringToList(getColors()));

方案2：动态构造完整SQL语句（简单直接） #

如果你不想折腾拆分函数，也可以在VBA里直接把getColors()返回的字符串转换成In需要的格式，再执行查询：

Sub RunColorQuery()
    Dim strColors As String
    Dim strSQL As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' 把"BLUE , GREEN"转换成'BLUE','GREEN'格式
    strColors = Replace(Trim(getColors()), " , ", "','")
    strColors = "'" & strColors & "'"
    
    ' 拼接完整的SQL语句
    strSQL = "SELECT Colors.* FROM Colors WHERE Colors.Description IN (" & strColors & ");"
    
    ' 执行查询并处理结果
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Do Until rs.EOF
            Debug.Print rs("Description") ' 这里可以换成你需要的处理逻辑
            rs.MoveNext
        Loop
    End If
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

这个方法的原理就是手动把字符串改成In子句需要的多个带单引号的值，语法正确了，查询自然就生效。

方案3：参数查询（更安全，适合用户输入场景） #

如果getColors()的返回值可能来自用户输入，上面的动态SQL有SQL注入风险，推荐结合方案1的拆分函数——因为拆分函数会自动处理每个值的空格和格式，相对更安全。

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