How to enter table data via code

How does this need to be altered to enter data into fields named [Recordset] and [Action] in the table named tbRecordsetTransactions ?

DoCmd.OpenTable "tbRecordsetTransactions", acViewNormal, acAdd
Me!Recordset = "rsSpouseRecord"
Me!Action = "Open"
DoCmd.Close acTable, "tbRecordsetTransactions", acSaveYes

Solution: How to enter table data via code

Dim dbs As DAO.Database
Dim rst As DAO.Recordset, rc As Long
Dim sql As String
sql = "tbRecordsetTransactions"

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sql)
rst.Add
rst!Recordset = "rsSpouseRecord"
rst!Action = "Open"
rst.Update
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing

How to enter table data via code

Solution: How to enter table data via code

Popular Tags