2 (hopfully easy) vba questions 1

[policechiefwiggum]

Hi All,

I'm trying to teach myself SQL & VBA.

i've built a database that i'm pretty happy with but i want to do 2 things that i just cant figure out.
1)i want to display just the year, but i want it to update automatically (as part of the copyright text i've added)i've tried

tday = format(date, yyyy)

but this does nothing.

2) i have user logins and would like to have a clock on one of the forms, i've found a few clocks on the internet but cant figure out how to make them work.

can anyone give me some pointers?

cheers

 

[CaptainD]

I assume there is more code then that, but the problem you are showing is probably because you do not have quotes around the yyyy's

Try this

Private Sub Command0_Click()
Dim tday As String
   tday = Format(Date, "yyyy")
   MsgBox tday
End Sub

 

[alvechurchdata]

You can get a simple digital clock on the form if you add a label named lblClock and add code like this:

Private Sub Form_Load()
  '-- Initialise the clock and update every second
  TimerInterval = 1000
  lblClock.Caption = Time()
End Sub

Private Sub Form_Timer()
  '-- Refresh the clock display
  lblClock.Caption = Time()
End Sub

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[PHV]

You may also simply use this:
=Year(Date())

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886