IsInTransaction Method Example

[This product will work only on Windows NT 4.0 versions and earlier. For Windows 2000 and later, see COM+ (Component Services).]

Dim objContext As ObjectContext
Set objContext = GetObjectContext()

If Not objContext Is Nothing Then
    ' Find out if the object is in a transaction.
    If Not objContext.IsInTransaction Then
        ' If not, do something appropriate here.
    End If
End If