MS Access如何实现多窗体参数查询 无需创建多个重复查询

你提到的两种实现路径均完全可行，以下是具体实现方式和注意事项：

方案一：按钮点击事件动态注入WHERE子句（优先推荐） #

• 不需要提前创建多个结构重复的预存查询对象，所有逻辑直接写在对应按钮的VBA点击事件中，从根源上消除冗余对象。
• 核心逻辑是固定删除语句的基础部分，根据当前触发的操作场景动态拼接WHERE条件后直接执行，基础SQL模板固定为：

DELETE Forecast_Days.* FROM Forecast_Days

• 不同按钮的事件逻辑仅存在WHERE拼接的差异：
  • 全量操作按钮：直接执行不带WHERE的基础SQL即可，调用CurrentDb.Execute 拼接好的SQL, dbFailOnError运行，全程不会触发参数弹窗，加上dbFailOnError参数可以在删除遇到约束、锁表等问题时直接抛出明确错误，不会静默执行失败。
  • 仓库维度操作按钮：读取当前窗体上Whse_t控件的值，拼接WHERE Whse = '" & Replace(Me!Whse_t.Value, "'", "''") & "'片段后执行即可，注意替换控件值里的单引号为两个单引号，避免值本身带单引号时触发SQL语法错误。
  • 商品维度操作按钮：读取当前编辑窗体的Whse_t和Item_t控件值，拼接仓库、商品两个字段的匹配条件后执行。
• 该方案后续维护成本极低，需要调整删除逻辑时只需要修改基础SQL模板，不需要同步修改三个重复查询；后续如果新增品牌、分类等新的筛选维度，只需要加对应的条件拼接逻辑即可，灵活度最高。

方案二：单查询兼容多场景，避免非目标参数弹窗 #

• 该方案不需要编写VBA拼接SQL，只需要创建一个通用删除查询即可实现需求，核心是在WHERE子句中先判断对应触发窗体是否处于打开状态：只有对应窗体打开时，才读取窗体上的控件值做匹配；如果窗体未打开，直接跳过该段条件，不会触发对未打开窗体控件的读取，自然不会弹出参数输入框。
• 通用删除查询的SQL示例如下：

DELETE Forecast_Days.*
FROM Forecast_Days
WHERE
-- 仓库更新窗体打开时，匹配选中仓库，否则该条件恒为真，不生效
(IIf(CurrentProject.AllForms("frm_Forecast_Update").IsLoaded, [Forecast_Days]![Whse]=[Forms]![frm_Forecast_Update]![Whse_t], True))
AND
-- 商品编辑窗体打开时，匹配选中仓库+商品，否则该条件恒为真，不生效
(IIf(CurrentProject.AllForms("frm_Forecast_Item_Edit").IsLoaded, [Forecast_Days]![Whse]=[Forms]![frm_Forecast_Item_Edit]![Whse_t] AND [Forecast_Days].[Item]=[Forms]![frm_Forecast_Item_Edit]![Item_t], True))

• 使用注意事项：触发删除操作时不要同时打开两个业务操作窗体，否则两个筛选条件会同时生效，导致筛选范围不符合预期；如果控件值可能为空，需要额外加Nz()函数判断空值，避免匹配到空值记录。
• 该方案的缺点是灵活度较低，后续新增筛选维度时需要修改查询的条件逻辑，对特殊值的处理比动态拼接SQL更繁琐。

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