ms-access - 使用 QueryDefs 返回 Recordset 时出错

Question

我正在尝试使用 VBA 代码 Access 查询。我想我已经这样做了100次了。我的代码(在命令按钮上)如下所示:

Dim rstDocCount As Recordset

Set rstDocCount = CurrentDb.QueryDefs("DocCount").OpenRecordset

rst.MoveFirst

我收到此错误消息:

Run-time error '3061': Too few parameters. Expected 1.

Set rstDocCount 行突出显示为黄色。

我做错了什么？唯一的参数应该是查询的名称，我显然已经知道了。

Answer 1

您需要:

Dim rstDocCount As Recordset
Dim qdf As QueryDef

    Set qdf = CurrentDb.QueryDefs("DocCount")

    qdf.Parameters("Forms!Boxing!BoxID") = Forms!Boxing!BoxID 
    Set rstDocCount = qdf.OpenRecordset

    rstDocCount.MoveFirst