ACC: How to benutzerdefinierte Navigationsschaltflächen (VCR) in einem Formular erstellen

   '*******************************************
   ' 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
				

Zum Anfang

So verwenden Sie die benutzerdefinierte Navigationsbereich-Funktion in einem Formular

1. Öffnen Sie das Formular "Orders" (Bestellungen) in der Entwurfsansicht.
2. Erstellen Sie vier Schaltflächen im Formular um die Navigation zwischen der Orders-Datensätze zu vereinfachen. Platzieren Sie diese Schaltflächen nebeneinander an, mit den folgenden Eigenschaften:
   

         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. Erstellen Sie vier Schaltflächen im Formular Bestellungen Unterformular zur Vereinfachung der Navigation zwischen den Datensätzen. Platzieren Sie diese Schaltflächen nebeneinander an, mit den folgenden Eigenschaften:
   

         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")
   						

Zum Anfang