在VBA ODBC中运行追加查询时隐藏对话框

Question

我想通过按钮单击使用VBA运行已保存的访问查询。我不希望要求用户确认它是否运行。

代码：

DoCmd.OpenQuery "QryAddTraining", acViewNormal, acAdd

这会打开对话框＆＃34;您即将运行追加查询，该查询将修改表格中的数据＆＃34; ....

我只想让VBA代码自动选择＆＃34;是＆＃34;并阻止用户看到此界面。

Answer 1

使用DAO.Database.Execute执行查询：

Dim db As DAO.Database
Set db = CurrentDb
db.Execute "QryAddTraining", dbFailOnError 

dbFailOnError选项不是必需的，但包含它会为您提供更好的错误信息。有关详细信息，请查看Access帮助主题。