Friends.
I can't seem to get the syntax right to update a yes/no field in a table. I want to update all fields that are false to true. Here is my code:
'Flag units sent up to True
Dim db As Database
Set db = CurrentDb
Dim strSQL As String
Dim strSQL1 As String
strSQL = "UPDATE TEARDOWN-PRIMARY SET TEARDOWN-PRIMARY.[Posted] = True " & _
"WHERE ((TEARDOWN-PRIMARY.[Posted] = " & False & "));"
Debug.Print strSQL
strSQL1 = "UPDATE CitySemiTEARDOWN-PRIMARY SET CitySemiTEARDOWN-PRIMARY.[Posted] = True " & _
"WHERE ((CitySemiTEARDOWN-PRIMARY.[Posted] = " & False & "));"
Debug.Print strSQL1
db.Execute strSQL, dbFailOnError
db.Execute strSQL1, dbFailOnError
MsgBox CStr(db.RecordsAffected) & " records updated.", vbInformation, "Records Updated"
Set db = Nothing
It errors on the first strSQL statement.
Doyce
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar