password Protecting Switchboard Items

  • Thread starter Thread starter dellero
  • Start date Start date
D

dellero

i have read the thread with Jeff Conrad and input all of the following:

1. Create a new small password form with the following properties:

-Scroll Bars No
-Record Selectors No
-Navigation Buttons No
-Dividing Lines No
-Auto Center Yes
-Pop Up Yes
-Modal Yes
-Border Style Thin
-Control Box No
-Min Max Buttons None
-Close Button No
-Shortcut Menu No

Name the form frmPassword.

Add a text box on this form called txtPassword with an Input Mask
of "Password" (without the quotations).

Add a label called lblPassword and have the caption say
something like "Please Enter Administrator Password."
Position just above the text box.

Add a command button called cmdCloseForm that simply
closes the form; nothing else in that code. Like so:

'Code Start
Private Sub cmdCloseForm_Click()
On Error GoTo ErrorPoint

DoCmd.Close acForm, "frmPassword"

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 Sub
' Code End

Add another command button called cmdShowAdminArea with
a caption of "OK" or something similar and enter the following code
into the Click event for this button:

'Code Start
Private Sub cmdShowAdminArea_Click()
On Error GoTo ErrorPoint

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

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 Sub
' Code End

i have personalised the following items;

"switchboard" to "admin"

and altered the Switchboard ID to "8" as it is in my database, but i keep on
getting an error that says it cannot find the form "Admin" can you suggest
where i might have gone wrong?

Thank You

Dellero
 
Review the steps I have here on my web site:

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

It has a little bit different code.
"switchboard" to "admin"
Click to expand...

Why are you doing this?
and altered the Switchboard ID to "8" as it is in my database, but I keep on
getting an error that says it cannot find the form "Admin" can you suggest
where I might have gone wrong?
Click to expand...

It is looking for a form named Admin.
Did you change the name of your Switchboard from "Switchboard"
to "Admin" by chance???

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

in message:
i have read the thread with Jeff Conrad and input all of the following:
Click to expand...

<steps snipped>
 
When the Switchboard was created it was called "Admin" because it is an admin
area we are trying to protect but i did try to rename it to switchboard just
incase, with no change.

btw, the way i was changing the name was in "switchboard manager" im assuming
this is the correct way of doing it?
 
i've updated the code to match your changes with no effect to my Initial
problem
When the Switchboard was created it was called "Admin" because it is an admin
area we are trying to protect but i did try to rename it to switchboard just
incase, with no change.

btw, the way i was changing the name was in "switchboard manager" im assuming
this is the correct way of doing it?
Review the steps I have here on my web site:
Click to expand...
[quoted text clipped - 17 lines]
<steps snipped>
Click to expand...
Click to expand...
 
in message:
When the Switchboard was created it was called "Admin" because it is an admin
area we are trying to protect but I did try to rename it to switchboard just
incase, with no change.
Click to expand...

The Switchboard Manager creates one and *only* form called Switchboard
in the Database Window. You can change this name by right clicking on it
and naming it something else, but there is no need to do this. Leave that form
name as Switchboard.
btw, the way I was changing the name was in "switchboard manager" I'm assuming
this is the correct way of doing it?
Click to expand...

???
No, not at all.
If you follow my instructions to the letter you should have one form called
Switchboard (this is the form the wizard created) and a second form called
frmPassword. That password form is opened when you want to go to
a "secured" sub-switchboard menu. You must remember that even though
the form seems to change by different command buttons becoming visible,
you are still interacting with one form called Switchboard.

Nothing *needs* to be called Admin if you follow the instructions.
Where does the error occur and more specifically *what* form generates
the error?
 
It Works!! ha ha!!!! thank you very much there where two main problems, 1.
the code was looking for a switchboard called "admin" when it was still
called "switchboard" and 2. after everything was working it didnt work unless
i tried it in the switchboard menu, i was just going on the forms area and
opening "frmpassword" but it couldn't find the switchboard until i tried it
in the switchboard.]

thank you!

Dellero
 
Is this the same Jeff Conrad (purported MVP) who posts free downloadable
cracks for Microsoft Access Security?

Chris
 
Back
Top