Examples: IsDesignLockingEnabled property (NotesDatabase - LotusScript®)

  1. This agent displays whether design locking is enabled for the current database.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.IsDesignLockingEnabled Then
    Messagebox "Design locking is enabled",, "Enabled"
  Else
    Messagebox "Design locking is disabled",, "Disabled"
  End If
End Sub
  2. This view agent toggles design 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.IsDesignLockingEnabled Then
    db.IsDesignLockingEnabled = False
    Messagebox "Design locking is disabled",, "Disabled"
  Else
    db.IsDesignLockingEnabled = True
    Messagebox "Design locking is enabled",, "Enabled"
  End If
End Sub