如何阻止MS Access 2024自动修改查询准则代码？

问题说明 #

• 使用MS Access 2024创建基于查询的表单，通过搜索框[Forms]![findStocks_2]![StockSearch]筛选表中特定记录
• 原查询准则为单行代码：Like "*" & [Forms]![findStocks_2]![StockSearch] & "*" Or [Forms]![findStocks_2]![StockSearch] Is Null
• 每次关闭查询窗口或Access应用后重新打开，准则区域被替换为多行重复的Like "*" & [Forms]![findStocks_2]![StockSearch] & "*"代码
• 最终导致查询无法编辑或运行，弹出错误提示**"Query is too complex"**

解决方案 #

方法1：用VBA动态设置查询筛选 #

放弃在查询设计视图中直接写准则，通过表单事件触发VBA代码动态修改查询条件，彻底避免Access自动篡改准则：

1. 打开表单findStocks_2的设计视图
2. 选中搜索框StockSearch，找到其AfterUpdate事件（或表单的Load事件），添加以下VBA代码：

Private Sub StockSearch_AfterUpdate()
    Dim qdf As QueryDef
    Dim strFilter As String
    Dim originalSQL As String
    
    ' 替换为你的查询名称
    Set qdf = CurrentDb.QueryDefs("你的查询名称")
    originalSQL = qdf.SQL
    
    ' 清除原有WHERE子句（保留基础查询结构）
    If InStr(originalSQL, " WHERE ") > 0 Then
        originalSQL = Left(originalSQL, InStr(originalSQL, " WHERE ") - 1)
    End If
    
    ' 构建新筛选条件
    If IsNull(Me.StockSearch) Or Me.StockSearch = "" Then
        strFilter = ""
    Else
        ' 替换为你的目标字段名，同时处理单引号转义
        strFilter = "你的字段名 Like '*" & Replace(Me.StockSearch, "'", "''") & "*'"
    End If
    
    ' 重新组合SQL语句
    If strFilter <> "" Then
        qdf.SQL = originalSQL & " WHERE " & strFilter
    Else
        qdf.SQL = originalSQL
    End If
    
    ' 更新表单记录源
    Me.RecordSource = qdf.Name
    Set qdf = Nothing
End Sub

方法2：改用参数查询 #

将查询改为参数查询，规避Access对表单控件引用的错误解析：

1. 打开查询设计视图，在要筛选的字段列的“准则”中输入：Like "*" & [SearchKeyword] & "*"
2. 打开表单设计视图，给搜索框的AfterUpdate事件添加以下VBA代码：

Private Sub StockSearch_AfterUpdate()
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs("你的查询名称")
    
    ' 传递参数值
    If IsNull(Me.StockSearch) Then
        qdf.Parameters("[SearchKeyword]") = ""
    Else
        qdf.Parameters("[SearchKeyword]") = Me.StockSearch
    End If
    
    ' 更新表单记录源
    Me.RecordSource = qdf.Name
    Set qdf = Nothing
End Sub

方法3：调整准则的写法（符合Access设计规范） #

Access对混合Or和IsNull的单行准则容易出现解析错误，可拆分为两行条件：

• 在筛选字段的准则行输入：Like "*" & [Forms]![findStocks_2]![StockSearch] & "*"
• 在同一字段的或行输入：[Forms]![findStocks_2]![StockSearch] Is Null

这种写法更贴合Access查询的设计逻辑，能降低自动篡改的概率。

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