This is an old revision of the document!
Dieses kleine Tutorial zweigt, wie man in einem Datensheet oder einem Endlosform eine Zeilennummer anzeigen kann
tbxRowNr
.=rowNr()
mitgeben.Option Compare Database Option Explicit '------------------------------------------------------------------------------- ' -- Settings '------------------------------------------------------------------------------- Private Const C_ROWNR_CONTROL = "tbxRowNr" 'Name des Steuerelemtens mit der Zeilennummer '------------------------------------------------------------------------------- ' -- Private Members '------------------------------------------------------------------------------- Private pRowNr As Long 'SPeichern der letzten Zeilennummer '------------------------------------------------------------------------------- ' -- Private Events '------------------------------------------------------------------------------- '/** ' * Bei Löschen, hinzufügen, Filtern etc. neu berechnen ' */ Private Sub Form_Current() pRowNr = 0 'Nummer zurücksetzen Me(C_ROWNR_CONTROL).Requery 'Nummer neu berechnen End Sub '------------------------------------------------------------------------------- ' -- Public Methodes '------------------------------------------------------------------------------- '/** ' * Gibt die nächste Zeilennummer zurück ' * @return Long/Null ' */ Public Function rowNr() As Variant 'Letzter leerer zukünftiger Datensatz nicht berechnen If Me.Recordset.RecordCount <= pRowNr Then rowNr = Null Else pRowNr = pRowNr + 1 'Letze Nummer eins hochrechnen rowNr = pRowNr 'und zurückgeben End If End Function