ACC: How to Create Custom Navigation (VCR) Buttons on a Form (104683)

MORE INFORMATION

The following sample module demonstrates Access Basic functions that can be used to create custom buttons for navigating among first, last, previous, and next records on a form. Functions are provided to navigate through forms as well as subforms.

To create custom navigation buttons on a form, create a new module with the following Access Basic code:

   '*******************************************
   ' MODULE DECLARATION SECTION
   '*******************************************
   Option Explicit
   Dim RetVal As Variant

   '*******************************************
   ' MODULE FUNCTIONS
   '*******************************************

   Function GotoFirstRecord ()
      RetVal = GotoRecord(A_FIRST)
   End Function

   Function GotoLastRecord ()
      RetVal = GotoRecord(A_LAST)
   End Function

   Function GotoNextRecord ()
      RetVal = GotoRecord(A_NEXT)
   End Function

   Function GotoPrevRecord ()
      RetVal = GotoRecord(A_PREVIOUS)
   End Function

   Function GotoFirstSubRecord (SubControlName As String)
      DoCmd GoToControl SubControlName
      RetVal = GotoFirstRecord()
   End Function

   Function GotoLastSubRecord (SubControlName As String)
      DoCmd GoToControl SubControlName
      RetVal = GotoLastRecord()
   End Function

   Function GotoNextSubRecord (SubControlName As String)
      DoCmd GoToControl SubControlName
      RetVal = GotoNextRecord()
   End Function

   Function GotoPrevSubRecord (SubControlName As String)
      DoCmd GoToControl SubControlName
      RetVal = GotoPrevRecord()
   End Function

   Function GotoRecord (Direction)
      On Error Resume Next
      DoCmd GoToRecord , , Direction
   End Function
				

How to Use the Custom Navigation Functions on a Form

The steps listed below demonstrate how to use the Access Basic functions detailed above to add custom navigation buttons to the Orders and the Orders Subform forms in the sample database NWIND.MDB included with Microsoft Access:

1. Open the Orders form in Design view.
2. Create four buttons on the form to facilitate navigation among the Orders records. Place these buttons side by side, with the following properties:
   

         Command Button : btnGotoFirstRecord
            Caption: <<
            OnClick: =GotoFirstRecord()
   
            NOTE: In version 1.x, the OnClick property is called the OnPush
            property.
   
         Command Button : btnGotoPrevRecord
            Caption: <
            OnClick: =GotoPrevRecord()
   
         Command Button : btnGotoNextRecord
            Caption: >
            OnClick: =GotoNextRecord()
   
         Command Button : btnGotoLastRecord
            Caption: >>
            OnClick: =GotoLastRecord()
   						

3. Create four buttons on the Orders Subform form to facilitate navigation among the records. Place these buttons side by side, with the following properties:
   

         Command Button : btnGotoFirstSubRecord
            Caption: <<
            OnClick: =GotoFirstSubRecord("Orders Subform")
   
         Command Button : btnGotoPrevSubRecord
            Caption: <
            OnClick: =GotoPrevSubRecord("Orders Subform")
   
         Command Button : btnGotoNextSubRecord
            Caption: >
            OnClick: =GotoNextSubRecord("Orders Subform")
   
         Command Button : btnGotoLastSubRecord
            Caption: >>
            OnClick: =GotoLastSubRecord("Orders Subform")
   						

NOTE: These buttons can be placed on the main form or on the subform. The argument being passed to the function ("Orders Subform") is the name of the subform control.