IListTextHeadingsCount Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Get history items for the DocTmpl table
This text may be copied to the notepad, and saved as a *.vbs file. You need a running CRM win client 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.GetHistoryItems(130) If objCL.Empty Then MsgBox "There are no items for this table" Else Msgbox "There are " & objCL.Count & " HistoryItems in this table." End If Else MsgBox "Could not log in" End If Set objSO = Nothing