Examples: IsDesignLockingEnabled property (NotesDatabase - LotusScript®)
- 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
- 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
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.