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