在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