TrkRecord.ID (read-only property)

property ID
Syntax: String = object.ID
A unique record identifier generated internally whenever a TrkRecord object is added to the collection. The data type of ID is long integer. This ID is useful when you want to remove a record from the collection.


Dim oTrkTable As Object
Dim oTrkRecord As Object
Dim oTrkField As Object
Dim oTADBRoot 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^BODY COMPONENT^Body IDs")
If oTrkTable Is Nothing Then
    'Item Not found
    'TrkTable Found ...
    oTrkTable.ReadDB "Item3"
    If oTrkTable.TrkRecords.Count = 1 then
       Set oTrkRecord = oTrkTable.TrkRecords.Item(1)
       oTrkTable.TrkRecords.Remove oTrkRecord.ID
       'Record not found...
    End If
End If