What are you trying to achieve and what error are you getting?

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim Response
    
        Response = MsgBox("Save Changes. Are you sure? (Yes = Save Changes, No = Abort Changes," & _
        "Cancel = Continue Editing)", vbYesNoCancel, "Save Changes")
If Response = vbYes Then 'YES
        Cancel = False
    ElseIf Response = vbNo Then 'NO
        Cancel = True
    Else 'CANCEl
        Cancel = True
End If

Using this code to save, not to save and for cancelling,
again I am using the before update as
_____________________________________
Private Sub JudgmentDate_BeforeUpdate(Cancel As Integer)

If IsNull(JudgmentDate) Or JudgmentDate = "" Then
    Exit Sub
End If

If Me.JudgmentDate > Date Then
    MsgBox "Judgment Date Cannot be Greater than Today's Date", vbOKOnly + vbCritical, "Judgment Date Denied"
    Me.JudgmentDate = ""
    Me.JudgmentDate.SetFocus
    Cancel = True


Else
    Cancel = False
End If
End Sub

and the error code is  2147352567 peventing from saving.... etc
Please help