Can I use a button on a form to save and go to new record at the same time on click?

[Synthologic]

I wrote this piece of code:

Private Sub CommandAddNew_Click()
If Me.NewRecord Then
DoCmd.RunCommand (acCmdSaveRecord)
Else
DoCmd.RunCommand (acCmdRecordsGoToNew)
End If
End Sub
 

What I am really trying to do is use a single button to save the record and go to new record. Meaning when the user click the button, the record is saved and there is a new form to enter a new record.

How can I do this?


Thanks everyone!

SYN

[Synthologic]

Well, I got the answer from the MS VBA forum, here is the code if anyone needs it!

Private Sub CommandAddNew_Click()
If Me.NewRecord Then
DoCmd.RunCommand (acCmdSaveRecord)
DoCmd.RunCommand (acCmdRecordsGoToNew)
End If
End Sub

SYN

[TheSmileyCoder]

Just to clarify something. As long as you are using recordsets, which Im sure you are, from what I see, you don't actively need to save the record. Moving between records forces a save in access. Thats standard behavior.

Also the button you have shown will only work if you are on a new record, but not if you are on an old record which you are simply editing.

To just go to a new record (and automatically save any changes) you can simply do:

Private Sub CommandAddNew_Click()
  DoCmd.RunCommand (acCmdRecordsGoToNew)
End Sub