MS Access 2016查询显示异常：查询内容变为SELECT * FROM table WHERE 1 <> 1

根据你的描述，问题是同事编辑某查询后，该查询在设计视图/SQL视图中仅显示返回空集的语句，但调用该查询的窗体仍能正常工作。结合Access 2016的特性，我整理了以下排查和修复步骤：

一、先搞清楚窗体的实际运行逻辑 #

窗体能正常运行但查询显示异常，说明窗体可能没有直接依赖这个显示异常的查询对象，或者存在隐藏的替代对象：

• 打开窗体的设计视图，找到触发该查询的控件（比如按钮、列表框）。
• 右键控件选择“事件生成器”，查看VBA代码：
  • 如果代码里是动态拼接SQL语句（比如CurrentDb.OpenRecordset("SELECT * FROM table WHERE ...")），那这个查询对象可能只是个“占位符”，被修改后不影响窗体运行。
  • 如果代码是直接调用查询对象（比如DoCmd.OpenQuery "你的查询名"），那大概率存在同名的隐藏查询——右键导航窗格→选择“导航选项”→勾选“显示隐藏对象”，看看是否有另一个同名的查询（图标会是半透明的）。

二、恢复查询的真实SQL内容 #

如果确实是这个查询对象被误修改，试试以下方法：

1. 用VBA查看并恢复查询的原始SQL #

有时候Access的视图显示会出问题，但查询的QueryDef对象里存储的是真实SQL。打开VBA编辑器（按Alt+F11），插入一个新模块，粘贴以下代码（替换成你的查询名称）：

Sub RestoreQuerySQL()
    Dim qdf As QueryDef
    ' 替换成你的查询名称
    Set qdf = CurrentDb.QueryDefs("问题查询名")
    
    ' 先弹出当前存储的SQL，看看是不是有真实内容
    MsgBox "查询的真实SQL：" & vbCrLf & qdf.SQL
    
    ' 如果弹出的内容是你需要的完整语句，说明只是视图显示问题，刷新一下即可
    ' 如果确实是被改成了1<>1，试试从备份的旧版本中提取：
    ' 打开备份数据库，同样运行这段代码，复制备份里的SQL，然后替换当前的：
    ' qdf.SQL = "备份里的完整SQL语句"
    ' qdf.Close
End Sub

运行代码后，就能看到查询存储的真实SQL——如果是视图显示bug，刷新查询视图就能恢复；如果确实被修改，就从更早的备份（如果有的话）中提取SQL替换回来。

2. 检查是否有查询的版本备份 #

如果你的备份文件已经被覆盖，试试查看Access的自动备份：默认情况下，Access会在保存时生成.bak文件（和原数据库同目录），将.bak后缀改成.accdb，打开后查看该查询的内容。

3. 排查同事的误操作原因 #

大概率是同事的误操作导致：

• 不小心在查询设计视图中清空了所有条件，或者使用了“查找不匹配项”向导，生成了WHERE 1<>1的语句；
• 误运行了修改查询SQL的宏或VBA代码；
• 不小心隐藏了原查询，新建了同名的空查询。

三、预防后续问题 #

• 给数据库设置版本控制：比如将数据库文件同步到OneDrive/SharePoint，开启版本历史，这样可以随时恢复到之前的版本；
• 给查询设置权限：限制普通用户修改查询的权限，只允许管理员编辑；
• 重要查询可以导出为SQL文件备份，避免被误修改后无法恢复。

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