|
Veteran
Beiträge: 102
|
...und die letzte Zeile war auch in meinem ursprünglichen Code schon falsch, weil dort der Bindestrich fehlte, damit die erzeugte "Zahl" auch so aussieht wie die anfangs gesuchte. Der korrekte Code heißt also:
Private Sub Befehl4_Click()
Dim varNr As Variant
varNr = Nz(DMax("AUFNr", "tAuftraege", "AUFNr LIKE '" & Year(Date) & "-????'"), 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
Deine Anmerkung, dass der Fehler bei Dir kommt, weil der Compiler "Me.AufNr" nicht hängt, heißt nur, dass Du kein solches Objekt im Formular hast. Das FOrmular sollte eine Datensatzquelle mit dieser Tabelle haben und auch dieses gleichnamige Feld dort anzeigen. Außerdem muss es ein Textfeld sein, wie ich schon geschrieben hatte. Das kannst Du in der Datenbank alles sehen.
Viel Erfolg,
Lorenz | |
|
fortlaufende Rechnungsnummern