Run Update Query Using VBA 1

[crisis2007]

I have been struggling with this for over an hour. I am trying to run an update query in vba but continuously receive a message that the syntax is incorrect. I suspect it has to do with the part about the current date. I am just not getting it. Any help is very appreciated!


Dim strSQL As String
strSQL = "UPDATE T_Employee SET T_Employee.AccessLevel = 0"
strSQL = strSQL & "WHERE T_Employee.TempEndDate < Date()"
CurrentDb.Execute strSQL

 

[PHV]

strSQL = strSQL & "[highlight] [/highlight]WHERE T_Employee.TempEndDate < Date()"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[crisis2007]

My goodness, definitely not where I was looking. Thank you so very much!

 

[TheAceMan1]

or:

[blue]strSQL = "UPDATE T_Employee SET T_Employee.AccessLevel = 0[COLOR=black silver] [/color]"[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[Andrzejek]

...or, do yourself a favor and do:

Dim strSQL As String
strSQL = "UPDATE T_Employee SET T_Employee.AccessLevel = 0 "
strSQL = strSQL & " WHERE T_Employee.TempEndDate < Date()"[blue]
Debug.Print strSQL[/blue]
CurrentDb.Execute strSQL

and see in the Immediate Window what your DB gets from you. Most of the time you will see your error.

Have fun.

---- Andy