When I give the code line DoCmd.GotoTorecord , ,acFirst, I get the error message :
Run-time error 2499: You cant use the GotoRecord action or method on an object in Design view.
I am pasting the whole vba code block here

DoCmd.GoToRecord , , acFirst
DoCmd.GoToRecord , , acNewRec


[Forms]![DietMain]![DietSubform].[Form]![Item] = rst![Item]
[Forms]![DietMain]![DietSubform].[Form]![SN] = rst![SN]
rst.MoveNext
DoCmd.GoToRecord , , acNext
Loop Until rst.EOF
rst.MoveNext
rst.Close 'close recordset.

End Sub

What is it you're trying to do with this code? Going to acFirst before doing acNewRec makes no sense. If you're trying to "put" records into a table by assigning values in the user interface, that's the wrong way to go about it. You should use an Append query or open a second recordset on the target table and write the values explicitly in code. Requery the form that is meant to display the records after you're done to show the new rows you just inserted.


John Viescas, author
"Microsoft Office Access 2003 Inside Out"
"Running Microsoft Access 2000"
"SQL Queries for Mere Mortals"