<\/p>\n
Primärschlüsselfelder mit Autowert-Funktion bieten eine komfortable Möglichkeit, für neue Datensätze automatisch einen neuen, eindeutigen Primärschlüsselwert zu vergeben. Wenn man zwischendurch keine Datensätze löscht, ist diese Nummerierung sogar lückenlos. Allerdings kann es sein, dass jemand versucht, gelöschte Datensätze mit den fehlenden Primärschlüsselwerten zu ersetzen. Zu welchen Problemen dies führt und wie Sie diese lösen, zeigt der vorliegende Beitrag.<\/b><\/p>\nAutowert-Primärschlüsselfelder<\/h2>\n
Fast alle Tabellen verwenden ein Primärschlüsselfeld, das über die Autowert-Funktion mit einem neuen, noch nicht vergebenen Wert gefüllt wird (s. Bild 1).<\/p>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2015_06\/pic_1008_001.png\")
<\/p>\n
Bild 1: Entwurf einer Tabelle mit Autowert-Primärschlüsselfeld<\/span><\/b><\/p>\n Mit dem Felddatentyp Autowert <\/b>legt man automatisch die Eigenschaft Neue Werte <\/b>auf Inkrement fest, was bedeutet, dass als Primärschlüsselwert beim Neuanlegen von Datensätzen standardmäßig der Primärschlüsselwert des zuletzt angelegten Datensatzes herangezogen und um eins erhöht wird.<\/p>\n Damit ist eine kleine Stolperfalle verbunden, denn dies funktioniert nur, wenn Sie den neuen Datensatz über die Tabelle oder ein an die Tabelle gebundenes Formular eingeben oder dies per VBA erledigen, wobei hier der Primärschlüsselwert explizit nicht festgelegt werden darf, sondern vom System erzeugt werden muss.<\/p>\n Dies erreichen Sie beispielsweise durch folgende kleine Prozedur, die Sie in einem Standardmodul anlegen und per F5<\/b> ausführen:<\/p>\n Der Autowert wird hier automatisch auf den zuletzt vergebenen Wert plus eins festgelegt.<\/p>\n <\/p>\n Die folgende Variante (siehe Prozedur NeuerArtikel_MitVorgegebenemPK <\/b>im Modul mdlBeispiele<\/b>) verwendet die folgende INSERT INTO<\/b>-Anweisung:<\/p>\n Diese legt ebenfalls einen neuen Datensatz an, weist dem Primärschlüsselfeld aber den Wert 79 <\/b>zu. Sofern dieser bereits vergeben ist, löst dies den Fehler 3022 <\/b>aus.<\/p>\n Wenn Sie einen Datensatz per DAO anlegen, sieht dies so aus:<\/p>\n Auch hier wird der Wert des Feldes ArtikelID<\/b> nicht explizit zugewiesen, sondern in Abhängigkeit vom Autowert des zuletzt angelegten Datensatzes vergeben. Diesen gibt die Prozedur vor dem Speichern des Datensatzes im Direktfenster aus.<\/p>\n Sie können allerdings auch hier den Primärschlüsselwert per Code vorgeben (siehe NeuerArtikel_DAO_MitVorgegebenemPK<\/b>):<\/p>\n Auch hier lösen Sie einen Fehler aus, wenn der angegebene Primärschlüsselwert bereits vergeben ist. Gefährlich ist die Vergabe von Werten für Autowertfelder per Code, weil der hier vergebene Wert als Grundlage für den folgenden, automatisch vergebenen Autowert herangezogen wird.<\/p>\n Wenn Sie also etwa einen anderen Datensatz als den mit dem höchsten Primärschlüsselwert löschen und diesen neu anlegen, wird der Wert des zuletzt vergebenen Primärschlüsselwertes auf genau diesen neu angelegten Wert festgelegt.<\/p>\n Beispiel: Wir haben drei Datensätze mit den Primärschlüsselwerten 81<\/b>, 82 <\/b>und 83 <\/b>und löschen den Datensatz mit dem Wert 82<\/b>. Dann legen Sie mit folgender Anweisung einen neuen Datensatz mit dem Primärschlüsselwert 82 <\/b>an:<\/p>\n Soweit ist das kein Problem. Wenn Sie aber jetzt in der Datenblattansicht einen weiteren neuen Datensatz anlegen, vergibt Access einen bereits vorhandenen Autowert, nämlich die Nummer 83<\/b> (s. Bild 2).<\/p>\nPublic Sub <\/span>NeuerArtikelMitAutowert()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblArtikel(Artikelname) VALUES(''Beispielartikel'')\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\ndb.Execute \"INSERT INTO tblArtikel(ArtikelID, Artikelname) VALUES(79, ''Beispielartikel'')\", dbFailOnError<\/pre>\n
Public Sub <\/span>NeuerArtikel_DAO_MitAutowert()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"tblArtikel\", dbOpenDynaset)\r\n rst.AddNew<\/span>\r\n rst!Artikelname = \"Beispielartikel\"\r\n Debug.Print<\/span> rst!ArtikelID\r\n rst.Update\r\nEnd Sub<\/span><\/pre>\nrst.AddNew<\/span>\r\nrst!ArtikelID = 83\r\nrst!Artikelname = \"Beispielartikel\"\r\nrst.Update<\/pre>\ndb.Execute \"INSERT INTO tblArtikel(ArtikelID, Artikelname) VALUES(82, ''Beispielartikel'')\", dbFailOnError<\/pre>\n
![\"Doppelt](\"..\/fileadmin\/_temp_\/2015_06\/pic_1008_002.png\")
<\/p>\n