Private Sub Object_AfterDelete(ByVal DSCEventInfo As DSCEventInfo)
Object A DataSourceControl object.
DSCEventInfo The DSCEventInfo object that contains information about the event.
Remarks
Use the Status property of the DSCEventInfo object to determine whether the record deletion was canceled.
Use the DataPage and Section properties of the DSCEventInfo object to determine the data access page, section, and recordset that was updated.
Example
This example displays a message box that indicates the status of the record deletion that fired the event.
Sub MSODSC_AfterDelete(DSCEventInfo)
Dim dscConstants
Set dscConstants = MSODSC.Constants
' Check the status of the record deletion.
Select Case DSCEventInfo.Status
' The record was deleted.
Case dscConstants.dscDeleteOK
MsgBox "Record deleted successfully."
' The deletion was canceled via code.
Case dscConstants.dscDeleteCancel
MsgBox "Record deletion canceled by code."
' The delection was canceled by the user.
Case dscConstants.dscDeleteUserCancel
MsgBox "Record deletion canceled by user."
End Select
End Sub