Message erreur : Tentative execution evenements imbriques

[lebanner]

Bonjour a tous,

J'ai mis du code dans le Querymodechange d'un masque, je code s'éxecute au moment de passer du mode lecture en mode edition.

En piece jointe le message d'erreur, comment je peux remédier à ce message ??

Même avec ce message le code s'execute quand meme.
Voici le code :

Code : Tout sélectionner

Dim nam As NotesName
Set nam = session.CreateName(monchamp)
   
If doc.Statut(0) = "Clôturée" Then
                If session.CommonUserName = nam.Common Then
         source.EditMode = True
         Exit Sub
      End If
End If

Merci d'avance
Cordialement

[Michael DELIQUE]

salut

ben oui dans l'evenement déclenché au changement de mode , tu force le changement de mode...

[lebanner]

Bonjour Michael,

je n'ai pas compris !!! désolé !!!

En gros, je veux faire la même chose mais sans le message pour l'utilisateur

Merci
cordialement

[Michael DELIQUE]

bon je me re-explique

le Querymodechange est exécuter au changement de mode (lecture/edition). c'est donc le fait de passer de lecture a edition ou d'édition à l'ecture qui déclence cet évènnement.

hors ton code demande de forcer le mode "édition" durant le changement de mode. ce qui équivaut a une boucle sans fin. puisque comme tu force le chnagement de mode tu déclence l'évenement Querymodechange.

[lebanner]

OK, merci beaucoup, j'ai compris !!!!

Merci pour l'explication
Bonne journée

Cordialement

[roubech]

si ton but est de n'autoriser le passage en mode édition que dans certaines conditions, il te suffit de faire Contiue = false dans les autres cas ... pour bloquer le changement d'état