LOTUSSCRIPT /COM/OLE のクラス

例:UnLock メソッド
次のビューアクションは、「Main Document」というフォームのロックを解除しようとします。有効なユーザーがロック所有者の 1 人である場合、ロック解除は成功します。

Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 
 REM Exit if locking is not enabled
 If Not db.IsDesignLockingEnabled Then
   Print "Design locking not enabled"
   Exit Sub
 End If
 
 REM Get form
 Dim form As NotesForm
 Set form = db.GetForm("Main Document")
 
 REM Unlock form
 REM Form is not unlocked if error is raised
 On Error Goto errh
 Call form.UnLock
 Print "Form unlocked - " & form.Name
 Exit Sub
errh:
 Print "Form NOT unlocked - " & form.Name
 Exit Sub
End Sub

関連項目