<\/p>\n
Neue Datensätze legen Sie entweder mit der Methode AddNew\/Update oder mit der Execute-Methode unter Angabe einer INSERT INTO-SQL-Anweisung an. Dieser Beitrag zeigt, wie Sie auf die Autowerte der neuen Einträge zugreifen.<\/b><\/p>\n
Bei AddNew<\/b>\/Update <\/b>können Sie vor Ausführen der Update<\/b>-Methode den Wert des Autowertfeldes ermitteln. Nach dem Update wird der Datensatzzeiger auf einen anderen Datensatz verschoben, der neue Datensatz ist dann nicht mehr greifbar (s. Listing 1).<\/p>\n Listing 1: Ermitteln der ID eines neuen Datensatzes, Version I<\/span><\/b><\/p>\n <\/p>\n Eine eher unbekannte Methode ist die, bei der die Bookmark<\/b>-Eigenschaft auf den mit LastModified <\/b>ermittelten zuletzt bearbeiteten Datensatz verschoben wird. Den Autowert liefert dann das entsprechende Feld (s. Listing 2).<\/p>\nPublic Sub <\/span>NeuerDatensatzI()\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(\"tblKategorien\", dbOpenDynaset)\r\n rst.AddNew<\/span>\r\n rst!Kategoriename = \"Neue Kategorie\"\r\n MsgBox<\/span> rst!KategorieID\r\n rst.Update\r\n MsgBox<\/span> rst!KategorieID\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>NeuerDatensatzII()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngKategorieID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblKategorien\", dbOpenDynaset)\r\n rst.AddNew<\/span>\r\n rst!Kategoriename = \"Neue Kategorie 1\"\r\n rst.Update\r\n rst.Bookmark = rst.LastModified\r\n MsgBox<\/span> \"Neuer Datensatz: \" & rst!KategorieID\r\nEnd Sub<\/span><\/pre>\n