Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. CancelEvent
Private Sub Form_BeforeUpdate(Cancel As Integer)
   If MsgBox("Are you sure you want to save changes to this record?", _
              vbYesNo Or vbInformation, "Confirm Upate") = vbNo Then
      DoCmd.CancelEvent
   End If
End Sub