Private Sub object_KeyPress(KeyAscii As Integer)
Object The name of a Form or control on a Form.
KeyAscii Returns a numeric ANSI key code. The KeyAscii argument is passed by reference; changing it sends a different character to the object. Setting the KeyAscii argument to 0 cancels the keystroke so that the object doesn't recognize that a key was pressed.
Remarks
Note The KeyPress event applies only to forms and controls on a form, not controls on a report.
To run a macro or event procedure when this event occurs, set the OnKeyPress property to the name of the macro or to [Event Procedure].
The object with the focus receives all keystrokes. A form can have the focus only if it has no controls or all its visible controls are disabled.
A form will also receive all keyboard events, even those that occur for controls, if you set the KeyPreview property of the form to Yes. With this property setting, all keyboard events occur first for the form, and then for the control that has the focus. You can respond to specific keys pressed in the form, regardless of which control has the focus. For example, you may want the key combination CTRL+X to always perform the same action on a form.
If you press and hold down an ANSI key, the KeyDown and KeyPress events alternate repeatedly (KeyDown, KeyPress, KeyDown, KeyPress, and so on) until you release the key, then the KeyUp event occurs.
A KeyPress event can involve any printable keyboard character, the CTRL key combined with a character from the standard alphabet or a special character, and the ENTER or BACKSPACE key. You can use the KeyDown and KeyUp event procedures to handle any keystroke not recognized by the KeyPress event, such as function keys, navigation keys, and any combinations of these with keyboard modifiers (ALT, SHIFT, or CTRL keys). Unlike the KeyDown and KeyUp events, the KeyPress event doesn't indicate the physical state of the keyboard; instead, it indicates the ANSI character that corresponds to the pressed key or key combinations.
KeyPress interprets the uppercase and lowercase of each character as separate key codes and, therefore, as two separate characters.
Note The BACKSPACE key is part of the ANSI character set, but the DEL key isn't. If you delete a character in a control by using the BACKSPACE key, you cause a KeyPress event; if you use the DEL key, you don't.
The KeyDown and KeyPress events occur when you press or send an ANSI key. The KeyUp event occurs after any event for a control caused by pressing or sending the key. If a keystroke causes the focus to move from one control to another control, the KeyDown event occurs for the first control, while the KeyPress and KeyUp events occur for the second control.
For example, if you go to a new record and type a character in the first control in the record, the following events occur:
Current (for the new record)
ß
Enter (for the first control in the new record)
ß
GotFocus (for the control)
ß
KeyDown (for the control)
ß
KeyPress (for the control)
ß
BeforeInsert (for the new record in the form)
ß
Change (for the control if it's a text box or combo box)
ß
KeyUp (for the control)
For more information, see Order of events for keystrokes and mouse clicks.
Macro
You can use a KeyPress macro to respond whenever the user presses an ANSI key while the focus is on a form or control. However, macros can't return the ANSI key code and determine which key was pressed, so you typically use event procedures with this event.
You can use the CancelEvent action in a KeyPress macro to cancel the key or key combination. For example, you may want to disallow the entry of ANSI keystrokes in a control under certain conditions.
Example
The following example converts text entered in a text box to uppercase as the text is typed in, one character at a time.
To try the example, add the following event procedure to a form that contains a text box named ShipRegion.
Private Sub ShipRegion_KeyPress(KeyAscii As Integer)
Dim strCharacter As String
' Convert ANSI value to character string.
strCharacter = Chr(KeyAscii)
' Convert character to upper case, then to ANSI value.
KeyAscii = Asc(UCase(strCharacter))
End Sub