Timer event either not triggering, or not working

  • Thread starter Thread starter Duncs
  • Start date Start date
D

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
 
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.
Click to expand...
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 <--
 
Back
Top