Insert date and time with button

[spectraflame]

I have the following code set up to run on the on click event.

Private Sub CloseWOButton_Click()
Me.Status = "Closed"
Me.ClosedBy = Environ("Username")
Me.ClosedByDate = Now()
End Sub

The first 2 statements work correctly, but the last one to insert the current date and time errors out. The ClosedByDate text box is formatted as General Date.

Is there a better way to insert the current date and time from a button and store the result in field on the form as well as in the table?

Matthew

 

[SydneyGeek]

Worked for me when I tried it.
Check the data type of the ClosedByDate field (in the table), to make sure it's Date/Time. Alternatively, look for a typo in the name and/or check that the text box's name matches the one in the code.

Denis

 

[spectraflame]

Thanks,

Thanks for reminding me to check my spelling. That was the problem. I spent 3 hours looking for it and not thinking of the obvious first.

Thanks again,
Matthew