Clock on Form

[tbeers]

Good morning.

Is there a way to put a clock on a form? I know you can add a unbound box with default set to now() which gives you a date stamp when the form opens. How do put a clock on a from that keeps the date and time current?

-Tom

[NeoPa]

I've never had a requirement to do this, but if I had I would firstly look in "MoreControls" in the Toolbox for a predefined clock object when designing a form (I had a quick look and saw nothing). After that, google for one and, if that fails, consider a simple Label control set to Now() but using the Timer Interval & On Timer properties to invoke code to keep it updated.

[NeoPa]

If variables are required then you can open the SQL as a recordset and process through it normally. An example of this sort of thing at work can be found in Basic DAO recordset loop using two recordsets.

[missinglinq]

[font=Shruti]Here's a thing I use. You'll need a textbox called txtOmega (yeah, I'm a watch fanatic) and you'll maybe want to add some cosmetics to it, like a frame around it. If you'd also like to show the date, add a textbox called txtDayRunner.

Goto your forms property box. Under the Event Tab find Timer Interval and enter 1000.

    Private Sub Form_Open(Cancel As Integer)
  'Displays while waiting for timer to crank up
  Me.txtOmega = Time 
End Sub
 

Private Sub Form_Timer()
 Me.txtOmega = Time 'Display time
 Me.txtDayRunner = Date 'Display date
End Sub
 

And before some says something about Windows already having a clock displayed in the taskbar (and somebody usually does) I run all my apps "full screen mode" as it were, where the Windows clock isn't visible.

Linq ;0)>

[tbeers]

[font=Shruti]Here's a thing I use. You'll need a textbox called txtOmega (yeah, I'm a watch fanatic) and you'll maybe want to add some cosmetics to it, like a frame around it. If you'd also like to show the date, add a textbox called txtDayRunner.

Goto your forms property box. Under the Event Tab find Timer Interval and enter 1000.

    Private Sub Form_Open(Cancel As Integer)
  'Displays while waiting for timer to crank up
  Me.txtOmega = Time 
End Sub
 

Private Sub Form_Timer()
 Me.txtOmega = Time 'Display time
 Me.txtDayRunner = Date 'Display date
End Sub
 

And before some says something about Windows already having a clock displayed in the taskbar (and somebody usually does) I run all my apps "full screen mode" as it were, where the Windows clock isn't visible.

Linq ;0)>

Perfect! Just what I was looking for.

Thanks

-Tom

[missinglinq]

Glad we could help!

Linq ;0)>