property ID | |
Syntax: | String = object.ID |
Description: | 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. Example: 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 Else 'TrkTable Found ... oTrkTable.ReadDB "Item3" If oTrkTable.TrkRecords.Count = 1
then Set oTrkRecord =
oTrkTable.TrkRecords.Item(1) oTrkTable.TrkRecords.Remove
oTrkRecord.ID Else 'Record not
found... End If End If ... |