How to program Escape key function in VBA?

[deko]

Is there a way to programmaticall y emulate pressing the Escape key with VBA?
(Access 2003)

What I'm trying to do is clear a field in a form (which otherwise requires
the user to press Escape) after trapping a particular error. For example,
if the user enters a value in a form field that meets certain criteria, I
want to trap this as an error and clear the field with code (same thing as
pressing the Escape key). What code should I use to emulate pressing the
Escape key?

Thanks!

[Jim Allensworth]

On Wed, 31 Dec 2003 15:53:43 GMT, "deko" <dj****@hotmail .com> wrote:

Is there a way to programmaticall y emulate pressing the Escape key with VBA?
(Access 2003)

What I'm trying to do is clear a field in a form (which otherwise requires
the user to press Escape) after trapping a particular error. For example,
if the user enters a value in a form field that meets certain criteria, I
want to trap this as an error and clear the field with code (same thing as
pressing the Escape key). What code should I use to emulate pressing the
Escape key?

Thanks!

Use the Undo method in the Before Update event of the control.

If Me.txtBox = "foo" Then
Me.txtBox.Undo
Cancel = True
End If

- Jim

[deko]

Thanks for the reply.

I'll give it a shot. I'm wondering if Undo is better than SendKeys:

SendKeys "{esc}", True

is there a difference?

Thanks again and happy new year!

"Jim Allensworth" <Ji****@NOTdata centricsolution s.com> wrote in message
news:3f******** ******@netnews. comcast.net...

On Wed, 31 Dec 2003 15:53:43 GMT, "deko" <dj****@hotmail .com> wrote:

Is there a way to programmaticall y emulate pressing the Escape key with VBA?(Access 2003)

What I'm trying to do is clear a field in a form (which otherwise requiresthe user to press Escape) after trapping a particular error. For example,if the user enters a value in a form field that meets certain criteria, I
want to trap this as an error and clear the field with code (same thing aspressing the Escape key). What code should I use to emulate pressing the
Escape key?

Thanks!

Use the Undo method in the Before Update event of the control.

If Me.txtBox = "foo" Then
Me.txtBox.Undo
Cancel = True
End If

- Jim

[Jim Allensworth]

On Wed, 31 Dec 2003 17:30:28 GMT, "deko" <dj****@hotmail .com> wrote:

Thanks for the reply.

I'll give it a shot. I'm wondering if Undo is better than SendKeys:

SendKeys "{esc}", True

is there a difference?
There is a huge difference. You are best to avoid SendKeys. It should
only be used in *very* limited circumstances.

Do a google newgroups search on the subject for more information.
Thanks again and happy new year!

Happy new year to you as well.

- Jim

[deko]

> Do a google newgroups search on the subject for more information.

I did come across some warnings about SendKeys and possible bugs in older
versions of Access.

There is a huge difference. You are best to avoid SendKeys. It should
only be used in *very* limited circumstances.

I'm all for sticking to best practices...

See below for how I'm using the Undo event - but I'm confused about a few
things. any enlightenment is appreciated...

what does "Cancel = True" do? - I tried this but it would not compile. -
just Me.Undo seems to be working okay...
what does "DoCmd CancelEvent" do?
how do I use the "On Undo" field in a form's property sheet?
Private Sub Whatever ()
[code omitted...]
Exit_Here:
Exit Sub
HandleErr:
Select Case Err.Number
Case 3022
Me.Undo
Resume Exit_Here
Case 94
Resume Next
Case Else
modHandler.LogE rr (Me.Form.Name)
Resume Exit_Here
End Select
End Sub

[Jim Allensworth]

The Undo method applies to a control object or a form object. It reset
the object.

When validating data, as you are doing, you can use it in the controls
Before Update event. The Before Update event has a Cancel argument
that when set to True will cancel the update and keep the focus on the
control.

To put what I posted earlier in this context it would be something
like...

Private Sub txtBox_BeforeUp date(Cancel As Integer)
If Me.txtBox = "foo" Then
MsgBox "No Foos allowed."
Me.txtBox.Undo
Cancel = True
End If
End Sub

For use in a form you might use Me.Undo in the Form's Before Update
event to reset the entire form.

- Jim

On Wed, 31 Dec 2003 21:53:15 GMT, "deko" <dj****@hotmail .com> wrote:

Do a google newgroups search on the subject for more information.

I did come across some warnings about SendKeys and possible bugs in older
versions of Access.

There is a huge difference. You are best to avoid SendKeys. It should
only be used in *very* limited circumstances.

I'm all for sticking to best practices...

See below for how I'm using the Undo event - but I'm confused about a few
things. any enlightenment is appreciated...

what does "Cancel = True" do? - I tried this but it would not compile. -
just Me.Undo seems to be working okay...
what does "DoCmd CancelEvent" do?
how do I use the "On Undo" field in a form's property sheet?
Private Sub Whatever ()
[code omitted...]
Exit_Here:
Exit Sub
HandleErr:
Select Case Err.Number
Case 3022
Me.Undo
Resume Exit_Here
Case 94
Resume Next
Case Else
modHandler.LogE rr (Me.Form.Name)
Resume Exit_Here
End Select
End Sub