ACC: GotoRecord Macro Action Behaves Unexpectedly (141627)

RESOLUTION

This resolution assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

NOTE: Visual Basic for Applications is called Access Basic in Microsoft Access version 2.0. For more information about Access Basic, please refer to the "Building Applications" manual.

To achieve the desired result of selecting the next or previous record on the active form when you press a predefined key, follow these steps:

1. Create a module and type the following line in the Declarations section if it is not already there:
   

         Option Explicit
   						

2. Type the following procedures:
   
   In Microsoft Access 7.0 and 97:
   

         Function GotoPreviousRecord()
            On Error Goto GotoPreviousErrorHndlr
               ' Screen.ActiveForm.Name forces the GotoRecord action
               ' to be applied to the active form.
               DoCmd.GoToRecord acForm, Screen.ActiveForm.Name, acPrevious
            ExitGotoPreviousRecord:
               Exit Function
            GotoPreviousErrorHndlr:
               MsgBox Error$
               Resume ExitGotoPreviousRecord
         End Function
   
         Function GotoNextRecord()
            On Error Goto GotoNextErrorHndlr
               ' Screen.ActiveForm.Name forces the GotoRecord action
               ' to be applied to the active form.
               DoCmd.GoToRecord acForm, Screen.ActiveForm.Name, acNext
            ExitGotoNextRecord:
               Exit Function
            GotoNextErrorHndlr:
               MsgBox Error$
               Resume ExitGotoNextRecord
         End Function
   
      In Microsoft Access 2.0:
   
         Function GotoPreviousRecord()
            On Error Goto GotoPreviousErrorHndlr
               ' Screen.ActiveForm.Name forces the GotoRecord action
               ' to be applied to the active form.
               DoCmd GotoRecord A_FORM, Screen.ActiveForm.Name, A_PREVIOUS
            ExitGotoPreviousRecord:
               Exit Function
            GotoPreviousErrorHndlr:
               MsgBox Error$
               Resume ExitGotoPreviousRecord
         End Function
   
         Function GotoNextRecord()
            On Error Goto GotoNextErrorHndlr
               ' Screen.ActiveForm.Name forces the GotoRecord action
               ' to be applied to the active form.
               DoCmd GotoRecord A_FORM, Screen.ActiveForm.Name, A_NEXT
            ExitGotoNextRecord:
               Exit Function
            GotoNextErrorHndlr:
               MsgBox Error$
               Resume ExitGotoNextRecord
         End Function
   						

3. Create an AutoKeys Macro and assign each key stroke to the macro action RunCode. The RunCode's Function Name argument is the appropriate custom function's name. If you used the examples above, it is either GotoPreviousRecord() or GotoNextRecord().