OnDisconnect Event

Private Sub Form_OnDisconnect()

Example

The following example demonstrates the syntax for a subroutine that traps the OnDisconnect event.

Private Sub Form_OnDisconnect()
    MsgBox "The PivotTable View has " _
        & "disconnected from its data source!"
End Sub