Switchboard menu restricting menus with password

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Good morning,
I am trying to restrict access to a "supervisor" menu from the main
switchboard. I haven't had much luck with the security features b/c I don't
want a database that's hard to update when users change...is there a way to
just build a password prompt for my supevisor menu?

thanks!
 
Do a search. This is asked and answered often.

Note, protecting a "menu" does not offer any security. You must secure the
reports, tables, queries, and forms where the data lives, not just a menu.
Personally, I could care less if my employees see my supervisor MENU, as
long as they can't see the supervisor-only data.

Here's some help on finding previous posts...


I'd suggest you search for your answers before posting a new thread. The
easiest way I have found is to go to www.google.com, click the "groups"
options, and enter a search string starting with the following...

microsoft.public.access password protect menu
 
See this page on my site for any and all Switchboard Manager questions:

http://home.bendbroadband.com/conradsystems/accessjunkie/switchboardfaq.html

In your particular case, this specific area:

http://home.bendbroadband.com/conradsystems/accessjunkie/switchboardfaq.html#security

(Watch out for any possible line wrapping on those links)

Please note I need to make a slight modification to the code. I forgot
to do this before so I will try and remember to change the page this weekend.

Change the code listed on the page to this:

'********Start of new code**********
Private Sub cmdShowAdminArea_Click()
On Error GoTo ErrorPoint

If Len(Nz(Me!txtPassword, "")) = 0 Then
MsgBox "Please enter a password before continuing." _
, vbCritical, "Missing Password"
Me.txtPassword.SetFocus
Else
If Me.txtPassword <> "password" Then
' Substitute with your own password between the quotes
MsgBox "Incorrect Password", vbExclamation, "Access Denied"
DoCmd.Close acForm, "frmPassword"
Else
Forms!Switchboard.Filter = "[ItemNumber] = 0 And [SwitchboardID] = 2"
Forms!Switchboard.Refresh
DoCmd.Close acForm, "frmPassword"
End If
End If

ExitPoint:
Exit Sub

ErrorPoint:
' Unexpected Error
MsgBox "The following error has occurred:" _
& vbNewLine & "Error Number: " & Err.Number _
& vbNewLine & "Error Description: " & Err.Description _
, vbExclamation, "Unexpected Error"
Resume ExitPoint
'********End of new code**********

End Sub

--
Jeff Conrad
Access Junkie - MVP
http://home.bendbroadband.com/conradsystems/accessjunkie.html
http://www.access.qbuilt.com/html/articles.html

in message:
 
I use a different approach where the user enters the UserID and Password
for security purposes. From the User ID their access level is determined by
looking up a table that has user ids and access level. Depending on the
access level the relevant switchboard menu is displayed.

Changing the access level has better control over password control. If a
person has temporary access for a short period to the supervisor menu, then
the password will need to be changed to prevent the user accessing the menu.
I found that using an access level table I can control the user access more
efficiently.
 
Back
Top