IListTextHeadingsExists Method |
Namespace: SuperOffice.COM.SuperOfficeDB
Checks whether there exists a member in the collection at the given index
This text may be copied to the notepad, and saved as a *.vbs file. You need a running CRM 5 to make it work. (This example uses the SuperOffice COM application library and not the SuperOffice db library interface).
Dim objSO Dim objCL Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then Set objCL = objSO.database.GetHeadings(130) If objCL.exists(0) Then MsgBox "There are at least one heading for this table." Else MsgBox "There are no headings in this collection" End If Else MsgBox "Could not log in" End If Set objSO = Nothing 'index into the collection. The first member has id = 1