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