4
Autozähler in MS Access 2007
Automatischer Zähler der Tabelleneinträge ohne Abfrage
Ich habe eine Datenbank (Access 2007) mit den Feldern 'Datum', 'Stichwort' und 'Eigenschaft' erstellt.
Im Gegensatz zum AutoWert-Felddatentyp möchte ich ein Feld "Zähler" von 1 bis maximal 9999 einführen, daß bei Eingabe eines neuen Datensatzes in die Datenbanktabelle diese Zahl ohne Duplikat kreiert und mit der tatsächlichen Anzahl der vorhandenen Datensätze korrespondiert.
"AutoWert" funktioniert bedingt, da es vorkommt, daß nach Revision der Einträge Datensätze wieder gelöscht werden (müssen).
Aber es soll eine vorgenommene Zuordnung beibehalten werden, auch wenn Datensätze durch Korrektion aktualisiert werden.
Kann in der Datentabelle ein solches Feld erstellt werden?
Oder ist dies ohne "separate" Abfrage nicht möglich?
Grüße
HippoHippo
Im Gegensatz zum AutoWert-Felddatentyp möchte ich ein Feld "Zähler" von 1 bis maximal 9999 einführen, daß bei Eingabe eines neuen Datensatzes in die Datenbanktabelle diese Zahl ohne Duplikat kreiert und mit der tatsächlichen Anzahl der vorhandenen Datensätze korrespondiert.
"AutoWert" funktioniert bedingt, da es vorkommt, daß nach Revision der Einträge Datensätze wieder gelöscht werden (müssen).
Aber es soll eine vorgenommene Zuordnung beibehalten werden, auch wenn Datensätze durch Korrektion aktualisiert werden.
Kann in der Datentabelle ein solches Feld erstellt werden?
Oder ist dies ohne "separate" Abfrage nicht möglich?
Grüße
HippoHippo
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 170574
Url: https://administrator.de/contentid/170574
Printed on: April 19, 2024 at 04:04 o'clock
4 Comments
Latest comment
Hi,
ich denke das ist ohne selbst Basteln nicht möglich.
Am einfachsten zu lösen ist das, denke ich, mit einem Trigger auf die entsprechende Tabelle (VBA).
Soweit ich weiß, sind Trigger aber erst ab Access 2010 möglich...
Alternativ könntest du auch die entsprechenden Events im Eingabeformular, falls es so etwas gibt, benutzen.
Viele Grüße - Bernd
ich denke das ist ohne selbst Basteln nicht möglich.
Am einfachsten zu lösen ist das, denke ich, mit einem Trigger auf die entsprechende Tabelle (VBA).
Soweit ich weiß, sind Trigger aber erst ab Access 2010 möglich...
Alternativ könntest du auch die entsprechenden Events im Eingabeformular, falls es so etwas gibt, benutzen.
Viele Grüße - Bernd
Bernd,
vielen Dank.
Die 2010-er-Version steht mir nicht zur Verfügung.
Die "Formular"-Idee kam mir auch. So werd' ich's wohl anpacken, obwohl eine Lösung, wie vor geschrieben, mein Favorit gewesen wäre.
Grüße
HippoHippo
vielen Dank.
Die 2010-er-Version steht mir nicht zur Verfügung.
Die "Formular"-Idee kam mir auch. So werd' ich's wohl anpacken, obwohl eine Lösung, wie vor geschrieben, mein Favorit gewesen wäre.
Grüße
HippoHippo
Moin Moin,
das kann nicht funktionieren wenn Datensätze gelöscht werden, es würden automatisch doppelte Zahlen generiert = mit der Anzahl der Datensätze korrespondierend, oder da das ja nicht gewünscht ist = neu Zahl, die wieder nicht mit der Anzahl der Datensätze korrespondiert.
Mal eine andere Idee:
Du erstellst deine Tabelle mit einen Autowert-Feld, das ganz normal hochgezählt wird.
Nun werden Datensätze gelöscht, d.h. es entstehen Lücken in der Nummerierung. Die Anzahl der Datensätze und die Nummerierung stimmen nicht mehr überein.
Einfache Lösung:
- eine Kopie der Tabelle erstellen (ohne Daten)
- eine Anfügeabfrage erstellen, in der die Daten der Originaltabelle in die kopierte Tabelle übertragen werden.
- wichtig, das Feld mit dem Autozähler darf nicht mit übertragen werden!!
- anschließend die "alte" Tabelle löschen
- fertig
du erhältst eine automatisch komplett durchnummerierte neue Tabelle.
VBA Code der dir hilft:
'Tabelle kopieren
DoCmd.CopyObject , "DeineTabelle_neu", actable, "DeineTabelle_alt"
'Inhalt löschen in neuer Tabelle
SQL_Code = "DELETE DeineTabelle_neu.ID, * FROM DeineTabelle_neu;"
DoCmd.RunSql SQL_Code
'Datensätze aus alter Tabelle in neue Tabelle einfügen
SQL_Code = "INSERT INTO DeineTabelle_neu ( xDatum, Stichwort, Eigenschaft ) SELECT DeineTabelle_alt.xDatum, DeineTabelle_alt.Stichwort, DeineTabelle_alt.Eigenschaft FROM DeineTabelle_alt;"
DoCmd.RunSql SQL_Code
oder auch
db.execute SQL_Code
'ggf. wenn du nicht gleich löschen willst
DoCmd.Rename <neuertabellenname>, actable, <altertabellenname>
'alte Tabelle löschen
DoCmd.DeleteObject acTable, DeineTabelle_alt
in der Summe also 6 Zeilen VBA Code
Grüße aus Rostock
Wolfgang
(Netwolf)
bei Eingabe eines neuen Datensatzes in die Datenbanktabelle diese Zahl ohne Duplikat kreiert und mit der tatsächlichen Anzahl der vorhandenen Datensätze korrespondiert.
das kann nicht funktionieren wenn Datensätze gelöscht werden, es würden automatisch doppelte Zahlen generiert = mit der Anzahl der Datensätze korrespondierend, oder da das ja nicht gewünscht ist = neu Zahl, die wieder nicht mit der Anzahl der Datensätze korrespondiert.
Mal eine andere Idee:
Du erstellst deine Tabelle mit einen Autowert-Feld, das ganz normal hochgezählt wird.
Nun werden Datensätze gelöscht, d.h. es entstehen Lücken in der Nummerierung. Die Anzahl der Datensätze und die Nummerierung stimmen nicht mehr überein.
Einfache Lösung:
- eine Kopie der Tabelle erstellen (ohne Daten)
- eine Anfügeabfrage erstellen, in der die Daten der Originaltabelle in die kopierte Tabelle übertragen werden.
- wichtig, das Feld mit dem Autozähler darf nicht mit übertragen werden!!
- anschließend die "alte" Tabelle löschen
- fertig
du erhältst eine automatisch komplett durchnummerierte neue Tabelle.
VBA Code der dir hilft:
'Tabelle kopieren
DoCmd.CopyObject , "DeineTabelle_neu", actable, "DeineTabelle_alt"
'Inhalt löschen in neuer Tabelle
SQL_Code = "DELETE DeineTabelle_neu.ID, * FROM DeineTabelle_neu;"
DoCmd.RunSql SQL_Code
'Datensätze aus alter Tabelle in neue Tabelle einfügen
SQL_Code = "INSERT INTO DeineTabelle_neu ( xDatum, Stichwort, Eigenschaft ) SELECT DeineTabelle_alt.xDatum, DeineTabelle_alt.Stichwort, DeineTabelle_alt.Eigenschaft FROM DeineTabelle_alt;"
DoCmd.RunSql SQL_Code
oder auch
db.execute SQL_Code
'ggf. wenn du nicht gleich löschen willst
DoCmd.Rename <neuertabellenname>, actable, <altertabellenname>
'alte Tabelle löschen
DoCmd.DeleteObject acTable, DeineTabelle_alt
in der Summe also 6 Zeilen VBA Code
Grüße aus Rostock
Wolfgang
(Netwolf)
Moin HippoHippo,
ich würde -wenn denn wirklich die gesetzte Rahmenbedingung "Zähler soll mit der tatsächlichen Anzahl der vorhandenen Datensätze korrespondieren"- nicht angefasst werden soll- KEINERLEI Neuberechnung des stinknormalen Access-AutoWert-Feldes machen.
Weil:
Grüße
Biber
ich würde -wenn denn wirklich die gesetzte Rahmenbedingung "Zähler soll mit der tatsächlichen Anzahl der vorhandenen Datensätze korrespondieren"- nicht angefasst werden soll- KEINERLEI Neuberechnung des stinknormalen Access-AutoWert-Feldes machen.
Weil:
- stressärmer ist es, die "bei der Revision rausfliegenden Datensätze" einfach nur "logisch zu löschen". Die bekommen dann halt ein J/N-Feld "Gelöscht" oder "ungültig" oder ein "Löschdatum" und werden bei allen Queries rausgefiltert in der Where-Bedingung.
- damit ist gewährleistet, dass Verweise/Referenzen/ParentChild-Beziehungen bei einer ID-Neuvergabe niemals zur Blockade oder zur Falschzuordnung führen. Wenn ein Datensatz beim Anlegen den Autowert 4711 bekommen hat, dann bleibt das der Datensatz mit der ID 4711 bis Schalke 04 Deutscher Meister wird.
- fändest du es denn z.B. hier im Forum sinnvoll, wenn jedesmal unsere UserIDs automatisch neuberechnet werden, wenn sich wieder mal ein eingeschnappter Troll hier abmeldet? Das kann doch auch für dich kein unlösbares Problem sein, mit einer "größten vergebenen ID gleich 100000" zu leben, auch wenn die "aktiven" Sätze nur 90000 sind? Machen doch alle so...
Grüße
Biber
