Rolling Clock

  • Thread starter Thread starter Matt
  • Start date Start date
M

Matt

Is there any way to add a time to a form header that updates automatically?
In essence, replicate the system time into the header.
 
Sure, put a text box in the form header. For example purposes, we will call
it txtShowTime for example purposes.

Now set the form's timer interval to 60000 (this is one minute)

Then in the form Timer event:

Me.txtShowTime = Format(Time, "Medium Time")

Medium time will show hours and minutes in 12 hr format with AM or PM. If
that is not what you want, use a differetn format.
 
Add an unbound text box in the header of your form, with a format of
general date (if you want the date and time), or long time, etc. Name
it, for example, txtClock.

In the forms Open event put;

Me.txtClock = Now()

In the forms Timer event put;

Me.txtClock = DateAdd("s",1,Me.txtClock)

Then set the forms Timer Interval to 1000.
 
Is there any way to add a time to a form header that updates automatically?
In essence, replicate the system time into the header.

One warning: if you have such a timer (or actually ANY active timer event) in
an open form, you won't be able to use the VBA editor without wierd things
happening (such as the cursor moving or your typing being erased) once every
minute or second, depending on the timer interval. Be sure to close any form
with an active timer, or disable the timer, before attempting to edit code.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top