Code: Using the BeforeUpdate Form Event to "Undo" Changes

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strMsg As String

strMsg = &quot;Are you sure you want to change this data?&quot;

If VBA.MsgBox(strMsg, vbYesNo + vbDefaultButton2 _
    + vbQuestion) = vbNo Then
    Me.Undo
    Exit Sub
End If

End Sub

mod date: 1998-10-29T21:34:45.000Z