.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: RemoveACLEntry method
This Visual Basic code removes the ACL entry specified by the EntryName text box.

Private Sub ACLRemove_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Dim acl As NotesACL
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabase("Web test")
Set acl = db.acl
If acl.GetEntry(SessionForm.EntryName) Is Nothing Then
 MsgBox SessionForm.EntryName, , "Entry does not exist"
Else
 Call acl.RemoveACLEntry(SessionForm.EntryName)
 Call acl.Save
End If
End Sub

See Also