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
