Access 2016 - 未找到方法或数据成员

Question

这是我的代码：

Private Sub Command36_Click()
    Dim dbs As DAO.Database
    Dim rs As DAO.Recordset
    Dim qdef As DAO.QueryDefs

    Set dbs = CurrentDb
    Set qdef = dbs.QueryDefs("qryGetDecisionFieldOfSelectedRecord")
    Set rs = qdef.OpenRecordset

    If rs.RecordCount > 0 Then
       DoCmd.OpenReport "rptApplicationDeclinedLetter", acViewPreview, "qryApplicationLetter"
    End If
End Sub

编译错误在Set rs = qdef.OpenRecordSet处触发。如果这太明显，请道歉。

Answer 1

将此更正为：

Dim qdef As DAO.QueryDef