TrkItems.Count (read-only property)

property Count

Syntax:

Long = object.Count

Description:

Returns the total number of TrkItem objects in this collection. The return value is zero if the collection is empty.

Example:

Dim oTADBRoot As Object
Dim oTrkItem As Object
Dim idx As Long

Set oTADBRoot = CreateObject("TADB.TADBRoot")

If oTADBRoot Is Nothing Then

   MsgBox "Root Object is not
created"

End If

oTADBRoot.Load "TRK7", ""

oTADBRoot.TrkItems.ReadDB
idx = oTADBRoot.TrkItems.Count
MsgBox "Total Items in collection :" & idx