Custom MenuBar code for non-admins

IndyCoder · Jun 12, 2006

I am attempting to load a custom menu bar when any non-admin user logs in. I have tried several things but I am not sure what I am missing right now. Here is the code I am using but it loads the CustomMenuBar for everyone.

Any help would be appreciated.

Code:

<html>
  <head>
    <title>Page</title>
  </head>
  <body>
    Private Sub Form_Load()
    
    'Maximize Access upon startup
    DoCmd.Maximize
    
  If UserInGroup = "Admins" Then
    Me.MenuBar = ""
  Else
    Me.MenuBar = "CustomMenuBar"
  End If
  
End Sub

  </body>
</html>

adalger · Jun 12, 2006

Code:

Public Sub usrtest()
    Dim usr As User
    Dim grp As Group
    
    Set usr = DBEngine(0).Users(CurrentUser)
    For Each grp In usr.Groups
        If grp.Name = "Admins" Then
            Me.MenuBar = ""
            Exit Sub
        End If
    Next grp
    Me.MenuBar = "CustomMenuBar"
End Sub

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Custom MenuBar code for non-admins

IndyCoder

MIS

adalger

Programmer

Similar threads

Part and Inventory Search

Sponsor