Unforgiven,
Here's a routine that I've used for a while that displays the date and time contiuously.
This assures that they will appear when the form first opens up, while the Timer is cranking up:
Private Sub Form_Open(Cancel As Integer)
Me("txtOmega") = Right$(Now, 11) 'Time display
Me("txtDayRunner") = Date 'Date display
End Sub
Then to make it update continuously:
Private Sub Form_Timer()
Me("txtOmega") = Right$(Now, 11) 'Time display
Me("txtDayRunner") = Date 'Date display
End Sub
The default interval works fine, so you don't have to set the interval.
Hope this helps!
The Missinglinq
"It's got to be the going,
not the getting there that's good!"
-Harry Chapin