Add new a row to recordset : Recordset Add Update Delete « Access « VBA / Excel / Access / Word

Add new a row to recordset


Sub exaRecordsetAddNew()
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Books")
    Debug.Print "Current title: " & rs!Title
    With rs
       .AddNew             ' Add new record
       !ISBN = "0-000"     ' Set fields
       !Title = "New Book"
       !PubID = 1
       !Price = 100
       .Update             ' Save changes.
       .Bookmark = rs.LastModified   ' Go to new record
       Debug.Print "Current title: " & rs!Title
    End With

End Sub


Related examples in the same category

1.Adding a New Record to a Recordset
2.Use AddNew and specify the field information
3.Use AddNew method from Recordset and two arrays to add a new row
4.Adding a New Record to a Table
5.Modifying a Record
6.Performing Batch Updates
7.Delete row for a certain criteria
8.Deleting a Record
9.Call update method from Recordset
10.Call delete method in Recordset
11.Check the Recordset affected