Date/Time Stamp 1

[I50]

I need some Help with this one,

I have an Append Query that updates a History (access) table. But, when I run the append query I want to add a date that the record was appended to the History table. I want to perform this action in an (event procedure). How do I do this? I need some code to complete
this process. Please Help me, thanks!

 

[INeedAccessHelp]

Dim SqlStr As String

SqlStr = "INSERT INTO append_to_table ( field_1, field_2, DATE_field_3 )
SELECT append_from_table.field_1, append_from_table.field_3, Date() AS Expr1
FROM append_from_table;"

CurrentDb.Execute SqlStr