ISProfileForm.CDOTransaction

Description

This function returns the CDO transaction of the form.

Syntax

object.CDOTransaction()

Part	Attribute	Type	Description
`object`	Required	ISProfileForm	The `object` always implements the ISProfileForm interface

Return Value

ISCDOTransaction

Returns the CDO transaction of the form.

Example

Display some information about the form and its CDO transaction.

Dim aForm
Dim aFormInfo
Dim aCDOTransaction

Set aForm = Profile.Form
aFormInfo =_
  "Form Short Name: " & aForm.ShortName & vbNewLine &_ 
  "Form Type Name: " & aForm.TypeName & vbNewLine 
Set aCDOTransaction = aForm.CDOTransaction
if not aCDOTransaction is nothing then
aFormInfo = aFormInfo &_
  "CDOTransaction Created On: " & aCDOTransaction.CreatedOn & vbNewLine &_ 
  "CDOTransaction Code: " & aCDOTransaction.Code  
else
  aFormInfo = aFormInfo & "No CDO transaction"
end if
  
Profile.MsgBox(aFormInfo)

Note: This macro should be executed in any event handler of the form control.

Version information

Added in v7.8.0