Display current roles of a database in a field.

The PostOpen event code below will populate the "CurrentRoles" field when the document is opened.

Sub Postopen(Source As Notesuidocument)
	Dim workspace As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim db As notesdatabase
	Set db = session.currentdatabase
	source.EditMode = True
	Dim doc As notesdocument
	Set doc = source.document
	Dim ACL As NotesACL
	Set ACL = db.ACL
	doc.CurrentRoles = ACL.Roles
End Sub

Posted by fbrefere001 on Tuesday February 22, 2005