LCA

[asx9]

je veux que l'utilisateur ouvre un champ qui lui propose que des personnes qui ont le rôle "X". comment puis-je faire?

[Stephane Maillard]

Bonjour,Ceci est un début à modifier im workspace As New NotesUIWorkspaceDim session As New NotesSessionDim uidoc As NotesUIDocumentDim acl As NotesACL Dim entry As NotesACLEntrySet db = session.CurrentDatabaseSet acl = db.ACLSet entry = acl.GetEntry( session.CommonUserName )If entry Is Nothing Then Set entry = acl.GetEntry( session.UserName )End IfIf entry Is Nothing Then Messagebox _ "No entry for " & session.CommonUserName & _ " or " & session.UserName,, "No entry" Exit SubEnd IfIf entry.IsRoleEnabled( "[Supervisor]" ) Then Set uidoc = workspace.ComposeDocument( "", "approval" )Else Set uidoc = workspace.ComposeDocument( "", "request" )End If[%sig%]

[Raziel]

Salut,Exemple de codedim session as new notessessiondim db as notesdatabasedim acl as notesacldim aclEntry as notesaclEntrydim buffer as stringset db = session.currentdatabaseset acl = db.ACLset aclEntry = acl.GetFirstEntrywhile not aclEntry is nothingif aclEntry.IsRoleEnabled("[ADM]") thenif buffer = "" thenbuffer = ACLEntry.Nameelsebuffer = buffer + ";" + ACLEntry.Nameend ifend ifset aclEntry = acl.GetnextEntry (alcEntry)wendJe ne l'ai pas essayé mais ça devrais fonctionner.