Try this:
Private Sub NewRecord_Click()
On Error GoTo Err_NewRecord_Click
DoCmd.RunCommand acCmdSaveRecord
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSaveRecord
Me.AllowAdditions = False
Exit_NewRecord_Click:
Exit Sub
Err_NewRecord_Click:
MsgBox Err.Description
Resume Exit_NewRecord_Click
End Sub
What we're doing is saving the current record, then allowing the form to accept a new record, then travelling to a new record, then saving that new record, then removing the ability to add another new record. There are issues here so if you don't have all of your "required" fields with default values set, it will get upset at trying to save the "incomplete" new record. That's the only thing I see that could cause you grief. If this is the case, remove the last two lines and place them in the "after update" event of the last field you consider "required". (This is not a really "sano" idea as a user could again click "New Record" in the midst of entering the first.) Play with this a bit and if it's still not right we'll do a bit of button "disabling"...
Gord
ghubbell@total.net