Pressing Enter does not work

[khughes46]

I have a form named Password to check for a password to be entered in a text box and open another form. However I have to click a command button in order for it to work. Here is the code I am using; what change do I need to make. I am a real beginner with VBA, but used to be a programmer using Cobol II and SQL in the 80's so I understand logic. Any help would be appreciated. Thanks.

Option Compare Database


Private Sub ckPassword_Click()
If IsNull(Forms!Password!.Text1.Value) Then
MsgBox "Password cannot be blank. Try again."
Me!Text1.SetFocus
Else
MyPassword = Me!Text1.Value
If (Forms!Password!.Text1.Value) <> "Oscar" Then
MsgBox "Wrong Password. Try again."
Me!Text1.SetFocus
Else
MyPassword = Me!Text1.Value
DoCmd.Close acForm, "Password"
DoCmd.OpenForm "Deans Page"
End If
End If
End Sub
Private Sub Text1_Enter()
End Sub

[ItsMe]

However I have to click a command button in order for it to work

I do not understand what is working and what is not working. If a command button has focus the user can trigger the On Click event by using the Enter key in their keyboard. As for the code you posted, I do not believe it will work because of the following line ...

If (Forms!Password!.Text1.Value) <> "Oscar" Then

It would have to be changed to
If (Forms!Password!Text1.Value) <> "Oscar" Then

OR
If (Me.Text1.Value) <> "Oscar" Then

[khughes46]

On the Password Form I have a text Box with a label that says: Enter Password, followed by the Text Box with an Input Mask of Password, below that is a command button that says Check Password. When I enter the password in the text box, nothing happens, not until I click the command button and the password form closes and the next form opens. How do I get this to work by pressing the Enter Key?

[orange]

Try this:

Set the button's DEFAULT property to YES.

Also, what do you think this code of yours is doing??
Private Sub Text1_Enter()
End Sub

[khughes46]

That did the trick. The code is doing exactly what I want it to do. If no password is entered a message saying no blank passwords allowed, try again comes up, if an incorrect password is entered a message saying wrong password was entered, try again, if the right password is entered the password form is closed and the next for is opened.