LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsSubForm property
This script displays the names of all the subforms in a database.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formCount = 0
msgString = ""
Forall form In db.Forms
 If form.IsSubForm Then
   formCount = formCount + 1
   msgString = msgString & Chr(10) _
   & "     " & form.Name
 End If
End Forall
If formCount > 0 Then
 Messagebox "This database has " & formCount _
 & " subform(s):" & msgString
Else
 Messagebox "This database has not subforms"
End If

See Also