Adding records to a table
Adding records to a table
(OP)
I have a form that displays records from a table. I also have a command button to Add a Record to the table. The code behind the button is DoCmd.GoToRecord , , acNewRec. It works fine for the first record, but if I try to click the button a second time to add a second record, it gives me an error about being at the end of a recordset. What am I missing?
Thanks!
Thanks!
jgarnick
jgarnick@aol.com
RE: Adding records to a table
But try saving the record before adding a new one.
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End SubDoCmd.GoToRecord , , acNewRec
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click
This is reverse procedure I know, but if the record you just added is not saved it may be at the end of the recordset and give that error.
And saving a record before you add a new one won't hurt anything either.
DougP
dposton@universal1.com
Ask me how Bar-codes can help you be more productive.