Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: HarryS am 10.09.02 - 17:21:39

Titel: Definierte ACL-Rollen in dialogliste
Beitrag von: HarryS am 10.09.02 - 17:21:39

hallo forum

ich möchte in einer maske ein Auswahlfeld deklarieren, in
dem alle Rollen der ACL, die in der aktuellen DB deklariert sind, zur Auswahl kommen.

mit
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Forall r In acl.Roles
 Messagebox( r )
End Forall
kann ich alle abrufen in ein stringarray r und nacheinander z.B. in einer msgbox ausgeben, wie schaffe ich es, diese rollen in eine dialogliste / Auswahlliste einer maske zu bekommen ??

hat jemand eine idee?

schönen dank im voraus
gruß harry

Titel: Re: Definierte ACL-Rollen in dialogliste
Beitrag von: Rob Green am 10.09.02 - 22:27:49

hab das mal ins Postopen der Maske geschmissen:

Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Dim rolles As String
     
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim acl As NotesACL
     Set db = session.CurrentDatabase
     Set acl = db.ACL
     Forall r In acl.Roles
           rolles = r & ";" & rolles
     End Forall
     Call uidoc.FieldSetText ( "Rollen", Trim$(rolles) )
     Call uidoc.refresh
     

Yep, was besseres ist mir auf die Schnelle nicht eingefallen. Klappt aber, daß es in ein editierbares Multivalue Textfield ne Werteliste der Rollen reinschreibt.