Using the escape key to exit forms

[joecamel9166]

I am trying to set the escape key to close out of my form.


here is the code I am using.

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyCode
Case vbKeyEsc
KeyCode = 0
End Select
 Select Case MsgBox("Are You Sure?", vbYesNo)
Case vbYes
If Me.Dirty Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close acForm, "frmReceive", acSaveNo
Case vbNo
DoCmd.CancelEvent
End Select
End Sub

As of now, when I press the esc key, the form is cleared and then the message box pops up.
I want the message box to pop up before the form is cleared. Is this possible?

[joecamel9166]

I just realized that any key that I press is making this code run.

[redbull]

I found this.
http://www.techonthenet.com/access/f...isable_esc.php

that link is about disabling the escape key, but we can pull this code and you can use it however you'd like.


Let me know how it turns out.

Private Sub Form_KeyPress(KeyCode As Integer)


If KeyCode = vbKeyEscape Then
   ClearConfirm = MsgBox("Are You Sure", vbYesno,"Quit?")
    if ClearConfirm = vbyes then
        If Me.Dirty Then
            DoCmd.RunCommand acCmdUndo
        End If
        DoCmd.Close acForm, "frmReceive", acSaveNo
    end if    
else
    DoCmd.CancelEvent    
End If
End Sub

[John_G]

That code won't work as written - the Parameter is KeyAscii, but you are checking KeyCode.

Joecamel -

You could also use a command button on the form to do this (caption it "Quit" or something like that), and put the code below into its On Click event. Set the Cancel property of the command button to Yes. The result is that if you Press ESC while the form is open, that On Click event code will run. It is easier than using KeyPress and checking which character was pressed.

KeyPress is great for intercepting and ignoring the Esc (or any other) key, though.

Code:

Sub QuitButton_OnClick
if  MsgBox("Are You Sure?", vbYesNo) = vbYes then
  If Me.Dirty Then
    DoCmd.RunCommand acCmdUndo
  End If
  DoCmd.Close acForm, "frmReceive", acSaveNo
Endif

End Sub

[joecamel9166]

@Redbull
That didn't work. Ive already seen the link that you put up.

@ John G. Your suggestion kinda worked. It still clears the data from the form before the message box pops up.
Users are accustom to using the escape key to exit the forms, which is why I want to use this along with the close button.
The only thing is is that I don't want the form to clear out until after the selection from the message box.

[redbull]

@Redbull
That didn't work. Ive already seen the link that you put up.

Any specific error? What line?

[joecamel9166]

No error, but it had the same effect (as far as I could tell) as the code I had in place.

[John_G]

I found the answer. You're using the wrong event - use the KeyDown event instead. The KeyPress clears the form and then does the msgbox, whereas the KeyDown asks first.

Here is suggested code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode <> 27 Then Exit Sub  ' Ignore everything except the Esc key
  if MsgBox("Are You Sure?", vbYesNo) = vbno then
    keycode = 0   ' Cancels the Esc key
    exit sub
  endif
  If Me.Dirty Then
    DoCmd.RunCommand acCmdUndo
  End If
  DoCmd.Close acForm, "frmReceive", acSaveNo

End Sub

[redbull]

I found the answer. You're using the wrong event - use the KeyDown event instead. The KeyPress clears the form and then does the msgbox, whereas the KeyDown asks first.

Man I wish I had access installed on my computer, good catch.

[joecamel9166]

John, that worked like a charm.
Thanks Guys!