Timer event either not triggering, or not working

[Duncs]

I have a timer event, that updates a clock and a random quote of the
day. The timer dlay is set to 1000, and the Time Event is as follows:

Private Sub Form_Timer()

Static iCount As Integer

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

iCount = iCount + 1
If iCount >= 30 Then
iCount = 0
Me.lblQuoteOfTheDay.Caption = DLookup ("fldQuote",
"tblQuoteOfTheDay", "[fldQuoteNum]=" & Int((lngQuoteCount * Rnd()) +
1))
End If

End Sub

The problme I have is that the update works fine when the form is first
loaded. However, after about five minutes of being the non-active
window, the timer event appears to be not firing. The clock no longer
updates and the quote of the day no longer changes.

Anyone any ideas?

Duncs

 

[Stefan Hoffmann]

hi,

The problme I have is that the update works fine when the form is first
loaded. However, after about five minutes of being the non-active
window, the timer event appears to be not firing. The clock no longer
updates and the quote of the day no longer changes.

Using Repaint should do it:

lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")
lblClock.Repaint

If not use also

Me.Repaint

and or

DoEvents


mfG
--> stefan <--