例: UnLock method (NotesForm - LotusScript®)

次のビューアクションは、「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