訪問2016 - 方法或數據成員未找到

這是我的代碼：訪問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。如果這太明顯，表示歉意。

來源

2017-01-31 TonyL

不知道是什麼導致了錯誤，但你可以擺脫所有的'dbs'的，'rs'和'qdf'的東西，只是測試'如果DCOUNT（「* 「，」qryGetDecisionFieldOfSelectedRecord「）> 0 Then' – Skippy

謝謝。非常好的建議。 – TonyL

糾正這種給：

Dim qdef As DAO.QueryDef

來源

2017-02-01 07:09:03 Gustav

不幸的是仍然標記錯誤，但Skippy的建議是一個不錯的修復。 – TonyL

訪問2016 - 方法或數據成員未找到

回答

相關問題