Funktion zum nummerieren der Datensätze im Endlosformular
Function FctNr() 'Anzeige der laufenden Nummer 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 Formular ein Textfeld mit Schrifttyp 'Terminal' und Größe mindestens 20 einfügen (Position nach hinten)
alle drei Listenzeilen wird das Textfeld mit Vollfarbe gefüllt (Textfarbe=Zeilenfarbe)
=Wenn((((FctNr()-1)\3) Mod 2)=1;"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";Null)