Hide/Unhide Button to Conceal Confidential Info

[TimC]

I really need some help. I am trying to develop a hide/unhide button to conceal employee birthdates on my form. I have viewed previous posts on the web and found the code below. I have EVENT-ON CLICK set to [Event Procedure] for the hide button and EVENT AFTER UPDATE set to [Event Procedure] for the DOB , but I cannot seem to get it to work. A copy of my database is attached. Your assistance would be greatly appreciated. Thanks.

Private Sub HideDOB_Click()



Me.DOB.Visible = Not Me.DOB.Visible

End Sub

[Bob Fitz]

I am unable to open the file you attached with A2003.

[TimC]

New attachment in accdb format. Thanks.