使用QueryDefs返回Recordset时出错

Question

我正在尝试使用VBA代码访问查询.我想我已经这样做了100次.我的代码(在命令按钮上)像这样开始:

Dim rstDocCount As Recordset

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

rst.MoveFirst

我收到此错误消息:

运行时错误'3061':参数太少.预期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