{"id":55000228,"date":"2014-02-01T00:00:00","date_gmt":"2020-01-24T15:59:04","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=228"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Neue_Autowerte_ermitteln_und_RecordsAffected","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Neue_Autowerte_ermitteln_und_RecordsAffected.html","title":{"rendered":"Neue Autowerte ermitteln und RecordsAffected"},"content":{"rendered":"

Mit der Autowert<\/b>-Funktion liefert Access eine einfache Möglichkeit, eindeutige Werte für Primärschlüsselfelder zu vergeben. Für manche Zwecke benötigt man aber gleich nach dem Anlegen eines Datensatzes seinen Autowert. Wie diesen erhalten, erfahren Sie im vorliegenden Artikel.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1401_Autowerte.mdb<\/b>.<\/p>\n

ID des zuletzt hinzugefügten Autowertes ermitteln<\/h2>\n

Viele Anwendungsfälle verlangen danach, die ID eines gerade hinzugefügten Datensatzes zu ermitteln. Dies kann sowohl beim Hinzufügen per DAO (beziehungsweise ADO) also auch per SQL-INSERT INTO-Abfrage der Fall sein. Für beides gibt es Lösungen, die wir in diesem Artikel vorstellen. Als Beispieltabelle verwenden wir die Tabelle tblAutowerte<\/b> (siehe Bild 1), die neben dem Autowert-Feld AutowertID <\/b>nur noch ein weiteres Feld namens WeiteresFeld <\/b>enthält.<\/p>\n

\"Beispieltabelle\"<\/a><\/p>\n

Bild 1: Beispieltabelle<\/p>\n

Neuen Autowert unter DAO ermitteln<\/h2>\n

Unter DAO legen Sie neue Datensätze mit der AddNew<\/b>-Methode an und fügt dann den einzelnen Feldern die gewünschten Werte hinzu. Wenn Sie anschließend den Autowert des neu angelegten Datensatzes benötigen, brauchen Sie diesen nur auszulesen – er ist beim Anlegen bereits vorhanden. Allerdings muss man dies vor dem Speichern des Datensatzes mit der Update<\/b>-Methode erledigen.<\/p>\n

Listing 1 zeigt, wie dies funktioniert. Hier legen wir zunächst mit der AddNew<\/b>-Funktion einen neuen Datensatz an und weisen dem einzigen Nicht-Primärschlüsselfeld des Recordsets einen Wert zu.<\/p>\n

Public Sub <\/span>AutowertMitAddNewUpdate()\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(\"tblAutowerte\", dbOpenDynaset)\r\n     rst.AddNew<\/span>\r\n     rst!WeiteresFeld = \"Test\"\r\n     MsgBox<\/span> \"Die neue ID lautet: \" & rst!AutowertID\r\n     rst.Update\r\n     rst.Close\r\n     Set<\/span> rst = Nothing\r\n     Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Autowert per DAO ermitteln<\/p>\n
Den Wert des Autowert-Feldes können Sie bereits nach dem Ausführen der AddNew<\/b>-Methode abfragen – dies ist der früheste Zeitpunkt. Der späteste Zeitpunkt ist kurz vor dem Speichern des Datensatzes in der zugrunde liegenden Tabelle, also vor dem Aufrufen der Update<\/b>-Methode.<\/p>\n
Hier nutzen wir in der Beispielprozedur eine MsgBox<\/b>-Funktion auf, um den Autowert des neuen Datensatzes auszugeben. Nach dem Update können Sie nicht mehr auf den Autowert zugreifen, da dies den Datensatzzeiger direkt auf die folgende Position verschiebt. Genaugenommen liefert dies je nach der gewählten Datenherkunft unterschiedliche Werte.<\/p>\n
Wir gehen also zunächst davon aus, dass wir den Autowert hinter dem Aufruf der Update<\/b>-Methode abfragen – also etwa so:<\/p>\n
rst.AddNew<\/span>\r\nrst!WeiteresFeld = \"Test\"\r\nrst.Update\r\nMsgBox<\/span> \"Die neue ID lautet: \" _\r\n    & rst!AutowertId<\/pre>\n
Bei der ersten Variante verwenden wir ein Recordset, das alle Datensätze der zugrunde liegenden Tabelle enthält – also das aus dem bereits referenzierten Listing:<\/p>\n
Set<\/span> rst = db.OpenRecordset(         \"tblAutowerte\", dbOpenDynaset)<\/pre>\n
Das Ergebnis im Meldungsfenster lautet in diesem Fall -3<\/b>! Dies ist auf keinen Fall der korrekte Wert – so viel wissen wir. Aber warum liefert Access hier den Wert -3<\/b> Diese Frage lassen wir guten Gewissens offen, denn wir wissen ja, dass wir damit auf jeden Fall falsch liegen und den neuen Autowert vor dem Auslösen der Update<\/b>-Methode ermitteln müssen.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t