On a Form? With a date field added to the table, add the field to the form
and set the default value to Date() and if you want, make it invisible. to
catch updates on existing records, add
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.dateentered.Value = Date
End Sub