Discussion :

[lolothom]

bonjour

j'utilise un bouton pour générer des valeurs d'essais mais je veux qu'il soit valide une seule fois car les utilisateurs appuient plusieurs fois générant les mêmes essais plusieurs fois

je débute merci

[Invité]

Bonjour

Ton bouton lance donc une routine, à la fin de la routine :

1 - Met le focus sur un autre contrôle (SetFocus)
2 - Rend inactif ton bouton (Enabled = False)

Il faut prévoir la réactivation de ton bouton, lorsque tu veux faire de nouveaux essais.

Starec

[jean-paul lepetit]

Salut,
à l'ouverture de ton formulaire, tu définis un flag à 0

Code :

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

1
2
3
4
Private Sub Form_Load()
Dim Flag as Boolean
Flag=0
End Sub

sur clic de ton bouton tu testes la valeur de ton flag, si 0 tu fais, si 1 tu ne fais pas.

Code :

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

1
2
3
4
5
6
7
Private Sub Commande1_Click()
If Flag=1 Then 
  Exit Sub
Else
  'ton traitement
  Flag=1
End Sub

[lolothom]

merci je teste tout de suite

[lolothom]

j'ai juste un pb
comment je dois définir flag pour qu'il soit reconnu dans les deux sub ?

[jean-paul lepetit]

tes 2 sub font parties du même formulaire.

au chargement de ton formulaire, tu définis ton Flag (Boolean, et tu lui donnes la valeur 0)

et ensuite tu peux utiliser ce Flag sur n'importe quel événement de n'importe quel objet de ton formulaire
Tu peux très bien rajouter un bouton pour pouvoir relancer les tests et sur clic de ce bouton, tu mets

Code :

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

1
2
3
Private Sub Commande2_Click()
  Flag=0
End Sub

[lolothom]

bonjour

merci pour votre aide

mon bouton se trouve en fait dans un sous formulaire

j'ai mis donc flag=0 à l'ouverture du sous formulaire
et flag=1 à la fin d'execution

par contre des que je clique sur le bouton le flag passe à zero , est ce du a la position du bouton dans le sous formulaire du coup ca marche pas

[Invité]

Re

L'idée de jean-paul lepetit est bonne, je l'ai déjà appliquée, mais au fur et à mesure de mes avancés et des applications que j'ai développées, je me suis aperçu que la désactivation des boutons était plus parlante pour les utilisateurs : on ne peut cliquer, on ne cherche pas à cliquer, on peut cliquer, on clique.

Starec

[lolothom]

hello

bon du coup j'ai pris la méthode à starec qui me convient

merci pour votre réactivité