访问：使用 VBA 将值传递给参数查询？

Question

我有一个带有参数查询（粉红色）的 Access 表单。这是我的表格：

当用户选择一个物种时，Access 使用选项组（称为“speciesSelection”）生成的数字在表中查找物种名称，并且它可以工作。但是，我想将物种名称传递给参数查询，以便记录集可以作为突出显示的组合框 (Combo12) 的数据源。但是，当我选择一个物种时，组合框是空白的。这是我的代码：

Private Sub speciesSelection_AfterUpdate()
Dim dbs As Database
Dim qdf As QueryDef
Dim rst As Recordset

Set dbs = CurrentDb

'Get species name of the current Cases instance'
Dim speciesChosen As String
speciesChosen = DLookup("Species", "tblSpeciesList", "ID=" & speciesSelection)

'Get the parameter query
Set qdf = dbs.QueryDefs("qryClinicalObservations")

'Supply the parameter value
qdf.Parameters("enterSpecies") = speciesChosen

'Open a Recordset based on the parameter query
Forms!inputForm.Controls!Combo12.RowSource = qdf.OpenRecordset()
End Sub

我使用向导创建了我的查询。这是一张快照：

在标准部分，我可以在出现提示时手动输入一个物种（例如“猫”），它可以工作。但不是我的 VBA 代码...

有明显的错误吗？ Combo12 好像没有被识别出来。

编辑：

这是我的新代码。实际上，Combo12 位于一个名为observationsSubform 的子表单中。这是我的代码和新表格。如您所见，下拉菜单，但选项不可见：

Private Sub speciesSelection_AfterUpdate()
Dim dbs As Database
Dim qdf As QueryDef
Dim rst As Recordset

Set dbs = CurrentDb

'Get species name of the current Cases instance'
Dim speciesChosen As String
speciesChosen = DLookup("Species", "tblSpeciesList", "ID=" & speciesSelection)

MsgBox (speciesChosen)

'Get the parameter query
Set qdf = dbs.QueryDefs("qryClinicalObservations")

'Supply the parameter value
qdf!enterSpecies = speciesChosen

Set Me!observationsSubform!Combo12.Recordset = qdf.OpenRecordset()

Answer 1

组合框的RowSource 是一个字符串属性，因此您不能将Recordset 对象分配给它。将您的 Recordset 分配给组合的 Recordset 属性。

因为这是一个对象赋值，所以使用 Set 关键字。

Set Forms!inputForm!Combo12.Recordset = qdf.OpenRecordset()

如果 Combo12 和 speciesSelection 都包含在同一个表单 (inputForm) 中，您可以改用它...

Set Me!Combo12.Recordset = qdf.OpenRecordset()