Confirm Edit? Confirm Delete?

[Cosmos75]

I have a module called ConfirmEdit with a function called ConfirmEdit that asks the user if they want to accept the changes that they've made to a record.

Public Sub ConfirmEdit()
On Error GoTo ConfirmEdit_Err

    If (MsgBox("Accept changesl? If NO, then click Cancel and 
    then ESC. Pressing EQC clears the changes made 
    and allows you to move to another record.", 1, "Are you sure?") = 2) Then
        DoCmd.CancelEvent
        ' Perform the action on this  line 
          if the condition on the preceding line is true
        SendKeys "{ESC}", False
    End If


ConfirmEdit_Exit:
    Exit Sub

ConfirmEdit_Err:
    MsgBox Error$
    Resume ConfirmEdit_Exit

End Sub

The thing is, I want to be able to check if the user is EDIT-ing or ADD-ing a new records and have the message change accordingly. I am stuch at that point.


Any ideas?

 

[chrismcbride]

The NewRecord property of the form might work for you...

Chris