Lehrgangsnummern vergeben

[Durmnion]

Hallo,

ich bräuchte mal eure Hilfe:

Ich bin gerade bei der Erstellung einer Lehrgangsverwaltung. Dabei möchte ich gern interne Lehrgangsnummern nach einem vorgegebenen Schema vergeben:

"FortlaufendeNummer/Jahr" z.B. 44/2014

Dabei ist aber noch zu beachten, dass diese Nummer nur nach Auswahl der Lehrgangsart vergeben werden darf, und jede Lehrgangsart eine eigene fortlaufende Nummer besitzt. So kann es beispielsweise den Lehrgang A 11/2014 geben und dann auch den Lehrgang B 11/2014. Die Lehrgangsart wird aus einem Listenfeld bestimmt, wodurch sich dann automatisch die neue Lehrgangsnummer ergeben soll.

Ich hoffe ihr könnt mir irgendwie helfen. Ich habe es schon mit der Abfrage mittels "DomAnzahl" versucht, komme aber nicht weiter die Voraussetzung der Lehrgangsart einzufügen.

LG Durmnion

[DF6GL]

Hallo,

für welchen Zweck wir diese "Lehrgangsnummer" gebraucht und welchen Einfluß soll die Jahreszahl dabei haben?

[Durmnion]

Diese Lehrgangsnummer ist das standartmäßige Format um Lehrgänge eindeutig zu identifizieren und Voraussetzung für die Abrechnung.

Die Jahreszahl gibt einfach nur das Jahr des Lehrganges an. Im nächsten Jahr beginnt die fortlaufende nummerierung wieder bei "01".

LG

[DF6GL]

Hallo,

um die Hinterfragung weiter zu strapazieren:

Was passiert, wenn es mehr als 99 Lehrgänge einer bestimmten Lehrgangsart im Jahr gibt?

Wie ist dieses Paradoxon aufzulösen?:

"Lehrgänge eindeutig zu identifizieren und Voraussetzung für die Abrechnung."
mit dieser Aussage:
"jede Lehrgangsart eine eigene fortlaufende Nummer besitzt"

Wie auch immer, um eine "laufende Nr" pro Lehrgangsart und Jahr nach vorgegebenem Format zu generieren, könnte eine solche Funktion eingesetzt werden (Roh-Code, ohne Error-Handling und ohne Kenntnis der tatsächlich vorhandenen Felder- und Tabellennamen):

Code [Auswählen] Erweitern

Public Function fktCreateLGNr(LGArt As Long)
Dim lngLGNR As Long
lngLGNR = Nz(DMax("val(left(LgNr,instr(LgNr,'/')-1))", "tblLehrgaenge", "LGArt=" & LGArt & "  And val(Right(LGNr,4)) = Year(Date())"), 0) + 1
fktCreateLGNr = Format(lngLGNR, "00\/") & Year(Date)
End Function



Aufruf dann in der Eigenschaft "Standardwert" des entspr. Formular-Textfeldes, das die Lehrgangsnummer anzeigt.

[Durmnion]

Oh...denk dir einfach die "0" weg. Wenn es mehr als 99 Lehrgänge gibt geht es einfach mit 100, 101 usw. weiter...