LOTUSSCRIPT /COM/OLE のクラス

例:GetForm メソッド
次のスクリプトは、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

関連項目