ACC: Erstellen von benutzerdefiniertem Navigationsschaltflächen (Videorekorder) in einem Formular

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

Wie Verwenden der benutzerdefinierten Navigationsfunktionen für ein Formular

1. Öffnen Sie das Formular "Orders" (Bestellungen) in der Entwurfsansicht.
2. Erstellen Sie vier Schaltflächen in dem Formular, um Navigation unter den Auftragdatensätzen zu vereinfachen. Positionieren Sie die Schaltflächen nebeneinander 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 in dem Formular Bestellungen Unterformular, um Navigation unter den Datensätzen zu vereinfachen. Positionieren Sie die Schaltflächen nebeneinander 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