Form Password

[P-C-Surgeon]

Is there a way to create a link on a form which will open up another form but requres a password to open the 'password protected form'? Or should I just create my first form, which doesn't need a password, with a hidden link? I do have several forms which I don't want people to get into so I am trying to restrict access to these forms. Any ideas? Thanks for any suggestions.

 

[Andrew Fergus]

Hi

Insert the following code into the 'On Open' event of the form you want to protect :

Private Sub Form_Open(Cancel As Integer)

Dim PW As String

'Use either a DLookup to a table or hardcode the password in this code
'The line below is to extract the password from a table
PW = DLookup("[MyPasswordField]", "MyTable")

'Or the line below is to hard-code the password (delete one)
PW = "MyPassword"

If InputBox("Enter Administration Password ", "Password Required") <> PW Then
    MsgBox "Incorrect Password"
    DoCmd.Close acForm, "MyFormName", acSaveNo
    Exit Sub
End If

DoCmd.Restore

End Sub

Change any of the items prefixed with "My' to your actual field or table names. If the user tries to open the form, then the must enter the correct password to open the form.

HTH, Andrew