访问 VBA/SQL“运行时错误‘424’：需要对象”
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/22457299/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Access VBA/SQL "Run-Time error '424': Object required"
提问by user123137
I keep on getting getting a "Run-Time error '424': Object required" and I am not sure why, when I press debug it takes me to the line qdf.SQL = strSQLand highlights it yellow. I was wondering if anybody knows what is the problem?
我不断收到“运行时错误'424'：需要对象”，我不知道为什么，当我按下调试键时，它会将我带到该行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
Thanks
谢谢
回答by D Stanley
qdfis Nothong(null). You need to set qdfto something.
qdf是Nothong（空）。你需要设置qdf一些东西。
回答by Madeline
Try this
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
'str2 = Update query based upon rs
DoCmd.RunSQL STR2rs.MoveNextLooprs.Close
试试这个
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
'str2 = 基于 rs 的更新查询
DoCmd.RunSQL STR2rs.MoveNextLooprs.Close
