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

関連項目

IsSubForm プロパティ

用語集