Hold backspace action (1 Viewer)

dim · Jan 19, 2019

Hi,

I have a basic form and for entering data, I have to use a keypad (numbers section only) which include a backspace key too.
When a user made a mistake in a specific field, can use the backspace key to correct it but can't move to previous field to make a correction.
I don't know if is possible, but I like to give the possibility to the user to reset the form if will hold the backspace key for more than 5 seconds, so then will start again from the beginning.
So I need a code like,

If SendKeys ("{BACKSPACE}") for >= 5s Then
Docmd.RunMacro "abc"

Thank you for help!

Ranman256 · Jan 19, 2019

cant you just add a button to clear all fields?

theDBguy · Jan 19, 2019

Hi. Not sure if it’s possible but you could try using both the KeyDown and KeyUp events. On keydown, check the key. If it’s the backspace, start the timer. On keyup, check the timer, if more than 5 sec, then reset the form.

June7 · Jan 19, 2019

Don't have ESC key?

dim · Jan 19, 2019

Thanks for fast replay.
No, I don't have TAB or Escape or Mouse.

June7 · Jan 19, 2019

This is an Access db running on a pc? Why is this form so restrictive?

dim · Jan 19, 2019

The idea is to simplify the user action, using only this small keypad (numbers) instate of a big keyboard. Anyway all the data fields are numbers only.

Pat Hartman · Jan 19, 2019

The problem is that when you type in a control and backspace to "remove" the text, you end up with a ZLS rather than null. Esc is the only way to actually empty the field. So, you will have to take this into consideration when you edit the data.

dim · Jan 19, 2019

To refresh, I have a macro which will close and reopen that form.
I'm not so advanced in vba and my question is more related to start an action after a user press a specific key.
If is not possible the action to start after x seconds using Backspace, what code I have to use to start the action without any delay after the user will press for example the key star "*"?
So I need something like:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyStar Then
Docmd.RunMacro "FormRefresh"
End If
End Sub

Thank you

June7 · Jan 19, 2019

Form KeyPress event only works if the form has no controls or controls are not visible or are disabled because that's the only way form can get focus.

Would have to use the KeyPress event of controls.

If KeyAscii = 42 Then

Hold backspace action (1 Viewer)

dim

Registered User.

Ranman256

Well-known member

theDBguy

I’m here to help

June7

AWF VIP

dim

Registered User.

June7

AWF VIP

dim

Registered User.

Pat Hartman

Super Moderator

dim

Registered User.

June7

AWF VIP

Similar threads

Users who are viewing this thread