使用VBA保存查询

Question

我有带有多个用于过滤子窗体的文本框的窗体。子窗体源对象是查询。为了过滤子表单，我更新了查询SQL并将查询重新分配为子表单上的源对象。

Set qdf = db.QueryDefs("MyQuery")
qdf.SQL = strNewSQL
mySubForm.SourceObject = "Query.MyQuery" 

过滤正常工作。但是，当我关闭表单时，收到一条消息，询问是否要保存对查询的更改。如何避免此消息？

编辑：-@ June7发表评论，使用闭幕式>]

DoCmd.Close acForm, "MyForm", acSaveNo
解决了我的问题。

也可以使用嵌入式宏并设置提示=否来关闭表单。>

我有带有多个用于过滤子窗体的文本框的窗体。子窗体源对象是查询。为了筛选子表单，我更新了查询SQL并将查询重新分配为...

Answer 1

使用VBA而不是嵌入式宏解决了您的问题，但考虑到可以将代码简化为：

CurrentDb.QueryDefs("MyQuery").SQL = strNewSQL
Me.mySubForm.SourceObject = "Query.MyQuery"