DominoArea.org [Archive]

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.

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" ?

Bonjour,

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

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.