ACC: How to Trap Keystrokes That Leave a Control on a Form (113547)

MORE INFORMATION

In Microsoft Access 7.0 and 97

In Microsoft Access 7.0 and 97, the ability to trap keystrokes has been greatly improved and enhanced. The KeyDown event is all you need to trap the keystrokes; then, you can change the ones that leave the form to a value of zero. This is demonstrated in the following sample Visual Basic for Applications code segment:

   Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
       Select Case KeyCode
           ' If user presses TAB, ENTER, PAGE UP, PAGE DOWN
           Case 13, 9, 33, 34
               ' Disable the keystroke by setting it to 0
               KeyCode = 0
           Case Else
               Debug.Print KeyCode, Shift
       End Select
   End Sub
				

NOTE: In Microsoft Access 7.0 and Microsoft Access 97 controlling the tab order is much easier.

If you are writing this code to control where the TAB key moves next in a form, consider using the TabStop property or the Tab Order menu option.

To control the Tab Order for a form with the menus Open the form in design view.

On the View menu click Tab Order.

To find more information about the TabStop property

On the Help menu click Contents and Index.

In the Index tab, type tabstop without the quotes.

In Microsoft Access 1.x and 2.0

The example below demonstrates how to use the GetKeyState() Windows application programming interface (API) call to detect which key or key combination is used to exit a control on a form. This technique can be used to prevent a user from exiting a control, or to remap the key or key combination to a different action:

NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

1. Create a module and type the following line in the Declarations section:

         Option Explicit
   
   Global Const VK_CONTROL = &H11
         Global Const VK_SHIFT = &H10
         Global Const VK_TAB = &H9
         Global Const VK_RETURN = &HD
         Global Const VK_PRIOR = &H21  ' PGUP
         Global Const VK_NEXT = &H22   ' PGDN
         Declare Function GetKeyState% Lib "user.exe" (ByVal nKey%)

2. Type the following procedure:

         Function CheckKey ()
            Dim sControl As String
            Dim sShift As String
   
            ' Was the CTRL or SHIFT key used?
            If GetKeyState(VK_CONTROL) < 0 Then sControl = "Ctrl+"
            If GetKeyState(VK_SHIFT) < 0 Then sShift = "Shift+"
   
            ' Was the TAB key used?
            If GetKeyState(VK_TAB) < 0 Then
               MsgBox "You pressed " & sControl & sShift & "TAB!"
            End If
   
            ' Was the ENTER or RETURN key used?
            If GetKeyState(VK_RETURN) < 0 Then
               MsgBox "You pressed " & sControl & sShift & "ENTER!"
            End If
   
            ' Was the PAGE DOWN key used?
            If GetKeyState(VK_NEXT) < 0 Then
               MsgBox "You pressed " & sControl & sShift & "PGDN!"
            End If
   
            ' Was the PAGE UP key used?
            If GetKeyState(VK_PRIOR) < 0 Then
               MsgBox "You pressed " & sControl & sShift & "PGUP!"
            End If
   
         End Function
   						

3. Open any form in Design view, and set any control's OnExit property to:

   =CheckKey()

4. View the form in Form view, select the control you modified in step 3, and then try to exit the control.

The next example demonstrates how to use the GetKeyState() Windows API call in Microsoft Access 1.x to modify the ENTER key's action so that it adds lines to a text box, rather than moving to the next control in the tab order.

NOTE: In Microsoft Access 2.0 you can accomplish this by setting the EnterKeyBehavior property of a control to New Line in Field.

1. Create a module and type the following line in the Declarations section:

         Option Explicit
         Global Const VK_RETURN = &HD
         Declare Function GetKeyState% Lib "user.exe" (ByVal nKey%)
   						

2. Type the following procedure:

         Function MakeEnterAddLines()
            If GetKeyState(VK_RETURN) < 0 Then
               DoCmd CancelEvent
               SendKeys "^{ENTER}"
            End If
         End Function

3. Set the OnExit property of any text box control on any form to:

   =MakeEnterAddLines()

4. View the form in Form view, move to the control you modified, and then press ENTER.

The next example demonstrates how to use the GetKeyState() Windows API call to disable the PAGE UP and PAGE DOWN keys in a form:

1. Create a module and type the following line in the Declarations section:

         Option Explicit
         Global Const VK_PRIOR = &H21  ' PGUP
         Global Const VK_NEXT = &H22   ' PGDN
         Declare Function GetKeyState% Lib "user.exe" (ByVal nKey%)

2. Type the following procedure:

         Function DisablePGUP_PGDN()
            If GetKeyState(VK_PRIOR) < 0 Or GetKeyState(VK_NEXT) < 0 Then
               DoCmd CancelEvent
            End If
         End Function

3. Set the OnExit properties of all the controls on any form where the PAGE UP and PAGE DOWN keys are to be disabled to:

   =DisablePGUP_PGDN()

The next example demonstrates how to use the GetKeyState() Windows API call to cause the TAB key, when it is pressed in the last control in the last record in a subform, to navigate to the next control on the main form:

1. Create a module and type the following line in the Declarations section:

         Option Explicit
         Global Const VK_TAB = &H9
         Global Const VK_SHIFT = &H10
         Declare Function GetKeyState% Lib "user.exe" (ByVal nKey%)

2. Type the following procedure:

         Function TABtoMainForm(F As Form)
            Dim DS As Dynaset
            On Error Goto Bye_TABtoMainForm
            ' Move to last record in form dynaset.
            Set DS = F.Dynaset
            DS.MoveLast
            ' See if the form record is the last record.
            If DS.Bookmark = F.Bookmark Then
               If GetKeyState(VK_TAB) < 0 And Not _
               (GetKeyState(VK_SHIFT) < 0) Then
                  DoCmd CancelEvent
               SendKeys "^{TAB}"
            End If
         End If
   
         Bye_TABtoMainForm:
         End Function

3. Set the OnExit property of the last control in the subform to:

         =TABtoMainForm(Form)