Ms access Access 2016-找不到方法或数据成员

这是我的代码：

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

处触发。如果这太明显，则表示歉意。

将此更正为：

Dim qdef As DAO.QueryDef

---

不确定是什么导致了错误，但您可以去掉所有的

dbs

、

rs

和

qdf

内容，只需测试

如果DCount（“*”，“qryGetDecisionFieldOfSelectedRecord”）>0，然后
谢谢。非常好的建议。不幸的是，仍然标记错误，但是Skippy的建议是一个很好的修复。