Originally Posted by
moke123
Thats another event I've never used or had a use for, or even looked at before.
now I've noticed a "before screen tip" event.
I think I'll be googling for a while.
I think I might have used it once.
Found it
Code:
Private Sub Form_AfterDelConfirm(Status As Integer)
Select Case Status
Case acDeleteOK
MsgBox "Record deleted!", , "Delete Result"
Case acDeleteCancel
MsgBox "Delete record cancelled!", , "Delete Result"
Case acDeleteUserCancel
MsgBox "Delete record cancelled!", , "Delete Result"
End Select
End Sub
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Response = acDataErrContinue
' Display custom dialog box.
If MsgBox("Are you sure you want to delete this record?", vbYesNo, "Delete Confirmation") = vbNo Then
Cancel = True
End If
End Sub