Access VBA动态SQL查询添加ProductName条件后返回零结果问题

核心问题分析 #

1. 语法错误：你提供的SQL中，WHERE子句用逗号分隔两个条件，这不符合SQL语法规范，必须用AND（同时满足两个条件）或OR（满足任意一个条件）来连接。
2. 空输入框逻辑缺失：即使换成AND仍无结果，关键原因是当窗体输入框为空时，对应的条件会变成LIKE "*"，但Access中LIKE "*"无法匹配NULL值的字段；且如果两个条件用AND连接，只要其中一个条件筛选不到数据，就会返回零结果。

修正方案 #

方案一：动态拼接SQL（推荐） #

通过VBA判断输入框是否有值，仅当输入框不为空时才添加对应条件，避免无效条件干扰查询。示例代码：

Dim strSQL As String
Dim strWhere As String

' 基础查询语句
strSQL = "SELECT ProductList.ID, ProductList.ProductCode, ProductList.ProductType, ProductList.ProductName, ProductList.UOM, ProductList.ProductMainCategory, ProductList.ProductSubCategory, ProductList.SupplierName, ProductList.SupplierProductCode, ProductList.ProductActive, ProductList.SOH, ProductList.CPExclVAT, ProductList.SPExclVAT, ProductList.VATRate, ProductList.VATAmount, ProductList.SPInclVAT, ProductList.MaxDiscount, ProductList.[GP%], ProductList.Image FROM ProductList"

' 构建WHERE子句
strWhere = ""
' 处理ProductCode条件
If Nz(Forms!ProductSearch!SearchProductCode, "") <> "" Then
    strWhere = strWhere & "(ProductList.ProductCode LIKE '*' & [Forms]![ProductSearch]![SearchProductCode] & '*')"
End If
' 处理ProductName条件
If Nz(Forms!ProductSearch!SearchProductName, "") <> "" Then
    If strWhere <> "" Then strWhere = strWhere & " AND " ' 已有条件时添加连接符
    strWhere = strWhere & "(ProductList.ProductName LIKE '*' & [Forms]![ProductSearch]![SearchProductName] & '*')"
End If

' 拼接完整SQL
If strWhere <> "" Then strSQL = strSQL & " WHERE " & strWhere

' 输出调试或绑定到窗体
Debug.Print strSQL
' Me.RecordSource = strSQL

方案二：修正现有SQL（临时测试） #

如果只是临时验证查询逻辑，确保输入框都有值，将SQL修改为：

SELECT ProductList.ID, ProductList.ProductCode, ProductList.ProductType, ProductList.ProductName, ProductList.UOM, ProductList.ProductMainCategory, ProductList.ProductSubCategory, ProductList.SupplierName, ProductList.SupplierProductCode, ProductList.ProductActive, ProductList.SOH, ProductList.CPExclVAT, ProductList.SPExclVAT, ProductList.VATRate, ProductList.VATAmount, ProductList.SPInclVAT, ProductList.MaxDiscount, ProductList.[GP%], ProductList.Image 
FROM ProductList 
WHERE ((ProductList.ProductCode) LIKE "*" & [Forms]![ProductSearch]![SearchProductCode] & "*")
AND ((ProductList.ProductName) LIKE "*" & [Forms]![ProductSearch]![SearchProductName] & "*");

注意：若需匹配字段为NULL的记录，需在对应条件后添加OR ProductList.ProductName IS NULL

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