IsInTransaction Method Example
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