IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

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

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009