Fortlaufende Nummer

Function FctNr()
'gibt eine laufende Nummer im Formular zurück
'Anzeige im Formular durch ein Feld mit Steuerelementinhalt: =FctNr()

On Error GoTo FctNr_Error

Me.RecordsetClone.Bookmark = Me.Bookmark
FctNr = Me.RecordsetClone.AbsolutePosition + 1

FctNr_Exit:
Exit Function

FctNr_Error:
If Err.Number = 3021 Then FctNr = 0 'bei neuem DS
Resume FctNr_Exit

End Function

Im entsprechenden Feld = FctNr()  eingeben

Professionelles Skript - fand ich sehr gut Office 365