Discussion :

[pdemeure]

Bonjour,
Une chose basique qui pourtant ne fonctionne pas...
J'ai besoin de gérer l'incrémentation d'un compteur pour un nombre d'essais de login, déclenché par un clic sur bouton.
Le principe est simple, je voudrais que la valeur X soit incrémentée de 1 quand on clique sur le bouton Btn_Plus1 et que la valeur de X soit affichée dans un champ AFFCOMPTEUR

Pour faire simple, voici le code associé au bouton :

Private Sub Btn_Plus1_Click()
X = X + 1
AFFCOMPTEUR = X
End Sub

PROBLEME :
Lors du premier Clic, la valeur de AFFCOMPTEUR est bien mise à 1, mais lors des clics suivants, AFFCOMPTEUR reste toujours à 1 au lieu de passer à 2 puis 3, etc...
J'ai essayé de déclarer X en tant que variable dans Form_Open ou Form_Load, en tant que Long ou Integer, rien n'y fait , le compteur reste toujours à 1, comme si X n'était jamais incrémenté ou que "rien"+1 = toujours 1 !!!
J'ai créé des codes bien plus compliqués, et la gestion d'un compteur est une chose plus qu'élémentaire... Pourquoi ce code tout simple ne fonctionne-t-il pas et que faudrait-il faire pour que X soit correctement incrémenté ?
Merci par avance si vous pouvez aider...
P.D.

[RobiPMS]

Bonjour.
Je viens de faire un petit essai avec la méthode suivante :
Le champ AFFCOMPTEUR avec une valeur par défaut = 0.
Le bouton Btn_Plus1 avec le code suivant :

Code :

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

1
2
3
Private Sub Btn_Plus1_Click()
Me.AFFCOMPTEUR.Value = Me.AFFCOMPTEUR + 1
End Sub

Si ça peut correspondre à ce que tu veux faire, ça fonctionne.
Cordialement.

[pdemeure]

Merci pour ta réponse et ton test.
En fait, j'ai enfin trouvé la raison de ce problème : X ne faisait pas l'objet d'une déclaration...
J'ai ajouté "Dim X as Long" dans la partie Déclarations du formulaire et çà fonctionne sans problème.
Pierre