fortlaufende Rechnungsnummern
sunshine77677
Gesendet: 29.01.13 13:46
Betreff: RE: fortlaufende Rechnungsnummern


Hallo Lorenz,

Dein Makro sieht jetzt so aus:

Private Sub Befehl21_Click()
Dim varNr As Variant
varNr = Nz(DMax("AUFNr", "SELECT AUFNr FROM tAuftraege WHERE AUFNr LIKE '" & Year(Date) & "AUFBezeichner'"), Year(Date) & "-0000")
'nur die letzten Ziffern in Zahl umwandeln und 1 drauf:
varNr = Val(Mid(varNr, 6)) + 1
'in diesem Formular in das Feld reinschreiben:
Me.AUFNr.Value = Year(Date) & Format(varNr, "0000")
End Sub

Leider funktioniert es nicht. Es bleibt bei Me.AUFNr hängen, weil es es nicht kennt.

Kannst Du mir weiterhelfen?

Danke

Susanne
Top of the page Bottom of the page