如何在 Access VBA 中引用已保存的查询？

Question

我正在尝试检查已保存查询中的记录以确定 VBA 是否应禁用某些表单控件：

Dim SavedQry
SavedQry = Queries!qryCurrentItems 'or Queries("qryCurrentItems")

不会编译，因为它要我定义变量“查询”。

您可以使用Forms!FormName!ControlName 执行此类操作来引用控件中的数据，那么为什么不这样呢？

---

为了清楚起见；有问题的查询具有由表单填充的“参数”。代码如下。

SELECT tblColour.Colour AS Colour
FROM tblColour 
INNER JOIN (tblGenCol 
INNER JOIN tblAutCol ON tblAutCol.Colour = tblGenCol.Colour) 
ON tblGenCol.Colour = tblColour.ID
WHERE tblGenCol.Genre = Forms!frmColourChoice!cmbGenre
AND tblAutCol.Author = Forms!frmColourChoice!cmbAuthor;

参数为 Forms!frmColourChoice!cmbGenre 和 Forms!frmColourChoice!cmbAuthor。

Answer 1

使用一两个对象：

Dim SavedQry As DAO.QueryDef
Dim rs As DAO.Recordset

Set SavedQry = CurrentDb.QueryDefs("qryCurrentItems")
SavedQry.Parameter("ParameterName1").Value = SomeValue
SavedQry.Parameter("ParameterName2").Value = AnotherValue
Set rs = SavedQry.OpenRecordset()
' Investigate records.