access – simple recordset operations

write data to a recordset

   Dim mydb As DAO.Database
   Dim rstProject As DAO.Recordset


   Set mydb = CurrentDb
   ‚Link Table to rst
   Set rstProject = mydb.OpenRecordset(„Project“)


   rstProject.AddNew
   rstProject(„ProjectNr“).Value = Me!ProjectNr
   rstProject(„Info“).Value = Me!Info
   rstProject.Update
   rstProject.Bookmark = rstProject.LastModified
   rstProject.Update

now the row is inserted to the table Project
to read the new inserted ID use the LastModified method of rst
   Dim CurrentProjectID As Integer
   ‚get inserted/last rst to receive the ID
   rstProject.Bookmark = rstProject.LastModified
   CurrentProjectID = rstProject![ProjectID]
now you can insert data to a referenced table using the correct ID

links
http://allenbrowne.com/ser-29.html

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s