Laufende Nummerierung im Endlosformular mit einer Bedingung neu starten

[maxster]

Hallo zusammen,

ich habe folgendes Problem ich möchte in einem Endlosformular ein Steuerelement mit einer laufenden Nummerierung versehen, das habe ich dank Donkarl auch hinbekommen. Nun möchte ich aber das die Nummerierung bei einer Bedingung anhält und wieder von 1 anfängt zu zählen. Die Bedingung ist das der Wert einer laufenden Summe in einem anderen Steuerelement >450 ist. Da ich in VBA nicht sonderlich bewandert bin bitte ich um Hilfe.

Der Code für die laufende Nummerierung ist:

Function FctNr()
    'gibt eine laufende Nummer im Formular zurück
    'Anzeige im Formular durch ein Feld mit Steuerelementinhalt: =FctNr()
    Me.RecordsetClone.Bookmark = Me.Bookmark
    FctNr = Me.RecordsetClone.AbsolutePosition + 1
FctNr_Exit:
    Exit Function

End Function

Ich bin für jeden Lösungsvorschlag Dankbar

[DF6GL]

Hallo,

zunächst die Frage: Welchen hintergründlichen Sinn hat die Übung?

[maxster]

Hallo DF6GL,

der hintergründliche Sinn ist, in unserer Firma haben wir eine Lackieranlage mit einem Kreisförderer (Kette) diese ist 450m lang, auf dieser Kette werden Teileträger in bestimmten Abständen aufgehangen. Sind die 450m voll bezeichnen wir das als eine Runde, um nun die Kette im Vorfeld planen zu können möchte ich das die laufende Nummerierung beim erreichen der 450m wieder bei 1 beginnt um eine saubere Darstellung einer Runde zu signalisieren.

[DF6GL]

Hallo,

solches kann mit einem Bericht besser realisiert werden.

Irgendwie müssen zunächst die Teileträger-Abstände bekannt sein, um damit die Anzahl der Teileträger pro Runde ermitteln zu können.
Danach kann in einem Bericht (evtl. mit Hilfe der Modulo-Funktion) nach einzelnen Runden gruppiert und eine laufende Nr über die Gruppe erzeugt werden.

[maxster]

Vielen Dank

ich habe schon eine Lösung für mein Problem gefunden ich benutze zur Signalisierung der Runden einfach die Bedingte Formatierung