Updating table with Date using SQL

[mlevit]

Hey all,

I'm trying to update a table using sql with todays date.

I use this,

Dim todaysDate As Date
 
todaysDate = Date
 
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Followup " & _
             "SET Followup.EmailSentDate = " & todaysDate & ", Followup.Completed = 'Yes'" & _
             "WHERE (((Followup.ID) = " & Main.followupID2 & "))"
DoCmd.SetWarnings True

Everything is working fine, but the Followup.EmailSentDate is always the time i.e. 12:00:56 not the date.
The field is a Date/Time field, but i just don't understand why it doesn't place the date there.

All help welcome,

Thanks

[mlevit]

Got it

      Dim todaysDate As Date
      todaysDate = Date
 
      DoCmd.SetWarnings False
      DoCmd.RunSQL "UPDATE Followup " & _
                   "SET Followup.EmailSentDate = " & "'" & todaysDate & "'" & ", Followup.Completed = 'Yes'" & _
                   "WHERE (((Followup.ID) = " & Main.followupID2 & "))"
      DoCmd.SetWarnings True

Need to place " ' " before and after the date

[ADezii]

Hey all,

I'm trying to update a table using sql with todays date.

I use this,

Dim todaysDate As Date
 
todaysDate = Date
 
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Followup " & _
             "SET Followup.EmailSentDate = " & todaysDate & ", Followup.Completed = 'Yes'" & _
             "WHERE (((Followup.ID) = " & Main.followupID2 & "))"
DoCmd.SetWarnings True

Everything is working fine, but the Followup.EmailSentDate is always the time i.e. 12:00:56 not the date.
The field is a Date/Time field, but i just don't understand why it doesn't place the date there.

All help welcome,

Thanks

DoCmd.SetWarnings False
 
Dim MySQL As String
 
MySQL = "UPDATE Followup SET Followup.EmailSentDate = Date(), "
MySQL = MySQL & "Followup.Completed = 'Yes' WHERE Followup.ID = " & Main.followupID2
 
DoCmd.SetWarnings True