Add a Record in a Table with VBA 1

[danvzla]

How can I add a new record in a Table using VBA. I Tried with this code, it seems to work because in the msgbox I can see the 1234 value. The problem is that when I open the table the chage is not save. Do I need to save the record at the end. How do I do that? Thank!!


Private Sub NewRNWButton_Click()

Dim rst As New ADODB.Recordset
rst.Open "LogDatafill_Table_NORCROSS",_ CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.Fields("ID&quot.Value = 1234
MsgBox (rst("ID&quot)

End Sub

 

[hermanlaksko]

Try adding - rst.update

i.e.
Dim rst As New ADODB.Recordset
rst.Open "LogDatafill_Table_NORCROSS",_ CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.Fields("ID&quot.Value = 1234
MsgBox (rst("ID&quot)
rst.update


Herman

They say that crime doesn't pay... does that mean my job is a crime?