Form closing unexpectedly

[michaelwh1]

I have been using Access for a while now and while not an expert feel failrly comfortable with it. I have a form with a command button that launches another form but has to have the correct password for the load event to continue. If the password is correct then all works well. If not then the code says to close the form and return to the original screen. However, when the password is not correct it not only aborts opening the form but closes the original form as well. I have tried to see what is causing this but I simply cannot find out why. Any help[ is appreciated. Below is the script.

Private Sub Form_Load()
Dim PassWord As String
PassWord = InputBox("Enter Password")
If PassWord = "pass" Then
' Open Form
DoCmd.OpenForm "frmDataManage"
Else
MsgBox ("You're not authorized")
DoCmd.Close acForm, "frmDataManage"
DoCmd.OpenForm "frmMainScreen"


End If

[June7]

Why is this in a form Load event? Why not the button Click event? Which form is this code behind?

[michaelwh1]

Thanks. I had read that the load event was the correct place to have the script. I moved ot to thye click event and it solved the problem.

[June7]

Not Load, could use Open event of frmDataManage which has an argument for Cancel:

Private Sub Form_Open(Cancel As Integer)
If InputBox("Enter Password") <> "pass" Then
Cancel = True
MsgBox ("You're not authorized")
DoCmd.OpenForm "frmMainScreen"
End If

[michaelwh1]

Thanks. That also works.