ITrkHolds.Count (read-only property)

property Count

Syntax:

long*pVal = object.Count

Description:

The Count method will return the number of Holds defined for this item.

Example:

Dim oTrkItemAgent As Object
Dim oTrkItems As Object
Dim oTrkHold As Object
Dim oTrkHolds As Object

Set oTrkItemAgent =
CreateObject("Tracker.TrkItemAgent")

oTrkItemAgent.Execute oTrkItems
Set oTrkItem = oTrkItems.Item(1)
Set oTrkHolds = oTrkItem.Holds
For j = 1 To oTrkHolds.Count
Set oTrkHold = oTrkHolds.Item(j)
msgbox oTrkHold.Name
Next j