Enter date automatically when click in box

[rkaria]

Hi All

I have form with thousands of records where users input data

One the boxs is a text box and the user has to enter the date. I would like it so if the user clicks or tabs into the box it will automatically show the current date. But I only want it to show if the user clicks into the text box or tabs I dont want it to automatically show if the user clicks on new record.

Is there a way to do this?

Thanks in advanced
R

 

[RuralGuy]

Use the OnEnter event of the control to set the value.

 

[rkaria]

Use the OnEnter event of the control to set the value.

Thank rural Guy, I tried that. I put date() in OnEnter, but I get the error message " Microsoft can not find the object date()"

Is that the wrong code??

 

[RuralGuy]

Me.ControlName = Date()
...using YOUR ControlName of course.

 

[ABeepath]

make sure you change the format in the date field on your table. Then go "On Enter" and put the following sample code

Option Compare Database
Private Sub Transaction_Date_Enter()
Forms!Names![Transaction Date] = Date()
End Sub

My date field is named Transaction Date and my form name is Names, you can rename accordingly.
Hope this helps you!

 

[RuralGuy]

Now() also includes the current time where Date() has the time set to midnight.

 

[ABeepath]

Now() also includes the current time where Date() has the time set to midnight.

Much thanks..i forgot about this...

 

[rkaria]

thanks guys that worked. How would set this so it only enters the current date if the text box is blank.

Cheers
R

 

[RuralGuy]

If Len(Me.ControlName & "") = 0 Then
Me.ControlName = Date()
End If
...using YOUR ControlName of course.

 

[rkaria]

If Len(Me.ControlName & "") = 0 Then
Me.ControlName = Date()
End If
...using YOUR ControlName of course.

Sorry Ive been away, thanks for your help

 

[RuralGuy]

You're very welcome.