6
Access Autowert jährlich automatisch mit Eins beginnen
Hallo,
Ich möchte, das sich ein Feld (BestNr) wie folgt zusammen setzt: "B"+aktuelles Jahr(09)+ einen Autowert(1)
Ich habe einen Tabelle, mit den Feldern:
BestNrZus = B
BestNr= Autowert(1)
BestDatum= Speicherdatum(23.10.09)
Ich setzte mir das in einer Abfrage zusammen:
NeuBestNr: [BestNrZus] & Jahr([BestDatum])& Wenn(Länge([BestNr])=1;"0000" & [BestNr];Wenn(Länge([BestNr])=2;"000" & [BestNr];usw.))
Die BestNr sieht dann wie folgt aus: B0900001
Mein Problem:
Wenn sich das Jahr ändert soll der Autowert wieder mit 1 beginnen, d.h. B1000001
Könnt ihr mir irgendwie helfen???
LG bumbum
Ich möchte, das sich ein Feld (BestNr) wie folgt zusammen setzt: "B"+aktuelles Jahr(09)+ einen Autowert(1)
Ich habe einen Tabelle, mit den Feldern:
BestNrZus = B
BestNr= Autowert(1)
BestDatum= Speicherdatum(23.10.09)
Ich setzte mir das in einer Abfrage zusammen:
NeuBestNr: [BestNrZus] & Jahr([BestDatum])& Wenn(Länge([BestNr])=1;"0000" & [BestNr];Wenn(Länge([BestNr])=2;"000" & [BestNr];usw.))
Die BestNr sieht dann wie folgt aus: B0900001
Mein Problem:
Wenn sich das Jahr ändert soll der Autowert wieder mit 1 beginnen, d.h. B1000001
Könnt ihr mir irgendwie helfen???
LG bumbum
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 127770
Url: https://administrator.de/forum/access-autowert-jaehrlich-automatisch-mit-eins-beginnen-127770.html
Ausgedruckt am: 05.02.2025 um 09:02 Uhr
6 Kommentare
Neuester Kommentar
Das sollte so funktionieren:
Public Sub setzeAutowert(sTabelle As String, sSpalte As String, lNeuerWert As Long)
CurrentDb.Execute "ALTER TABLE " & sTabelle & " ALTER COLUMN " & sSpalte & " COUNTER(" & lNeuerWert& & ",1)"
End Function
Hallo NilsErik,
wird die Funktion dann automatisch zu Jahreswechsel nach dem ersten öffnen im neuen jahr ausgeführt?
LG bumbum
wird die Funktion dann automatisch zu Jahreswechsel nach dem ersten öffnen im neuen jahr ausgeführt?
LG bumbum
Nein, die Funktion habe ich nur zu Tests genutzt.
Autowerte sind meiner Meinung nach zur Erzeugung eindeutig indentifizierbarer IDs zu nutzen, nicht um schöne Zahlen zu haben. Die kann man sich selbst erzeugen, ggf. aus den Autowerten berechnen.
Autowerte sind meiner Meinung nach zur Erzeugung eindeutig indentifizierbarer IDs zu nutzen, nicht um schöne Zahlen zu haben. Die kann man sich selbst erzeugen, ggf. aus den Autowerten berechnen.
Es bleibt doch trotzdem eine eindeutige Zahl, sie hat nur eine bestimmte Formatierung, es ist bloß der zusatz, das man ihm einem jahr zuweisen kann und sieht, dass es sich um eine Bestellung handelt und nicht um einen Lieferschein oder ähnliches.
Also kannst du mir nicht weiterhelfe, schade.....
aber trotzdem danke.
Hat jemand anderes eine Idee??
lg bumbum
Also kannst du mir nicht weiterhelfe, schade.....
aber trotzdem danke.
Hat jemand anderes eine Idee??
lg bumbum
Wenn Du das so durchziehen möchtest, prüfst Du halt, wie der Zähler steht und setzt ihn ggf. auf (Jahr Mod 1000)*10000+1
Führende 0-er ggf. über Format anfügen bei Ausgabe oder in der Tabellendefinition.
Das B kannst Du beim Ausdruck z.B. in der Formatierung angeben oder in einem extra Feld.
Führende 0-er ggf. über Format anfügen bei Ausgabe oder in der Tabellendefinition.
Das B kannst Du beim Ausdruck z.B. in der Formatierung angeben oder in einem extra Feld.
Hey NilsErik,
danke für deine Unterstützung, ober wo soll denn "(Jahr Mod 1000)*10000+1" hin geschrieben werden? In eine Abfrage oder in einen VBA-Code, oder...?
LG bumbum
danke für deine Unterstützung, ober wo soll denn "(Jahr Mod 1000)*10000+1" hin geschrieben werden? In eine Abfrage oder in einen VBA-Code, oder...?
LG bumbum
