How can I disable auto save function in access forms?Currently , If accidentally something is changed in forms, it gets saved automatically without being prompted.
Thanks in advance
Thanks in advance
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rslt As Integer
If Me.Dirty Then
rslt = MsgBox("Do you want to save the changes you have made to the form", vbYesNo)
If rslt = vbNo Then ' if the user didn't mean to make changes
Me.Undo
End If
End If
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rslt As Integer
If Me.Dirty Then
rslt = MsgBox("Do you want to save the changes you have made to the form", vbYesNo)
If rslt = vbNo Then ' if the user didn't mean to make changes
Me.Undo
End If
End If
End Sub
Comment