title: Access ACL entries
body: <p>Somebody can explain why this code won't work. I get no values in the Authors field nor printed anything. </p>
  
  <pre><code>Sub Querysave(Source As Notesuidocument, Continue As Variant)
  
      ' Add users with role R* to Authors
      Dim s As New NotesSession
      Dim e As NotesACLEntry
      Dim it As NotesItem
  
      Set it = Source.Document.GetFirstItem("Authors")
  
      Set e = s.CurrentDatabase.ACL.GetFirstEntry
      While Not e Is Nothing
          Print e.Name
          If e.IsRoleEnabled("R1") Then it.AppendToTextList(e.Name)
          If e.IsRoleEnabled("R2") Then it.AppendToTextList(e.Name)
          Set e = s.CurrentDatabase.ACL.GetNextEntry(e)
      Wend
  
  End Sub
  </code></pre>
  
  <p>The database is on a server and has entries in the ACL.</p>