DominoArea.org [Archive]

Je souhaiterais tester si une personne QUI appartient a une liste Valideurs.Je n'arrive pas a tester mon champ list Valideurs ???J'ai tout essayer et vous appel a l'aideGrand merciMA sourceSub Querymodechange(Source As Notesuidocument, Continue As Variant)Dim session As VariantDim Qui As StringDim Qualiticien As StringDim Author As StringSet session = CreateObject("Notes.NotesSession")Qui=Cstr(Session.UserName)Qualiticien= Cstr(Source.Document.Qualiticien(0))Author= Cstr(Source.Document.Author(0))'Test si Qui appartient a la liste ????If Iselement(Source.Document.Valideurs(Qui)) = True 'Erreur Object variable not set !!!ThenMessagebox " Non autorisé, Veuillez prendre contact avec " & source.document.Qualite(0),0,"Alerte"Continue=FalseEnd IfEnd Sub

J'y préfere la version :Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Dim session As Notessession Set session = Source.Document.Parentdatabase.Parent If Not( Arraygetindex(Source.Document.Valideurs, session.Username)) Then Messagebox " Non autorisé, Veuillez prendre contact avec " & source.document.Qualite(0),0,"Alerte" Continue=False End IfEnd Sub