Domino 9 und frühere Versionen > ND6: Entwicklung

Alle Rollen in einem Feld anzeigen

<< < (3/5) > >>

koehlerbv:
Da arroles kein skalarer Wert ist, sondern ein Array, geht natürlich FieldSetText nicht - das erwartet ja einen String.


--- Code: ---Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Dim rolles As String
   Dim arrRoles() As String
   Dim idx As Integer
   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
      Redim Preserve arrRoles(idx)
      arrRoles(idx) = r
      idx = idx + 1
     
   End Forall   
   Zugriffliste_L = arroles
   Call workspace.ViewRefresh
--- Ende Code ---

Bernhard

Glombi:
Also das ist für mich zu kompliziert. Besser so:

Sub Postopen(Source As Notesuidocument)
   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   
End Sub

Das Fed "Zugriffliste_L" muss dann eine Dialogliste mit einer Formel als Auswahl haben. Als Formel wird dann lediglich
  ACLRoles
eingetragen.

ACLRoles muss ein Textfeld mit Mehrfachwerten sein.

Andreas

Selin:
Hallo Andreas,

hat super funktioniert.
Vielen dank

@Bernhard: Bei deinem Script blieb das Feld Zugriffliste_L leer.

danke noch mal an alle
Selin

klaussal:

--- Zitat ---@Bernhard: Bei deinem Script blieb das Feld Zugriffliste_L leer.

--- Ende Zitat ---

Ja logo, hat er ja auch extra geschrieben:

--- Zitat ---geht natürlich FieldSetText nicht - das erwartet ja einen String.

--- Ende Zitat ---

Selin:
nein, mit dem aktuellen Script von ihm, blieb das Feld leer.

 Zugriffliste_L = arroles
 Call workspace.ViewRefresh

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete