| 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 |
