VBA Help Desperately Needed!

[Richie2837]

Our Contacts database holds records relating to individual clients. As these clients are visited in their homes, I have put a "Lone Worker Caution" yes/no field on the form to alert staff of potential risks prior to visiting.

To have a more visual signal to staff, I have placed a label (label202) on the form with it's visibility properties set to NO. With a lot of help from other forum users, I have put the following code behind the yes/no check-box, to activate the label and cause it to "flash" in red & black colours:

Private Sub LoneWorkerCaution__AfterUpdate()
If Me.LoneWorkerCaution = True Then
Me.Label202.Visible = True
End If
If Me.LoneWorkerCaution = False Then
Me.Label202.Visible = False

End If

End Sub

Private Sub Form_Contacts()

If Me.LoneWorkerCaution = True Then
Me.Label202.Visible = True
End If
If Me.LoneWorkerCaution = False Then
Me.Label202.Visible = False
End If
Me.TimerInterval = 300
Me.Label202.ForeColor = vbBlack



End Sub

Private Sub Form_Timer()
With Me.Label202
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
End With


End Sub

Everytime I click the yes/no check box to activate the warning message, VBA opens up with the message "Compile Error: Method or Data Member Not Found".

What does this message mean? What do I have to do (in Plain English please, I'm new at this!) to fix it?

Thanks.

 

[GaryPanic]

duplicate post ---

see other posts on this

Don't flood the forum with posts

zip it up and put it on th eform (its probably a 5 minute fix)