アクセスACLのエントリ

Question

誰かがこのコードがうまくいかない理由を説明することができます。 Authorsフィールドに値がなく、何も印刷されません。

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 

データベースはサーバ上にあり、ACLにエントリがあります。

Answer 1

私は、LotusScriptに別の変数を作成する必要がある場所があると思います。すべての例がそのように書かれています。それは間違いなく、バグだと私はそれが文書化されている疑いがあります。

Answer 2

は、私は少しコードを変更し、それが動作します：

Sub Querysave(Source As Notesuidocument, Continue As Variant) 

    ' Add users with role R* to Authors 
    Dim s As New NotesSession 
    Dim acl As NotesACL 
    Dim e As NotesACLEntry 
    Dim it As NotesItem 

    Set it = Source.Document.GetFirstItem("Authors") 

    Set acl = s.CurrentDatabase.ACL 
    Set e = acl.GetFirstEntry 
    Print e Is Nothing 
    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 = acl.GetNextEntry(e) 
    Wend 

End Sub 

が、これはどこかまたは壊れて簡単な文書化されています。