Pressing Esc to make a form disappear
 

I have a form with the usual OK and Cancel buttons. To problems
whatsoever with those buttons. But I have a finicky user who asks if
he can just make the form disappear by pressing the Esc key (he
doesn't want to have to move his mouse to the Cancel button and click,
or use an Alt + accelerator key, or use the tab key to go there. As I
said, he's finicky.)

I'm drawing a blank on how to have Excel read an Esc key as a trigger
to hide and unload the form. Any suggestions?

Pressing Esc to make a form disappear
 

You can use the .cancel property for that commandbutton. You can change it in
the properties window (for that commandbutton).

Or you can use code:

Option Explicit
Private Sub CommandButton1_Click()
MsgBox "Hi from Ok"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Me.CommandButton1
.Caption = "Ok"
.Default = True
End With

With Me.CommandButton2
.Caption = "Cancel"
.Cancel = True
End With
End Sub




jayray wrote:

I have a form with the usual OK and Cancel buttons. To problems
whatsoever with those buttons. But I have a finicky user who asks if
he can just make the form disappear by pressing the Esc key (he
doesn't want to have to move his mouse to the Cancel button and click,
or use an Alt + accelerator key, or use the tab key to go there. As I
said, he's finicky.)

I'm drawing a blank on how to have Excel read an Esc key as a trigger
to hide and unload the form. Any suggestions?

--

Dave Peterson

Pressing Esc to make a form disappear
 

On Jul 29, 5:04*pm, Dave Peterson wrote:
You can use the .cancel property for that commandbutton. *You can change it in
the properties window (for that commandbutton).

Or you can use code:

Option Explicit
Private Sub CommandButton1_Click()
* * MsgBox "Hi from Ok"
End Sub
Private Sub CommandButton2_Click()
* * Unload Me
End Sub
Private Sub UserForm_Initialize()
* * With Me.CommandButton1
* * * * .Caption = "Ok"
* * * * .Default = True
* * End With

* * With Me.CommandButton2
* * * * .Caption = "Cancel"
* * * * .Cancel = True
* * End With
End Sub

jayray wrote:

I have a form with the usual OK and Cancel buttons. To problems
whatsoever with those buttons. But I have a finicky user who asks if
he can just make the form disappear by pressing the Esc key (he
doesn't want to have to move his mouse to the Cancel button and click,
or use an Alt + accelerator key, or use the tab key to go there. As I
said, he's finicky.)

I'm drawing a blank on how to have Excel read an Esc key as a trigger
to hide and unload the form. Any suggestions?

--

Dave Peterson

I meant to say "No problems whatsoever with the OK and Cancel
buttons".

Thanks for the reply. The problem I am trying to solve is to make the
form disappear WITHOUT pressing either the OK or Cancel buttons on the
form. I would like the form to disappear by pressing the Esc key.

Pressing Esc to make a form disappear
 

What happened when you tried the suggestion?

jayray wrote:

On Jul 29, 5:04 pm, Dave Peterson wrote:
You can use the .cancel property for that commandbutton. You can change it in
the properties window (for that commandbutton).

Or you can use code:

Option Explicit
Private Sub CommandButton1_Click()
MsgBox "Hi from Ok"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Me.CommandButton1
.Caption = "Ok"
.Default = True
End With

With Me.CommandButton2
.Caption = "Cancel"
.Cancel = True
End With
End Sub

jayray wrote:

I have a form with the usual OK and Cancel buttons. To problems
whatsoever with those buttons. But I have a finicky user who asks if
he can just make the form disappear by pressing the Esc key (he
doesn't want to have to move his mouse to the Cancel button and click,
or use an Alt + accelerator key, or use the tab key to go there. As I
said, he's finicky.)

I'm drawing a blank on how to have Excel read an Esc key as a trigger
to hide and unload the form. Any suggestions?

--

Dave Peterson

I meant to say "No problems whatsoever with the OK and Cancel
buttons".

Thanks for the reply. The problem I am trying to solve is to make the
form disappear WITHOUT pressing either the OK or Cancel buttons on the
form. I would like the form to disappear by pressing the Esc key.

--

Dave Peterson

Pressing Esc to make a form disappear
 

On Jul 29, 8:23*pm, Dave Peterson wrote:
What happened when you tried the suggestion?





jayraywrote:

On Jul 29, 5:04 pm, Dave Peterson wrote:
You can use the .cancel property for that commandbutton. *You can change it in
the properties window (for that commandbutton).

Or you can use code:

Option Explicit
Private Sub CommandButton1_Click()
* * MsgBox "Hi from Ok"
End Sub
Private Sub CommandButton2_Click()
* * Unload Me
End Sub
Private Sub UserForm_Initialize()
* * With Me.CommandButton1
* * * * .Caption = "Ok"
* * * * .Default = True
* * End With

* * With Me.CommandButton2
* * * * .Caption = "Cancel"
* * * * .Cancel = True
* * End With
End Sub

jayraywrote:

I have a form with the usual OK and Cancel buttons. To problems
whatsoever with those buttons. But I have a finicky user who asks if
he can just make the form disappear by pressing the Esc key (he
doesn't want to have to move his mouse to the Cancel button and click,
or use an Alt + accelerator key, or use the tab key to go there. As I
said, he's finicky.)

I'm drawing a blank on how to have Excel read an Esc key as a trigger
to hide and unload the form. Any suggestions?

--

Dave Peterson

I meant to say "No problems whatsoever with the OK and Cancel
buttons".

Thanks for the reply. The problem I am trying to solve is to make the
form disappear WITHOUT pressing either the OK or Cancel buttons on the
form. I would like the form to disappear by pressing the Esc key.

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Hey...what the...WOW! My apologies. I couldn't see where the magic
was (I still don't). Thanks very much.

Pressing Esc to make a form disappear
 

On Jul 30, 1:00*pm, jayray wrote:
On Jul 29, 8:23*pm, Dave Peterson wrote:





What happened when you tried the suggestion?

jayraywrote:

On Jul 29, 5:04 pm, Dave Peterson wrote:
You can use the .cancel property for that commandbutton. *You can change it in
the properties window (for that commandbutton).

Or you can use code:

Option Explicit
Private Sub CommandButton1_Click()
* * MsgBox "Hi from Ok"
End Sub
Private Sub CommandButton2_Click()
* * Unload Me
End Sub
Private Sub UserForm_Initialize()
* * With Me.CommandButton1
* * * * .Caption = "Ok"
* * * * .Default = True
* * End With

* * With Me.CommandButton2
* * * * .Caption = "Cancel"
* * * * .Cancel = True
* * End With
End Sub

jayraywrote:

I have a form with the usual OK and Cancel buttons. To problems
whatsoever with those buttons. But I have a finicky user who asks if
he can just make the form disappear by pressing the Esc key (he
doesn't want to have to move his mouse to the Cancel button and click,
or use an Alt + accelerator key, or use the tab key to go there. As I
said, he's finicky.)

I'm drawing a blank on how to have Excel read an Esc key as a trigger
to hide and unload the form. Any suggestions?

--

Dave Peterson

I meant to say "No problems whatsoever with the OK and Cancel
buttons".

Thanks for the reply. The problem I am trying to solve is to make the
form disappear WITHOUT pressing either the OK or Cancel buttons on the
form. I would like the form to disappear by pressing the Esc key.

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Hey...what the...WOW! *My apologies. I couldn't see where the magic
was (I still don't). Thanks very much.- Hide quoted text -

- Show quoted text -

I see the magic is changing the properties of the Cancel button to
True (which is what you said at the very beginning. Obviously a case
of pearls before swine).

Pressing Esc to make a form disappear
 

You found the magic for the ".cancel = true" bit, but what does the ".default =
true" stuff do?



jayray wrote:

<<snipped
I see the magic is changing the properties of the Cancel button to
True (which is what you said at the very beginning. Obviously a case
of pearls before swine).

--

Dave Peterson