VBA Tipp: Aktuelle Datensatznummer / Gesamtzahl der Datensätze

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte in einem Formular mit selbstgebauten Navigationselementen wie bei den Access-Navigationsschaltflächen den aktuellen Datensatz und die Gesamtzahl der Datensätze anzeigen lassen.

Lösung

Die folgende Ereignisprozedur für das BeimAnzeigen/OnCurrent-Ereignis leistet das Gewünschte, auf dem Formular muss ein Textfeld "DSNr" vorhanden sein:

Private Sub Form_Current()
Dim RS As Recordset, Tmp As String
  Set RS = Me.RecordsetClone
  If RS.RecordCount > 0 Then
    If Me.NewRecord Then
      Tmp = "*"
    Else
      RS.Bookmark = Me.Bookmark
      Tmp = CStr(RS.AbsolutePosition + 1)
    End If
    RS.MoveLast
  End If
  Me!DSNr = Tmp & " von " & CStr(RS.RecordCount)
  RS.Close
End Sub

Siehe auch

  • Beispieldatenbank NaviButtons (selbst erstellte Navigationsschaltflächen)