.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: TopLevelEntryCount property
This agent gets the top level entry count for all the views in the current database.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim tlec As Long
 Dim views As Variant
 Set db = session.CurrentDatabase
 views = db.Views
 Forall view In views
   tlec = view.TopLevelEntryCount
   If tlec < 0 Then
     tlec = tlec + 65536
   End If
   Messagebox "Top level count = " & tlec,, view.Name
 End Forall
End Sub

See Also