在MS Access VBA中，如何使用参数调用存储的追加查询？

Question

在我的Access 2007数据库中，我有一个包含参数的追加查询。如何从VBA脚本调用此查询？

我意识到我可以在VBA代码中动态生成查询文本，但这更加尴尬。

Answer 1

我得到以下工作：

Dim db As DAO.Database
Dim qry As DAO.QueryDef

Set db = CurrentDb

Set qry= db.QueryDefs("NameOfMyStoredQuery")

qry.Parameters(0) = FirstParamValue
qry.Parameters(1) = SecondParamValue
qry.Parameters(2) = ThirdParamValue

qry.Execute