Save button

[Teri.B]

Team, I have the following code that prompts the user to click the save button. The code appears to be working, but what I really want is for the form entry to save and open to a new entry. So once the save button is clicked the data is saved and a new record opens.

Dim frmSave As Boolean




Private Sub BtnSave_Click()
frmSave = True
If Me.Dirty Then Me.Dirty = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If frmSave = False Then
Cancel = True
MsgBox "You must press the save button to save the record,"
End If
frmSave = False
End Sub

[Welshgasman]

https://learn.microsoft.com/en-us/of...cmd.gotorecord

[June7]

Please post multi-line code between CODE tags to retain indentation and readability.

Docmd.GoToRecord , , acNewRec

[Teri.B]

Thank you!

[June7]

Moving to another record will automatically commit current record. Other code to save is not necessary, just move.