Date Stamp

[tiomin]

Have a Date Field that I want to put current date in if I click the field. Can this be done through a macro? Default now(), and Date() won't do as I don't want the field to auto-populate when opened. It is a data completion form so it will only be completed when clicked and then stay static until clicked again.

Thanks

 

[Montez659]

Yes it is possible, very easy. But what if someone accidentally clicks the box? Then it cahnges your field value. Maybe a checkbox that says complete would work better, or a button that when pressed, it would populate the field. Anyways, here it is:

Private Sub myField_Click()
    Me.myField.Value = Date ' or use Now()
End Sub

 

[tiomin]

Wow, that was fast and efficient.

Thanks for the help, works as expected.