Need help with password form

[mforema]

Hey Everybody,
I have a form with a label ("Enter Password"), a textbox (with a password InputMask), and two command buttons ("OK" and "Cancel"). I've successfully written code for the "OK" command button to check the password in the textbox with an OnClick event. It then either opens the authorized form or it doesn't.

However, I would also like to set an event for the textbox, so when the user hits the Enter key, the same code is executed as for the "OK" button's OnClick event. I tried running the code below, but I kept getting a response stating, "This action can't be carried out while processing a form or report event."

Private Sub txtEnterPassword_Exit(Cancel As Integer)
On Error GoTo Err_txtEnterPassword_Exit
 
    Dim stDocName As String, stLinkCriteria As String
 
    If Me.txtEnterPassword = "proc_eng" Then
        ' Password is correct; open form below and exit Main Menu.
        stDocName = "Add Column"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.Close acForm, "Main Menu"
        DoCmd.Close acForm, "Authorization Required"
    Else
        MsgBox "Incorrect Password", vbOKOnly, "Access Denied"
        ' Password is incorrect.
    End If
 
Exit_txtEnterPassword_Exit:
    Exit Sub
 
Err_txtEnterPassword_Exit:
    MsgBox Err.Description
    Resume Exit_txtEnterPassword_Exit
End Sub

I found that the DoCmd.Close acForm, "Authorization Required" line of code was the problem. If I delete it, the rest of the code works. However, I need that form to close. What did I do wrong? How do I fix it? Please post the exact changes that need to be made.

Thanks!

[mforema]

Hey Everybody,
I have a form with a label ("Enter Password"), a textbox (with a password InputMask), and two command buttons ("OK" and "Cancel"). I've successfully written code for the "OK" command button to check the password in the textbox with an OnClick event. It then either opens the authorized form or it doesn't.

However, I would also like to set an event for the textbox, so when the user hits the Enter key, the same code is executed as for the "OK" button's OnClick event. I tried running the code below, but I kept getting a response stating, "This action can't be carried out while processing a form or report event."

Private Sub txtEnterPassword_Exit(Cancel As Integer)
On Error GoTo Err_txtEnterPassword_Exit
 
    Dim stDocName As String, stLinkCriteria As String
 
    If Me.txtEnterPassword = "proc_eng" Then
        ' Password is correct; open form below and exit Main Menu.
        stDocName = "Add Column"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        DoCmd.Close acForm, "Main Menu"
        DoCmd.Close acForm, "Authorization Required"
    Else
        MsgBox "Incorrect Password", vbOKOnly, "Access Denied"
        ' Password is incorrect.
    End If
 
Exit_txtEnterPassword_Exit:
    Exit Sub
 
Err_txtEnterPassword_Exit:
    MsgBox Err.Description
    Resume Exit_txtEnterPassword_Exit
End Sub

I found that the DoCmd.Close acForm, "Authorization Required" line of code was the problem. If I delete it, the rest of the code works. However, I need that form to close. What did I do wrong? How do I fix it? Please post the exact changes that need to be made.

Thanks!

Can someone help me?

[MMcCarthy]

Try putting your code in the After Update event of the textbox

[hyperpau]

Can someone help me?

Put an after_update event on the txtbox
that would set focus on the OK key.

So as soon as user inputs text, focus goes to OK key and
the moment they press enter, the ok key function is called

[wassimdaccache]

I had the same problem once and I changed the order and it works

try to do that ...
DoCmd.Close acForm, "Authorization Required"
DoCmd.Close acForm, "Main Menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria


I'm not an expert member but I think it will works ..please try it and tell me if it works

thank you