多组合框筛选Listbox失效问题求助

让我帮你梳理一下代码里的几个关键问题，这些问题直接导致了列表框被清空：

1. 字段名拼写错误 #

你的查询中选择的年份字段是YearWanted，但在WHERE条件里却写成了qryCustomerWants.Year——这个不存在的字段会让筛选条件永远不成立，自然查不到任何记录。

2. 排序子句引用错误的查询名 #

排序部分写的是ORDER BY qryContactWants.Last，但你的数据源是qryCustomerWants，这里的查询名写错了，会导致SQL语句执行失败，最终列表框无数据。

3. 数值类型字段的单引号问题 #

如果YearWanted是数值类型（比如存储的是2023这样的数字），给它加单引号会把数值当成字符串处理，导致匹配失败，也可能引发语法错误。

修正后的代码 #

Private Sub RequerylstCustomers()
    Dim SQL As String
    SQL = "SELECT qryCustomerWants.ID, qryCustomerWants.Type, qryCustomerWants.Make, qryCustomerWants.Model, qryCustomerWants.YearWanted, qryCustomerWants.Condition " _
        & "FROM qryCustomerWants " _
        & "WHERE 1=1 "
    ' 处理Type筛选，加入单引号转义避免语法错误
    If Nz(cboType.Value, "") <> "" Then
        SQL = SQL & " AND qryCustomerWants.Type = '" & Replace(cboType.Value, "'", "''") & "'"
    End If
    ' 处理Make筛选
    If Nz(cboMake.Value, "") <> "" Then
        SQL = SQL & " AND qryCustomerWants.Make = '" & Replace(cboMake.Value, "'", "''") & "'"
    End If
    ' 处理Model筛选
    If Nz(cboModel.Value, "") <> "" Then
        SQL = SQL & " AND qryCustomerWants.Model = '" & Replace(cboModel.Value, "'", "''") & "'"
    End If
    ' 处理YearWanted筛选（修正字段名，根据字段类型选择是否加单引号）
    If Nz(cboYear.Value, "") <> "" Then
        ' 如果YearWanted是数值类型，用这行：
        SQL = SQL & " AND qryCustomerWants.YearWanted = " & cboYear.Value
        ' 如果是文本类型，替换成这行：
        ' SQL = SQL & " AND qryCustomerWants.YearWanted = '" & Replace(cboYear.Value, "'", "''") & "'"
    End If
    ' 处理Condition筛选
    If Nz(cboCondition.Value, "") <> "" Then
        SQL = SQL & " AND qryCustomerWants.Condition = '" & Replace(cboCondition.Value, "'", "''") & "'"
    End If
    ' 修正排序的查询名，确认Last字段存在于qryCustomerWants中
    SQL = SQL & " ORDER BY qryCustomerWants.Last"
    
    ' 调试用：打印生成的SQL到即时窗口，方便排查语法问题
    ' Debug.Print SQL
    
    Me.lstCustomers.RowSource = SQL
    Me.lstCustomers.Requery
End Sub

额外优化建议 #

• 用Nz()函数替代& ""的方式，更简洁地处理控件空值情况。
• 加入Replace()函数处理选项中包含单引号的场景（比如选项值是O'Neil），避免SQL语法报错。
• 调试时可以取消注释Debug.Print SQL，打开VBA即时窗口（Ctrl+G）查看生成的SQL语句，直接复制到Access查询中运行，能更快定位问题。

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