Question

我想从VBA执行查询，但我不希望向用户显示查询。我只是想执行它，以便我的VBA代码可以获得结果并将它们呈现在表单上。有什么建议吗？

Answer 1

我已经回答了我自己的问题！ http://msdn.microsoft.com/en-us/library/office/ff820966%28v=office.15%29.aspx是一个很好的帮助，这是我的代码：

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("GetVisitDetails")
qdf.Parameters("[Forms]![Visitor Management]![VRN]") = 1
Set rst = qdf.OpenRecordset()

然后我可以使用记录集。现在我只需要弄清楚如何从表单中获取值。

Answer 2

我假设您不希望向用户显示消息框，例如＆＃34;您即将更新3条记录......＆＃34;

您可以使用docmd.setwarnings

DoCmd.SetWarnings False
DoCmd.OpenQuery "Your Query Name", acViewNormal, acEdit
DoCmd.SetWarnings True

在Access VBA中执行隐藏查询

2 个答案: