Obtain the Current Roles Assigned to a User

The QueryAccessRoles method of the NotesDatabase class allows you to obtain the user's role prior to performing an action or setting a data value. This approach enables you to customize the subroutine based on the Access Control List (ACL) roles for the user or to inform the user that he or she has insufficient access to perform a particular task, among other uses.

How It Works

This is a built-in Domino function. The roles assigned to the current user are returned by using the QueryAccessRoles method of the NotesDatabase class. Simply pass a Lotus Notes name to the method, and the roles are returned for a given database.

ImplementationExample 1

First, create one or more roles in the ACL for the Notes database application. Assign roles to users and user groups. Then set a database object and use the QueryAccessRole method to retrieve the current roles for the specified user. The following illustrates an action button that displays all roles assigned to the current user.

Sub Click(Source As Button)

 Dim s As NotesSession
 Dim db As NotesDatabase
 Dim roles as Variant

 Set s = new NotesSession
 Set db = s.CurrentDatabase
 roles = db.QueryAccessRoles(s.UserName)

 If Roles(0) = "" Then
 Msgbox "No roles assigned or this is a local database."
 Else
 Msgbox "You currently have the following roles:" +_
 Chr$(13) + Implode (roles, Chr$(13))
 End If

End Sub

 

ImplementationExample 2

This second example illustrates how to conditionally execute statements based on the role assigned to the user. Here, you perform different tasks or elect not to perform tasks based on the role.

Sub Click(Source As Button)

 Dim s As NotesSession
 Dim db As NotesDatabase
 Dim roles as Variant

 Set s = new NotesSession
 Set db = s.CurrentDatabase
 roles = db.QueryAccessRoles(s.UserName)

 Forall role In roles
 If role = "[Developer]" Then Msgbox "Perform a task A"
 If role = "[TeamLead]" Then Msgbox "Perform a task B"
 If role = "[Employee]" Then Msgbox "Perform a task C"
 End Forall

End Sub

Generate a Document in Another Database