>
Dim dbsNorthwind As Database, rstUnknown As Recordset
Set dbsNorthwind = DBEngine.Workspaces(0).OpenDatabase("Northwind.mdb")
Set rstUnknown = dbsNorthwind.OpenRecordset("Unfamiliar Table")
If rstUnknown.Updatable = True Then
rstUnknown.AddNew
rstUnknown("MyField") = "Some new data"
rstUnknown.Update
End If
dbsNorthwind.Close
Example (Microsoft Access)
The following example adds a record to a Recordset
object if the object's Updatable property setting is True.
Sub UpdateData()
Dim dbs As Database, rstUnknown As Recordset
' Return Database variable that points to current database.
Set dbs = CurrentDb
Set rstUnknown = dbs.OpenRecordset("Unfamiliar Table")
' Check Updatable property before adding new record.
If rstUnknown.Updatable = True Then
With rstUnknown
.AddNew
!SomeField = "Some new data"
.Update
End With
End If
dbs.Close
End Sub
Example (Microsoft Excel)
This example prompts the user to select a cell that
contains a value for the CONTACT field of the Customer recordset
in the NWINDEX.MDB database. The example then checks to see
whether the recordset can be updated. If so, the example adds a
new record to the recordset, using the value in the selected
cell.
To create the NWINDEX.MDB database, run the
Microsoft Excel example for the CreateDatabase method.
Dim db As Database, rs As Recordset
Sheets("Sheet1").Activate
cellToCopy = Application.InputBox("What cell value do you want" _
& " to update as contact?", Type:=8)
If cellToCopy = False Then ' user cancelled InputBox
Exit Sub
End If
Set db = Workspaces(0).OpenDatabase(Application.Path & "\NWINDEX.MDB")
Set rs = db.OpenRecordset("Customer")
If rs.Updatable = True Then
rs.AddNew
rs("CONTACT") = cellToCopy
rs.Update
rs.MoveLast
MsgBox "The new contact is " & rs("CONTACT").Value
Else
MsgBox "The recordset cannot be modified."
End If
rs.Close
db.Close