Quick AutoUpdate Code (ACCESS 2K SR-1)

Topic

New Reply

I need a quick code to place ‘today’s date’ in a date field when a person finishes updating a record.

Reply | Quote

Replies

You can use the BeforeUpdate event of the form to do this:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.[LastUpdated] = Date
End Sub

Replace LastUpdated by the name of your date field.

Note: if you just want to place today’s date in a field interactively, press Ctrl+; (semicolon.)

Reply | Quote