Code:
Private Sub Command43_Click()
'Admin Button Bring back nav and other views that are hidden
If Text9.Value = "tam.badal" Then
'UnHide the hidden objects in the navigation pane
Application.SetOption "Show Hidden Objects", True
'UnLock navigation pane
DoCmd.LockNavigationPane False
'Enable right clicks and menus
CurrentDb.Properties("AllowFullMenus") = True
CurrentDb.Properties("AllowShortcutMenus") = True
CurrentDb.Properties("AllowBuiltinToolbars") = True
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.SelectObject acTable, , True
Else
End If
End Sub
How do I modify this and statement to say If Text9.Value = "tam.badal" or "Gregory.heyman" Then...