Form Load VBA Help

[lorenambrose]

I have a form that on loading prompts for a password.

How do I modify this code to close or NOT LOAD the form if the user inputs the wrong password. Right now if the password is incorrect the "Authorization Denied" msg box appears and I would like the form to NOT OPEN when they select OK. Hope someone can help.


Private Sub Form_Load()

If InputBox("Enter Password") = "qazz" Then
DoCmd.OpenForm "Edit an ER"
Else
MsgBox "Authorization Denied", vbOKOnly

End If

End Sub

 

[Ruddles]

Immediately after the MsgBox, before the End If, insert:-

DoCmd.Close acForm, Me.Name

 

[boblarson]

Instead of using the form's Load event you can use the OPEN event which is cancelable:

Private Sub Form_Open(Cancel As Integer)
 
If InputBox("Enter Password") = "qazz" Then
   DoCmd.OpenForm "Edit an ER"
Else
   MsgBox "Authorization Denied", vbOKOnly
   Cancel = True
End If
 
End Sub