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