Timer event on switchboard

[Mark]

Hi all,

On my switchboard, I would like to have a label flash red
and black colors if there are records that are not
timeliness, but since the switchboard's default view is
a "Continuous" form. I am not allowed to place a subform
here. (the subform is based off of a query that pulls any
records where the field "timeliness" is equal to "No") I
can get the flashing warning sign to work if the
switchboard is Not a continuous form, but that is not my
solution. Any suggestions on getting around this
situation? Thanks a bunch!!!!



Below is the code that I used to get this to work (not on
the continuous form):


Private Sub Form_Open(Cancel As Integer)

If Me!
[subformAssessmentNotTimeliness].Form.RecordsetClone.Record
Count > 0 Then
Me.Timeliness.Visible = True
Me.TimerInterval = 300
Else
Me.TimerInterval = 0
Me.Timeliness.ForeColor = vbBlack
End If

End Sub



Private Sub Form_Timer()

With Me.Timeliness
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
End With

End Sub

 

[Wayne Morgan]

Have you tried a form header or form footer and place your label there? You
should find these under the View menu with the form open in design mode.