I would add buttons to the form to do this, although you can create shortcut keys for it. The button code would be:
Me.DateAndTimeField = Now()
'This returns the date and time
Me.TimeOnlyField = TimeValue(Now())
'This returns just the Time portion of the date and time
Did that help?
Look it up at: http://wrox.books24x7.com