Alle Rollen in einem Feld anzeigen

[Selin]

das hat leider nicht geklappt...

[koehlerbv]

Die Sache ist ein wenig tricky:
Zuerst belegst Du das Feld, das die Werteliste Deines Dialogfeldes bedient, danach ein NotesUIDocument.Refresh. Anschliessend belegst Du die Dialogliste selbst mit den Werten und brauchst danach ein neues NotesUIDocument.Refresh.

HTH,
Bernhard

[Glombi]

Du musst das Script wie folgt erweitern:

if Source.IsNewDoc then

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Set doc = Source.Document
   doc.ACLRoles = acl.Roles   
   
   Call Source.Refresh
   doc.Zugriffliste_L = acl.Roles   

end if


Im feld Zugriffsliste_L musst Du in den Eigenschaften "Auswahl bei Dokumentaktualisierung aktualisieren" im 2. Tab anklicken.

Das mit dem isnewdoc habe ich hinzugefügt, da es nur für neue Dokumente Sinn macht.

Andreas

[Selin]

Hallo,

danke Euch.
Ich hatte es ähnlich

...
Set doc = Source.Document
   doc.ACLRoles = acl.Roles   
   
   Call Source.Refresh
   doc.Zugriffliste_L = ACLRoles

...

aber das hatte nicht funktioniert.

Vielen dank noch mal.

Liebe Grüsse
Selin