Display current time 1

[Chew407]

Hello everyone.

I tried searching the forum for this but had some trouble finding anything. Is it possible to display the current time, active to the second (you can see the seconds move)?

Any help you can provide would be much appreciated. Thank you.

Chew

 

[MajP]

Here is one.

http://www.databasedev.co.uk/clock.html

There are a lot of other examples on the web.

 

[Chew407]

Thanks MajP!

 

[Chew407]

MajP,

I followed the directions in that link exactly and I'm receiving an error:

The expression On Timer you entered as the event propoerty setting produced the following error: A problem occured while RPD was communicating with the OLE server or ActiveX Control.

Am I missing an ActiveX Control or something?

 

[Chew407]

I also tried the method here and got the same result:

http://www.simply-access.com/AddingClockForm.html

Microsoft ActiveX Data Object 2.1 Library is checked on.

Any ideas?

 

[MajP]

Try creating this on a blank form with just a label and see if it works. No idea on that error. Works fine for me. Something else may be going on with your form

 

[Chew407]

MajP,

I removed the Record Source from my form and the clock began to work. I need the Record Source in there. Is there a way around this?

 

[MajP]

You should be able to have your recordsource. There is something else going on. Do you have other calculated controls? Do you have a active x control on the form besides the Access native controls?

 

[missinglinq]

Here's a thing I've used for years, v2000-v2003, with calculated controls as well. 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 and uncomment the line

'e.txtDayRunner = Date 'Display date

Goto your form's property box. Under the Event Tab find Timer Interval and enter 1000. Now use this code:

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

If this, too, doesn't allow you your recordsource, I don't know what to tell you


The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!

 

[MajP]

I doubt that is going to make any difference, it is the same thing using a text box instead of a label.

 

[Chew407]

Thanks Missinglinq but I get the same result... although I do like the idea of displaying "Time" while the clock loads.

MajP, I am looking into the questions you raised. Thanks again.

Chew

 

[Chew407]

Still looking into the problem but I find that the following works really well:

Private Sub Form_Open(Cancel As Integer)
    Me.lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss")
End Sub

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

I'll let you know what I find with the record source issue.

Chew