訪問VBA / SQL“運行時錯誤'424'：必需對象”

Question

我不斷收到“運行時錯誤'424'：必需的對象”，我不確定為什么，當我按debug時，它將帶我到qdf.SQL = strSQL並以黃色突出顯示。 我想知道是否有人知道是什么問題？

Sub UpdateX()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

Set db = CurrentDb
Set rs = db.OpenRecordset("References")

strSQL = "SELECT References.DocNum, References.Availability " & _
     "FROM References " & _
     "WHERE References.Source = 'Book' " & _
     "ORDER BY References.DocNum;"
qdf.SQL = strSQL
DoCmd.OpenQuery "qryTest"
End Sub

謝謝

Answer 1

qdf是Nothong （空）。 您需要將qdf設置為某些值。

Answer 2

試試這個strSQL = "SELECT References.DocNum, References.Availability FROM References WHERE References.Source = 'Book' ORDER BY References.DocNum;" Set rs = CurrentDb.OpenRecordset(strSQL) Do until rs.EOF
基於RS“STR2 =更新查詢DoCmd.RunSQL STR2 rs.MoveNext Loop rs.Close