interdire le passage en édition par un double-clic

[isabelle]

Bonjour à tous,
Je cherche une méthode pour empecher la modification d'un document par un double-clic. je veux forcer l'utilisateur à cliquer sur le bouton "Modifier".
Pour cela, j'ai déclaré dans l'option (declarations) du masque le champ suivant :

Code : Tout sélectionner

Dim allowEdit As Boolean

Voici le code du bouton modifier de la barre d'action :

Code : Tout sélectionner

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc    As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   allowEdit = True
   uidoc.EditMode = True
End Sub

Voici le code du Querymodechange du masque :

Code : Tout sélectionner

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   If allowEdit =True Then
      allowEdit = False
   Else
      Messagebox "Modification impossible par double-clic"
      continue = False
   End If
   
End Sub

lorsque je clique sur le bouton modifier, le champ allowEdit passe bien à True
lorsque j'arrive dans dans le Querymodechange, le champ allowEdit est à false ! et je ne peux donc pas modifier.
est-ce que quelqu'un peut m'expliquer pourquoi je perds la valeur du champ allowEdit ?
merci par avance pour votre aide.

[Michael DELIQUE]

salut

j'ai codé ça ya longtemp, de mémoire je passais par un champ pour stoker la valeur.

sinon pour ton "Dim allowEdit As Boolean " tu la bien mise dans la partie "Global" ?

[isabelle]

Bonjour,

oui, j'ai mis Dim allowEdit As Boolean dans (Declarations) de (Globals) MainTopic
j'ai mis Option Declare dans (Options) de (Globals) MainTopic

[buggy31]

Salut Isabelle,
Si j'utilise ton code tel que, sur un masque ayant deux champs, je n'ai aucun souci.
A voir si tu n'as pas un bout de code en plus qui touche a allowEdit.....
Ou en testant sur ta base un formulaire simple.