sunshine77677 - 29.01.13
...
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.
...