Besoin d'aide pour Textbox condition [Résolu]

Signaler
Messages postés
19
Date d'inscription
mercredi 28 octobre 2009
Statut
Membre
Dernière intervention
14 juin 2010
-
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
-
salut quelqu'un m'aide pour corrigé se code
Private Sub txtPERIOD_ABS_Click()
If txtPERIOD_ABS.text = 1 Then
   cmdimprimer.Enabled = True
if txtPERIOD_ABS.text > 1 Then
   cmdimprimer.Enabled = False
End If
End Sub

6 réponses

Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
9
Alors en résume, l'idéal serait:

If txtPERIOD_ABS.text = "1" Then
   cmdimprimer.Enabled = True
elseif txtPERIOD_ABS.text > "1" Then
   cmdimprimer.Enabled = False
End If


Calade
Messages postés
14675
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 juillet 2020
143
Bonjour,

Quel est le problème ?

Mon site
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
49
Salut
Il manque un end if
If txtPERIOD_ABS.text = 1 Then
cmdimprimer.Enabled = True
ajoutes end if
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
49
En plus
C'est mieux d'écrire val(txtPERIOD_ABS.text)
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
9
Bonjour,

Plutôt
If txtPERIOD_ABS.text = "1" Then 

cela évitera une conversion inutile puisque le contenu d'une textbox est par défaut une String.


Calade
Messages postés
6413
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
17 mai 2018
293
Il serait même préférable de mettre un Else if et deux end if