IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

Examples: Lock method

This view action attempts to lock the form named "Main Document" for all members of the "Guys" group. Locking is successful if the form is not yet locked, or the form is locked but the effective user is a member of Guys. A provisional lock is allowed if the administration server is not available.

%INCLUDE "lsxbeerr.lss"



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 Lock the document

  REM Not locked if return is False or error is raised

  On Error Goto errh

  If form.Lock("Guys", True) Then

    Print "Form locked - " & form.Name

  Else

    Print "Form NOT locked - " & form.Name

  End If

  Exit Sub

errh:

  If Err() = lsERR_NOTES_LOCKED Then

    Print "Form NOT locked - " & form.Name

  Else

    Messagebox "Error " & Err() & ": " & Error(),, "Error"

  End If

  Exit Sub

End Sub

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009