TrkTables.Item (method)

method Item

Syntax:

TrkTable = object.Item ( Index )

Parameters:

Index As Variant -
Index is the element key value in the collection. The data type for the Index argument can be any of the following: string, long, integer, unsigned integer, and unsigned long as a Variant value. The valid numeric index ranges from 1 to the total number of TrkTable objects in the collection.

Description:

If the Index is a string, it returns the TrkTable object with the specified name. If no such object exists in the collection, the method returns Nothing.

If the Index is a number, the method returns the TrkTable object from the given position in the collection. If the Index argument is greater than the number of items in the collection, or the collection is empty it returns Nothing.

Example 1:

Dim oTADBRoot As Object
Dim oTrkTable 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", ""

For idx = 1 To oTADBRoot.TrkTables.Count
Set oTrkTable = oTADBRoot.TrkTables.Item(idx)

    If Not oTrkTable Is Nothing
Then

        oTrkTable.ReadDB
        ...
        ...
        ...
    Else

        'Table does
not exist....

End If
Next

Example 2:

Dim oTADBRoot As Object
Dim oTrkTable 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", ""

'Get Table from Collection of TrkTables
Set oTrkTable = oTADBRoot.TrkTables.Item("GroupAttribs^VEHICLE ORDER^Parts")
If oTrkTable Is Nothing Then
'Item Not found
Else
'TrkTable Found ...
End If

Example 3:

Dim oTADBRoot As Object
Dim oTrkTable 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", ""

For Each oTrkTable In oTADBRoot.TrkTables
   MsgBox oTrkTable.Name
   ...
   ...
Next