求助：表单Recordsource的SQL筛选失效，返回全部记录问题排查

看起来你的代码没正确捕获选中值，或者SQL拼接出了问题，导致WHERE子句没生效，所以返回了全部记录。咱们一步步来排查：

1. 先确认变量TypeList是否真的拿到了选中值 #

这是最常见的问题——你以为变量获取了值，但实际上是空的或者不对。

• 打开VBA编辑器，在你的按钮点击代码里加一行：Debug.Print TypeList，然后运行按钮，再按Ctrl+G打开立即窗口，看看输出的内容是不是你选中的那个值。
• 如果输出是空的，那问题出在获取值的代码上：
  • 如果你用的是组合框，要确保用的是Me.你的组合框名称.Value，而不是Text属性（Text只有控件获得焦点时才有效），还要检查组合框的BoundColumn是不是你要的字段列。
  • 如果是列表框（单选），用Me.你的列表框名称.Value；如果是多选，得循环获取选中项（不过你说“所选值”，应该是单选）。
  • 一定要核对控件名称的拼写，别打错字！

2. 检查SQL语句的拼接是否正确 #

即使拿到了值，SQL语法错误也可能导致筛选失效（Access有时候不会报错，直接忽略有问题的WHERE子句，返回全部记录）：

• 同样加一行Debug.Print strSQL，把生成的SQL复制到Access的查询设计里运行，看是不是能得到正确的筛选结果。
• 重点注意这几点：
  • 字段名有空格，必须用方括号括起来：[Type of Corrective Action]，不能直接写Type of Corrective Action。
  • 如果这个字段是文本类型，变量值必须加单引号：比如WHERE [Type of Corrective Action] = '" & TypeList & "'，如果不加单引号，Access会把值当成字段名，直接导致语法错误。
  • 如果选中的值里包含单引号（比如Don't Repeat），直接拼接会报错，要替换成双单引号：Replace(TypeList, "'", "''")，避免SQL语法断裂。

3. 确认表单的RecordSource是否正确赋值并刷新 #

有时候你写了SQL，但没把它赋值给表单的RecordSource，或者没刷新表单：

• 必须要有Me.RecordSource = strSQL这一行，之后最好加Me.Requery强制刷新表单数据。

给你一个正确的示例代码 #

假设你的控件是名为cboCorrectiveAction的组合框，参考这个写法：

Private Sub cmdFilterRecords_Click()
    Dim TypeList As String
    Dim strSQL As String
    Dim tableName As String
    
    ' 替换成你的表名
    tableName = "你的数据表名称"
    
    ' 先判断是否选中了值
    If Not IsNull(Me.cboCorrectiveAction.Value) Then
        TypeList = Me.cboCorrectiveAction.Value
        ' 安全拼接SQL，处理单引号问题
        strSQL = "SELECT * FROM " & tableName & " WHERE [Type of Corrective Action] = '" & Replace(TypeList, "'", "''") & "'"
    Else
        ' 没选中的话返回全部，或者提示用户
        strSQL = "SELECT * FROM " & tableName
        MsgBox "请选择一个纠正措施类型！"
    End If
    
    ' 更新表单数据源并刷新
    Me.RecordSource = strSQL
    Me.Requery
End Sub

按照上面的步骤排查，应该能很快找到问题所在——大概率是变量没拿到值，或者SQL拼接时漏了单引号/方括号。

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