par Raziel » 21 Juil 2011 à 09:18
Dans le QueryModeChange, tu peux tester l'état du doc :
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
If Source.EditMode Then ' Indique que le doc est en édition et va repasser en lecture
Continue = True
Exit Sub
End If
' Cas où le doc est en lecture et tente de passer en édition
Dans ce cas tu vérifie les rôles du user ainsi que le statut du doc, si le passage en édition est autorisé tu fais Continue = true sinon Continue = false
End Sub
Et pour être complet, il faut aussi que tu vérifie l'évèenement PostOpen afin de valider que le user n'ouvre pas le doc directement en édition
Raziel
L'administration est un lieu ou les gens qui arrivent en retard croisent dans l'escalier ceux qui partent en avance. [Georges Courteline]