Fortlaufende Zahl

22/03/2010 - 16:34 von Mumelter Jörg | Report spam
Hallo an alle
Nochmals das gleiche problem: wie kann ich eine Fortlaufende Zahl (001/2010,
002/2010, 003/2010 usw.) so programmieren, dass bei Jahresanfang die Zahl
wieder mit 001 beginnt und dahinter die richtige Jahreszahl kommt (001/2010,
002/2010, 003/2010, , 001/2011, 002,2011, 003/2011 usw.)
Für die vielen Antworten im voraus dankend
jörg
 

Lesen sie die antworten

#1 Stefan Dase
22/03/2010 - 17:04 | Warnen spam
Hallo Jörg!

Nochmals das gleiche problem: wie kann ich eine Fortlaufende Zahl
(001/2010, 002/2010, 003/2010 usw.) so programmieren, dass bei
Jahresanfang die Zahl wieder mit 001 beginnt und dahinter die richtige
Jahreszahl kommt (001/2010, 002/2010, 003/2010, , 001/2011,
002,2011, 003/2011 usw.)



1. Laufende Zahl und Jahr getrennt speichern.

2. Formatierung mit führenden Nullen ("001", "002" usw.) nur bei der
Ausgabe machen, z.B. mittels Format()-Funktion. Der Zàhler kann damit
als Zahl (Long) gespeichert werden.

3. Einen Autowert kannst du nicht verwenden, d.h. die Daten können nur
in Formularen oder per VBA eingetragen werden. Dann kannst z.B. mittels
der DMax-Methode den letzten Wert für das Jahr finden und eins dazuzàhlen:

Public Function getNaechstenZaehler(FuerJahr As Integer) As Long

Dim vLetzterZaehler As Variant 'Variant, da ggf. keine Treffer

vLetzterZaehler = DMax("ZaehlerFeld", "TabellenName", _
"Jahr = " & FuerJahr)
If IsNull(vLetzterZaehler) Then
getNaechstenZaehler = 1
Else
getNaechstenZaehler = CLng(vLetzterZaehler) + 1
End If

End Function

HTH,
Stefan

Ähnliche fragen