Supportnet / Forum / Datenbanken
Access - Formular/Schalter: Neue Zahl um "1" erhöht -> nicht "AutoWert"
Frage
Hallo!
Meine Frage:
Wie kann ich beim Klick auf den Schalter "Neu":
* einen neuen Datensatz erstellen
* das Zahlenfeld: Maximalzahl (ReNr) + 1
(Damit soll eine neue Nummer erstellt werden, die die höchste Zahl um "1"erhöht = neue z. B. Rechnungsnummer)
* Gehe zu: Cursor auf Feld "Datum"
Die Funktion "AutoWert" hat den Nachteil, daß alle Datensätze (z. B. beim Import) neu duchnummeriert werden u. deshalb bestehende/alte Schlüßelnummern in dieses Feld (z. B. ReNr) nicht erfaßt werden können. Und, man kann keine Zahl manuell eintragen.....
Wäre um einen Tipp sehr dankbar!
Bis dann!
Gruß Tom
Antwort 1 von sundancer
Hallo Tom,
Du must die letzte ReNr in der Tabelle nachsehen.
Das erreicht mit DMax. etwa so;
Dim xlast As Long
xlast = 0
On Error Resume Next
xlast = DMax("ReNr", "tbl_Rechnung")
ReNr = xlast + 1
On Error GoTo 0
Gruß sundancer
Du must die letzte ReNr in der Tabelle nachsehen.
Das erreicht mit DMax. etwa so;
Dim xlast As Long
xlast = 0
On Error Resume Next
xlast = DMax("ReNr", "tbl_Rechnung")
ReNr = xlast + 1
On Error GoTo 0
Gruß sundancer