Time

[Eric]

Just wondering if anyone had a suggestion for adding a time box on a form
that would be clickable and value other field on the form (similar to the pop
up calendar and selecting a date.)
Thanks,
Eric

 

[Wayne-I-M]

There are lots of ways to do this. This is just one

The basics are that you add an =Now() to a text box.

One method
Create a new lable on a form (call it lblClock)
Set the Timer Interval to 1000
Add this to the forms timer

Private Sub Form_Timer()
Me!lblClock.Caption = Format(Now, "dddd, mmm d yy, hh:mm:ss AMPM")
End Sub

- Note - you could get rid of the seconds as they can be a little distracting

Next create a new text box (either unbound or bound to a table field - up to
you)
Call it txtTimeNow (or whatever)
Put this OnClick of the lblClock

Private Sub lblClock_Click()
Me.txtTimeNow = Now()
End Sub

Set the format of txtTimeNow to whatever you want

As you will note the clock bit is not really needed it just gives the user
something to click - it could be anything with the OnClic set to
Me.txtTimeNow = Now()

Hope this helps