I have entered the following code to an onclick button. I am sure I have written it incorrectly (it's probably the line I highlighted below to do with username=Manager. By the way Manager is one of my usernames I have created.
Thanks for your help.
Rob
Private Sub Label218_Click()
If UserName = Manager Then
DoCmd.OpenReport "Tennis Teams", acNormal
Exit Sub
End If
MsgBox "You do not have permission to open this form!", vbOK, "Tennis Center Business Manager 2007"
End Sub
Thanks for your help.
Rob
Private Sub Label218_Click()
If UserName = Manager Then
DoCmd.OpenReport "Tennis Teams", acNormal
Exit Sub
End If
MsgBox "You do not have permission to open this form!", vbOK, "Tennis Center Business Manager 2007"
End Sub