Syntax Error while defining Date Variable

[Firasath]

Hi,

I am picking up a date from the form in VBA Code and trying to execute SQL Statement. I am getting "Run Time Error "3075". Syntax Error (missing operator) in query expression". Please find below the respective Code.

Private Sub btnDeldt_Click()

Dim dt As Date

dt = Me.txtDelDt

Dim sql As String
sql = " Delete tblCompDB.ActualClosedDate WHERE (((tblCompDB.ActualClosedDate)>= #" & dt & "# "
DoCmd.RunSQL sql

sql = " Update tblCompDB.ComplaintStatus = 'Pending' WHERE (((tblCompDB.ActualClosedDate)>= #" & dt & "# "
DoCmd.RunSQL sql

End Sub

Kindly suggest.

 

[Firasath]

Thanks James. It is not even giving error when I compile the database. I tried every possible thing except the one you suggested. Tomorrow I'll try and update you back.

 

[Micron]

If your table contains time values other than 00:00:00, I would also check that any records you expect to be updated for a given date with a time value greater than this are being affected as you expect. I think you will find that the >= operation on dates with time will not null anything on the ending date where the time is greater. For example, I would not expect 05/15/2015 10:00:00 P.M. to be affected if the operation is >= 05/15/2015 and you are not using the time as well, as you indicated in your earlier post about the form control. The >= operation on dates with time is a special case.