VBA timer

DoCmd.Requery "Requests for help list"

Me.TimerInterval = 10000
Me.Requery
DoCmd.Requery "Requests for help list"



Private Sub Form_Timer()
Me!Time_of_Day = Time
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 10000
End Sub

Private Sub Form_Timer()
Me.Requery
MsgBox "requery"
End Sub



Set the Timer Interval to 1000 (for 1 second).
Code the Timer event:
If [DateControl] < Date() Then
If [DateControl].BackColor = vbWhite then
[DateControl].BackColor = vbRed
Else
[DateControl].BackColor = vbWhite
End If
End If







SAMPLE:

Set the Timer Interval to 1000 (for 1 second).
Code the Timer event:
If [DateControl] < Date() Then
If [DateControl].BackColor = vbWhite then
[DateControl].BackColor = vbRed
Else
[DateControl].BackColor = vbWhite
End If
End If