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

Es war informativ und spannend. Jede(r) der Gruppe kann dem Kurs etwas entnehmen, was er/sie braucht. Office Dienste