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

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


"Jim Pockmire" <(E-Mail Removed)> wrote in message
newsc57g.7285$(E-Mail Removed)...
> 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
>