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
anybody know where i can find some cool controls
thanks people
simon
|
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. |