例: GetForm method

次のスクリプトは、GetForm を使用したアクセスを試みることによってフォームの存在を調べます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim form As NotesForm
On Error Goto processError
Set db = session.CurrentDatabase
formNameIn = Inputbox("Name of form?")
Set form = db.GetForm(formNameIn)
Messagebox "The form """ & form.Name & """ exists"
Exit Sub
processError:
REM     If Err() = ErrObjectVariableNotSet Then
If Err() = 91 Then
     Messagebox  _
     "The form """ & formNameIn & """ does not exist"
Else
     Messagebox "Error " & Err() & ": " & Error()
End If
Exit Sub