In the "On Click" event for the Text Box or whatever your using, add the following code.
Private Sub fieldname_Click()
fieldname.value = Date
End Sub
You can also set the field to =Date(), however I have always been a proponent for using Hard Code instead of the properties sheet.
See Ya