Timestamp assistance

[Maverick_777]

Guys,
I want to have a text box fill with a timestamp of data entry. The following did not work and I could use some advice...

=IIf([Estimated Hours]>0,"=now()","0")
=IIf([Estimated Hours]>0,'=now()',"0")
=IIf([Estimated Hours]>0,=now(),"0")

This is one text box checking to see if the text box "[Estimated Hours]" is greater than 0 and if so enter the current date and time. Now maybe =NOW() is not the best to use and I don't want the date stamp to change.

THoughts?

 

[boblarson]

Setting a control source to a formula does not save it to the table. You would want to have code in the form's BEFORE UPDATE event and you would use something like:

Private Sub Form_BeforeUpdate(Cancel As Integer)
   If Len(Me![Estimated Hours] & vbNullString) = 0 And Me![Estimated Hours] > 0 Then
      Me.YourDateTimeStampTextBoxNameHere = Now
   End If
End Sub

You would NOT put a 0 in a date field or else it will read as 12/30/1899

 

[Maverick_777]

THanks Bob. After trying again I was able to figure it out once I put the fields into the table.

Appreciate the help very much.