TrkRecord (object)

ITrkRecord Interface
Represents one record in the TrkTable. The TrkRecords object stores one TrkRecord object for each record in the TrkTable. Each TrkRecord object is uniquely identified by an ID field, which is generated by the system whenever a TrkRecord object is added to the TrkRecords collection.


Do not directly instantiate this object. TrkRecords object creates a TrkRecord object every time a TrkRecords.Add method is called. It also creates one TrkRecord object for each row returned by the database when TrkRecords.ReadDB method is called.


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
Properties: ID , TrkFields
Methods: ReInitialize , Save