Closing one form after another opens 1

[merlynsdad]

From my opening screen, I'm inserting a password feature for the Administrator on one of the buttons. I want the frmMain to close when frmAdmin opens. Here's the code:

Private Sub btnAdmin_Enter()

Dim strPW As String
Dim strInput As Variant

strPW = "password"
strInput = InputBox("Enter Administrator password")
If strInput = strPW Then
    DoCmd.OpenForm "frmAdmin"
    DoCmd.Close acForm, "frmMain"
Else
    Exit Sub
End If

End Sub

I'm getting an error saying this action can't be carried out wihle processing a form. What did I do wrong?

If the square peg won't fit in the round hole, sand off the corners.

 

[MazeWorX]

then reverse the events ... maybe

close the current form then open the next

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>

 

[Gammachaser]

Put the

DoCmd.Close acForm, "frmMain"

in the Form_Open Event of frmAdmin.

Or, if you are going to return to frmMain when you close frmAdmin, just make frmMain invisible when you enter frmAdmin, and visible when you leave.

Forms("frmMain").Visible = False

 

[merlynsdad]

OK, I put the DoCmd.Close acForm, "frmMain"
in the form open event of frmAdmin, and got the same error. Reversing them doesn't work either.

If the square peg won't fit in the round hole, sand off the corners.

 

[merlynsdad]

Actually, now it's working. Don't know why it didn't before. Thanks.

If the square peg won't fit in the round hole, sand off the corners.

 

[MazeWorX]

Private Sub btnAdmin_Enter() should be an on click event

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>

 

[merlynsdad]

You're right; it was that way when I inherited the db. They wrote it with macros instead of VBA, then had Access convert the macros to VBA. What a mess! I'm dumping the macros and rewriting it in VBA. Thanks.

If the square peg won't fit in the round hole, sand off the corners.