Here is the code...what I'm not sure how to do is respond to canceling the e-mail. The system has its own error message but I would like to replace it and cancel the update event (Cancel = -1).
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strCIFRef As String
Dim strCBRef As String
Dim strCIFNBR As String
Dim dtCB As Date
If Me.Dirty Then
If IsNull(Forms!frmCMPGN_BRF.txtAcctPlnr) Then _
Forms!frmCMPGN_BRF.txtAcctPlnr = CurrentUser()
strCIFRef = Forms!frmCMPGN_BRF.txtRqstr
strCBRef = Forms!frmCMPGN_BRF.txtAcctPlnr
strCIFNBR = Forms!frmCMPGN_BRF.txtJobNBR
dtCB = Forms!frmCMPGN_BRF.txtDate
DoCmd.SendObject , , , strCIFRef, , , "The Budget Segment _
of C.I.F. Number '" & strCIFNBR & "' has been Changed",_
"The Budget Segment of C.I.F. Number '" & strCIFNBR & "' _
has been Changed by " & strCBRef & " on " & dtCB & _
": Please Review the Changes.", True
End If
End Sub