Runtime error 424 object required

Question

I am trying to write something that will update a table in my test database however the code will not execute
the debugger keep giving me the following message Run-time error 424 object required, i am not sure what i am missing it is breaking on the following line: db.Execute strSQL
Here is the code i have
Sub Testing()
Dim test1 As Date
Dim strSQL As String
test1 = FileDateTime("C:\Program Files\Bonjour\mDNSResponder.exe")
strSQL = "UPDATE TblTest" & _
    "SET TblTest.[Complete] = test1" & _
    "WHERE TblTest.[Field1] = AMU"
    Debug.Print strSQL
    db.Execute strSQL
End Sub

Answer 1

You haven't declared db, nor set it to anything.
Use
CurrentDb.Execute strSQL
Assuming that Complete is a Date/Time field and that Field1 is a (Short) Text field, the SQL should be changed to
strSQL = "UPDATE TblTest" & _
    " SET TblTest.[Complete] = #" & Format(test1, "yyyy-mm-dd") & "#" & _
    " WHERE TblTest.[Field1] = 'AMU'"
The date is enclosed in # and the text string in '.
I added spaces before SET and WHERE to separate them from the text before them.
Regards, Hans Vogelaar (http://www.eileenslounge.com)