Problem date and INSERT INTO 1

[jpl458]

Have the following code where I need to insert data plus the Date and Time it's inserted

Dim SentSql as String
SentSql = "INSERT INTO SentEmailTbl(Account_Number, Event, DateSent) Values('" & GBL_Master_Id & "', '" & GBL_Event & "', NOW())" (This example is right from the web)

In the immediate window it looks like this
INSERT INTO SentEmailTbl(Account_Number, Event, DateSent) Values('655812', '$5 E_Coupon', NOW())

Ive tried dozens of variations includint the TIMESTAMP feature in tables, but you can't delete those records and I need to do that. All kinds of tries with # on either side. The list goes on.

Thanks

jpl

 

[SkipVought]

hi,

Try this

SentSql = "INSERT INTO SentEmailTbl(Account_Number, Event, DateSent) Values('" & GBL_Master_Id & "', '" & GBL_Event & "'," &  NOW() & ")"

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[dhookom]

I would try

SentSql = "INSERT INTO SentEmailTbl(Account_Number, Event, DateSent) Values('" & GBL_Master_Id & "', '" & GBL_Event & "',#" & Format(now(),"yyyy-mm-dd hh:nn:ss") & "#)"

Duane
Hook'D on Access
MS Access MVP

 

[jpl458]

Duane's solution worked, but Skips did not-Tried both.

Thanks for the quick response

jpl