помогите плиз с функцией(

[CobWeb]

Sub Querymodechange (Source As Notesuidocument, Continue As Variant)

Dim acl As NotesAcl
Dim entry As NotesAclEntry
Dim user As String

user = Source.Document.ParentDanabase.Parent.UserName
Set acl = Source.Document.ParentDanabase.acl
Set entry = acl.GetEntry(user)

if (entry.IsRoleEnable("[experts]")) Then 
Continue = True
Else Continue = False

End if
End Sub

Этот код работает если юзер явно определен в роли, в данном случае в роли эксперт, но не работает если юзер неявно определен. У меня он входит просто в группу на сервере, а уже группа включена в роль эксперт. Есть ли какое нить свойство чтобы еще и группу просматривать в роли, или просто группу тогда просматривать а не роль? а то в данном случае выдаетон ошибку (что то про объект среды)

 

[morpheus]

Так наверное будет быстрее

...
Dim v as Variant
v= Evaluate({ @IsMember("[experts]"; @UserRoles) } )
If v(0) = "1" then 
Continue = True
Else 
Continue = False
end if

 

[CobWeb]

Для: Morpheus
действительно проще и все работает8) благодарствую