/ Snippet Library - View Code

Snippet details

ID: 185

Viewed: 1299

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

How to capture keys pressed to use as keyboard shortcuts.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'Capture Alt key Dim AltDown AltDown = (Shift And vbAltMask) > 0 'Alt + A = Shortcut for AddNew If AltDown And KeyCode = vbKeyA Then ' A = Add Data1.Recordset.AddNew End If 'See Key code constants in help file for other key codes End Sub

No Reviews to show