View Full Version : Wanted ActiveX Control Clock etc..


hullstorage
07-02-2008, 04:50 AM
I want to spruce up my forms with a clock etc..

anybody know where i can find some cool controls

thanks people

simon

NigelShaw
07-02-2008, 08:53 AM
I have a form clock that i will post later. you need to add code to the timer event and then the clock runs by the second by changing a caption.

Also, i have a bit of code that, whe nyou double click the clock, it will change the format

hh:mm:ss
hh:mm:AMPM
hh:mm

etc

i will post it when i get home later


Nigel

NigelShaw
07-02-2008, 02:39 PM
Here you go as promised-

add a label on your form. put this in the caption 03/26:03 PM

paste this at the top of the code page under Option Compare Database
Public format_type As String

Put this in your OnOpen event
format_type = 1

paste this into your form with the clock
Private Sub lblClock_DblClick(Cancel As Integer)
format_type = format_type + 1
If format_type = 4 Then format_type = 1
End Sub

paste this timer event into your form code
Private Sub Form_Timer()
Select Case format_type
Case 1
Me.LblClock.Caption = Format(Now(), "hh:mm:ss")
Case 2
Me.LblClock.Caption = Format(Now(), "hh:mm AMPM")
Case 3
Me.LblClock.Caption = Format(Now(), "hh:mm")
Case Else
Me.LblClock.Caption = Format(Now(), "mm/dd:mm AMPM")
End Select

End Sub

Timer Interval = 1000

thats it.

change your font, colour or whatever you want. this will give you a clock that changes every second.

regs,

Nigel

Pat Hartman
07-02-2008, 08:45 PM
You won't find folks developing freeware activeX controls for Access. Were you looking for things to buy? Some VB (not .net) controls will work in Access.