例: IsDocumentLockingEnabled property (NotesDatabase - LotusScript®)

次のエージェントは、現在のデータベースで文書のロックが有効であるかどうかを表示します。

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

次のビューアクションは、現在のデータベースの文書のロックを切り替えます。

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