Access实现WHERE条件数可变的动态SQL多条件搜索方法

你遇到的多条件拼接AND多余、通配符失效的问题是Access动态查询的常见问题，不需要遍历条件判断位置，用恒真起始条件的方案就能极简实现。

核心原理 #

给WHERE子句固定加一个永远成立的起始条件1=1，后续所有有效查询条件统一以AND 条件内容的格式拼接，空条件直接跳过不拼接即可，从根源上避免WHERE后直接接AND、末尾多余AND的语法错误，完全不需要判断哪个是最后一个有效条件。

之前通配符*失效主要有两个常见原因：

• Access的DAO/默认查询模式通配符是*，ADO查询模式通配符是%，混用就会匹配失败
• 给空输入直接赋值*做通配符时，如果没有搭配LIKE关键字，直接用等号连接会被当成普通字符串值匹配，自然不生效

修正后可直接运行的代码 #

注意你原代码中存在两个隐蔽错误：一是引用了未定义的sql_query变量，运行会报错；二是日期类型字段用双引号包裹值，会触发类型不匹配错误，以下代码已经修复，同时增加了文本内容双引号转义，避免输入带引号的内容时SQL语法报错：

Private Sub Command3_Click()
    Dim sql_select As String, sql_from As String, sql_where As String
    ' 定义基础查询字段和表
    sql_select = "SELECT nc.[NC Number], nc.[Date_Open], nc.[CS_Build], nc.[Section], nc.[Sub-Section], nc.[Status], nc.[Date_Closed], nc.[Notes] "
    sql_from = "FROM nc "
    ' 恒真起始条件，彻底解决AND连接符冗余问题
    sql_where = "WHERE 1=1 "
    
    ' 逐个判断控件值，非空才拼接对应查询条件
    If Not IsNull(Me.txtNumb) Then
        sql_where = sql_where & " AND nc.[NC Number] = """ & Replace(Me.txtNumb, """", """""") & """"
    End If
    If Not IsNull(Me.txtCS) Then
        sql_where = sql_where & " AND nc.[CS_Build] = """ & Replace(Me.txtCS, """", """""") & """"
    End If
    If Not IsNull(Me.cbSection) Then
        sql_where = sql_where & " AND nc.[Section] = """ & Replace(Me.cbSection, """", """""") & """"
    End If
    If Not IsNull(Me.cbSubSection) Then
        sql_where = sql_where & " AND nc.[Sub-Section] = """ & Replace(Me.cbSubSection, """", """""") & """"
    End If
    ' 日期类型值必须用#包裹，统一格式化避免区域日期格式冲突
    If Not IsNull(Me.txtOpenDate) Then
        sql_where = sql_where & " AND nc.[Date_Open] = #" & Format(Me.txtOpenDate, "yyyy-mm-dd") & "#"
    End If
    If Not IsNull(Me.txtClosedDate) Then
        sql_where = sql_where & " AND nc.[Date_Closed] = #" & Format(Me.txtClosedDate, "yyyy-mm-dd") & "#"
    End If
    If Not IsNull(Me.cbTPS) Then
        sql_where = sql_where & " AND nc.[TPS] = """ & Replace(Me.cbTPS, """", """""") & """"
    End If
    If Not IsNull(Me.cbTPStype) Then
        sql_where = sql_where & " AND nc.[TPS_Type] = """ & Replace(Me.cbTPStype, """", """""") & """"
    End If
    If Not IsNull(Me.cbStatus) Then
        sql_where = sql_where & " AND nc.[Status] = """ & Replace(Me.cbStatus, """", """""") & """"
    End If
    
    ' 绑定列表框数据源并刷新
    Me.lstSearch.RowSource = sql_select & sql_from & sql_where
    Me.lstSearch.Requery
End Sub

扩展提示 #

• 如果需要支持模糊匹配，只需要把对应字段的= "值"语法改成LIKE "*值*"即可，比如要支持NC编号模糊搜索，把对应行改成sql_where = sql_where & " AND nc.[NC Number] LIKE *""" & Replace(Me.txtNumb, """", """""") & """*"
• 不需要给空输入预置通配符，空条件直接不拼接的逻辑，比全字段通配符匹配的查询效率高很多
• 如果后续要新增查询条件，只需要照着现有格式加一段IF判断即可，不需要调整原有拼接逻辑

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