Examples: IsDocumentLockingEnabled property (NotesDatabase - LotusScript®)

  1. This agent displays whether document locking is enabled for the current database.
    Sub Initialize
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.CurrentDatabase
      If db.IsDocumentLockingEnabled Then
        Messagebox "Document locking is enabled",, "Enabled"
      Else
        Messagebox "Document locking is disabled",, "Disabled"
      End If
    End Sub
  2. This view action toggles document locking for the current database.
    Sub Click(Source As Button)
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.CurrentDatabase
      If db.IsDocumentLockingEnabled Then
        db.IsDocumentLockingEnabled = False
        Messagebox "Document locking is disabled",, "Disabled"
      Else
        db.IsDocumentLockingEnabled = True
        Messagebox "Document locking is enabled",, "Enabled"
      End If
    End Sub