<\/p>\n
Autowertfelder verwendet man, um sich keine Sorgen mehr um die automatisch vergebenen Werte für Primärschlüsselfelder machen zu müssen. Manchmal geraten die Werte dieser Felder allerdings aus dem Takt oder Sie möchten selbst festlegen, welchen Wert der nächste Datensatz erhalten soll. Dieser Beitrag zeigt, wie Sie die Autowerte in Ihren Tabellen im Griff haben.<\/b><\/p>\n
Die meisten Tabellen in Access-Datenbanken (und auch in anderen Datenbanksystemen) verwenden einen automatisch hochzählenden Wert in den Primärschlüsselfeldern. Unter Access stellen Sie dazu einfach den Eintrag Autowert <\/b>als Felddatentyp <\/b>ein. Legen Sie dann einen neuen Datensatz an, ermittelt Access für das Autowertfeld den größten bisher vergebenen Wert in diesem Feld und addiert eins hinzu.<\/p>\n
Der größte bisher vergebene Wert muss dabei aber nicht der größte Wert sein, den die Tabelle anzeigt. Wenn Sie einer Tabelle einen Datensatz hinzufügen, der im Autowertfeld den Wert 2 <\/b>erhält und Sie löschen diesen Wert anschließend wieder, wird der nächste neue Datensatz dennoch mit dem Wert 3 <\/b>versehen (siehe Bild 1).<\/p>\n
![\"Wurde](\"..\/fileadmin\/_temp_\/2020_06\/pic_1269_001.png\")
<\/p>\n
Bild 1: Wurde der neueste Datensatz gelöscht, wird die ID nicht nochmals vergeben.<\/span><\/b><\/p>\n Wenn Sie möchten, dass nach dem Löschen des neuesten Datensatzes mit der ID 2 <\/b>der nächste neue Datensatz wieder den Wert 2 <\/b>erhält, können Sie die Datenbank komprimieren. Dann wird die Information, welche ID zuletzt vergeben wurde, zurückgesetzt.<\/p>\n Sie sollten das Design des Datenmodells jedoch so wählen, dass es nicht nötig ist, den Primärschlüsselwert mit bestimmten Werten zu füllen – dieser sollte nur zur eindeutigen Kennzeichnung eines Datensatzes dienen und um über Fremdschlüsselfelder Beziehungen zwischen Tabellen herzustellen.<\/p>\n Datensatz mit bestimmtem Primärschlüsselwert unter DAO anlegen<\/b><\/p>\n Gelegentlich kann es jedoch dazu kommen, dass ein Datensatz einen bestimmten Primärschlüsselwert erhalten soll. Beim Hinzufügen von Datensätzen über die Benutzeroberfläche können Sie dies nicht beeinflussen. Dazu benötigen Sie eine INSERT INTO<\/b>-Abfrage, welche nicht nur die Werte der übrigen Felder, sondern auch den Wert für das Primärschlüsselfeld übergibt. Wenn Sie im Beispiel aus dem Screenshot einen Datensatz mit der Nummer 2 anlegen wollen, benötigen Sie die folgende Abfrage:<\/p>\n <\/p>\n Diese Abfrage führen Sie beispielsweise als Parameter der Execute<\/b>-Methode des Database<\/b>-Objekts aus:<\/p>\n Hier ist jedoch zu beachten, dass Access sich nun den Wert für das Autowertfeld als den zuletzt vergebenen Wert merkt – auch wenn zuvor bereits größere Werte angelegt wurden. Das heißt, es könnte ein Wert wie 3<\/b> als neuer Autowert angelegt werden, obwohl es schon einen Datensatz mit dem Wert 5 <\/b>im Primärschlüsselwertfeld gibt (siehe Bild 2).<\/p>\n Bild 2: Vergibt man eine ID per INSERT INTO, wird diese als Basis für folgende Autowerte verwendet.<\/span><\/b><\/p>\n Das führt in unserem Beispiel spätetens beim übernächsten neuen Datensatz zu einem Fehler, weil dann der Autowert 5 <\/b>zum zweiten Mal vergeben wird – und das löst durch das mit einem eindeutigen Index versehenen Primärschlüsselfeld einen Fehler aus.<\/p>\n Datensatz mit bestimmtem Primärschlüsselwert unter ADO anlegen<\/b><\/p>\n Mit der alternativen Technik für den Datenzugriff gibt es eine weitere Methode. Hier benötigen Sie allerdings zunächst einen Verweis auf die Bibliothek Microsoft ADO Ext. 6.0 for DDL and Security<\/b> (siehe Bild 3).<\/p>\n Bild 3: Verweis für die Verwendung der Seed-Eigenschaft<\/span><\/b><\/p>\n Diese Bibliothek bietet die Catalog<\/b>-Klasse an, mit der Sie über die Tables<\/b>-Auflistung auf die Tabelle zugreifen, deren Feld sie auf den gewünschten nächsten Wert einstellen wollen. Dazu geben Sie weiterhin über die Columns<\/b>-Auflistung das Autowertfeld an und stellen dann über die Properties<\/b>-Auflistung die Eigenschaft Seed <\/b>beispielsweise auf den Wert 6 <\/b>ein:<\/p>\n Mit der folgenden Funktion können Sie per Parameter die Tabelle, das Zielfeld und den gewünschten Wert angeben:<\/p>\nINSERT INTO tblKunden(KundeID, Vorname, Nachname) VALUES(2, 'Hermann', 'Meier')<\/pre>\n
Public Sub <\/span>BeispielAutowert()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblKunden( KundeID, Vorname, Nachname) VALUES(2, 'Hermann', 'Meier')\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\n![\"Vergibt](\"..\/fileadmin\/_temp_\/2020_06\/pic_1269_002.png\")
<\/p>\n![\"Verweis](\"..\/fileadmin\/_temp_\/2020_06\/pic_1269_003.png\")
<\/p>\nDim <\/span>cat As <\/span>New<\/span> ADOX.Catalog\r\nSet<\/span> cat.ActiveConnection = CurrentProject.Connection\r\ncat.Tables(\"tblKunden\").Columns(\"KundeID\"). Properties(\"Seed\") = 6<\/pre>\nPublic Function <\/span>AutowertEinstellen(strTabelle As String<\/span>, strFeld As String<\/span>, lngID As Long<\/span>)\r\n Dim <\/span>cat As <\/span>New<\/span> ADOX.Catalog\r\n Set<\/span> cat.ActiveConnection = CurrentProject.Connection\r\n cat.Tables(strTabelle).Columns(strFeld). Properties(\"Seed\") = lngID\r\n Set<\/span> cat = Nothing\r\n AutowertEinstellen = True<\/span>\r\nEnd Function<\/span><\/pre>\n