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