Adding a record to a table

[Jim Pockmire]

Is there an easier way to add a record to a table, than using the code
below?

Sub AddToMyReports()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("MyReports")
rs.MoveLast
rs.AddNew
rs!USER_CODE = "03JIMP1"
rs!RptCode = "99999"
rs.Update
End Sub

 

[Alex Dybenko]

You can use append query:

CurrentDB.Execute "Insert into MyReports (USER_CODE, RptCode)
Values('03JIMP1','99999')"

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com