Sure, they work with the following code:
Save and Add New Record
Private Sub SaveAdd_Click()
Me.LoopVal = CalcFourLoop(AccDescAVal, AccDescBVal, AccDescCVal, AccDescDVal)
RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNext
End Sub
My aim is to save all the form input and open a new record...