Multiple Timer Events

[athyeh]

Hi Folks,

Quick question: My form currently has its timer set to 1000, and I have a neat little clock running off of that:

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

I was wondering, is there a way to incorporate a pop-up message that appears every hour while still having the clock?

[Dal Jeanis]

Each form has a single timer.

You can, however, do multiple things when the timer goes off. You can have a persistent variable that stores other information, and do your popup when hat other variable says to do so.

Private Sub Form_Timer()
Static LastPopup As Date
Static NextPopup As Date
   Me!Clock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")
   If NextPopup <= LastPopup Then 
      LastPopup = Now()
      NextPopup = DateAdd("h",1,Lastpopup)
      'athyeh - put your popup code here
   End If
End Sub

[athyeh]

Perfect. Thanks again Dal. You're awesome.