TrkItems.Remove (method)

Remove

Syntax:

object.Remove bstrID

Parameters:

bstrID As String -
The ID of the Item to be removed from the collection

Description:

Removes the item specified in the parameter from the collection and from the database. The method will fail if the item is not found in the collection.

Example:

Dim oTADBRoot As Object
Dim oTrkItem As Object

Set oTADBRoot = CreateObject("TADB.TADBRoot")

If oTADBRoot Is Nothing Then

   MsgBox "Root Object is not
created"

End If

oTADBRoot.Load "TRK7", ""

oTADBRoot.TrkItems.ReadDB "AnyItemID"
If oTADBRoot.TrkItems.Count=1 Then
   'Item found.
   oTADBRoot.TrkItems.Remove "AnyItemID"
Else
    'Item does not exist....
End If