Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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          rs.Close End Sub