LOTUSSCRIPT/COM/OLE CLASSES
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
See Also