Discussion :

[seacat]

Bonjour,

pas trouvé de réponse dans les FAQ à la question suivante:

lorsque j'utilise une boite de dialogue utilisateur, est il possible de tester
le clic sur 'annuler' ?


merci

[HookerSeven]

Salut,

Le click même de la souris je ne sais pas, mais avec if ... then comme ceci je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If MsgBox("Voulez-vous ..... ?", vbOkCancel, "") = vbCancel Then
.....
Else
....
End if

J'espère ne pas être hors sujet.

@+

[Frank]

Dans l'aide Access

Si l'utilisateur clique sur OK ou appuie sur ENTRÉE , la fonction InputBox renvoie le texte contenu dans la zone de texte. Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("")

Je viens de tester, ça marche.
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande0_Click()
 
If InputBox("test dvp !", "Ceci est un exercice") = "" Then
    MsgBox "coucou c est cancel"
    Exit Sub
Else
    MsgBox "coucou c est pas cancel"
    Exit Sub
End If
 
End Sub

Donc tu peux exploiter la valeur renvoyée par le clic sur le bouton Annuler de l'inputbox.

[Arkham46]

slt,

sauf qu'en testant directement la chaîne renvoyée, tu ne fais pas la différence entre un click sur ok sans rentrer de texte et un click sur annuler

ça peut être utile pour par exemple :
- utiliser le résultat dans un critère si OK avec un texte dans la boîte
- continuer un traitement sans critère si OK sans rien rentrer dans la boîte
- annuler le traitement si click sur Annuler

les deux derniers cas peuvent être distingués en vérifiant la valeur du pointeur de la chaîne renvoyée (si on appuye sur cancel alors l'input box renvoie une chaîne vide sans pointeur)

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim lstr as string
lstr = inputbox("test")
if strptr(lstr) = 0 then
  msgbox "click sur annuler"
else
  msgbox "click sur ok"
endif

affiche "click sur OK" même si on clique sur OK sans avoir entré de texte dans la boîte de dialogue

[seacat]

nickel !

merci