Champs à zéro = bouton à Enabled = FalseRésolu

Question

bonsoir
dans ma base j'ai plusieurs tables et dans une table j'ai un champ avec comme  type de donée "oui/non".
dans une form j'ai un bouton,comment mettre se bouton à Enabled = False quand se champ est à zéro.
merci
@ plus
petchy

cs_Jack · Accepted Answer

Au fait, dans ta requête, tu charges la table entière.
Il y a donc plusieurs champs dans le RecordSet.
Lequel choisis-tu ?
Parce que là, c'est le premier de la liste qui est pris en compte.
Bizarre, ton truc.

cs_Jack · Answer

Salut
En réalité, les Booléens de VB6 sont des Integer :
0 pour False
-1 pour True, ou n'importe quelle autre valeur que 0
Donc, en lisant ta donnée, tu peux très bien aider VB en faisant une simple conversion :
monBouton.Enabled = CBool(monRecordSet.Fields("monChampOuiNon").Value)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

0 --> Hexa : 0000 = Tous les bits à zéro
-1 --> Hexa : FFFF = Tous les bits à un

cs_petchy · Answer

Re
super,merci Jack 
c'est nickel
bon week-end
@ plus
petchy

cs_petchy · Answer

oups,un petit probleme.
le code fonctionne bien sur la première données  dans ma table,le probleme c'est que j'ai plus de 300 données,et si la première données le champ oui/non est à zéro et que le second ou le 100 est à 1 le bouton reste à false.
comment faire pour controle tous le champ 
merci

cs_Jack · Answer

Sans savoir quel code tu utilises pour lire tes données et appliquer cette conversion, difficile de te répondre.
Il est aussi possible que, à la relecture de ton champ Oui/Non, tu récupères le texte "Oui" ou le texte "Non" : Ça arrive avec les applications régionalisées.
Il n'y a que toi pour le dire.
Dis nous donc ce que renvoie ton champ, on verra les solutions après.

PS : Si tu colles du code (pas trop long, hein), utilise la coloration syntaxique = 3ème icône à droite.

cs_Jack · Answer

Si le champ renvoie "Oui" ou "Non", une solution :
monBouton.Enabled = IIf( _
      StrComp(monRecordSet.Fields("monChampOuiNon").Value, "Oui", vbTextCompare) = 0, _
      True, _
      False)

cs_petchy · Answer

bonjour
voila le code pour récupéré la donnée du champ,
Set rs = New ADODB.Recordset
'Ouverture et remplissage du recordset
 rs.Open "centre_aéré", Db, adOpenDynamic, adLockOptimistic
cd1.Enabled = IIf( _
      StrComp(rs.Fields("present").Value, "oui", vbTextCompare) = 0, _
      True, _
      False)
mais ça ne fonctionne pas,j'ai tester le retour de la valeur du champ dans un textbox et ça me renvoi faux,alors que la seconde donnée le champ est vrai (coché)
j'ai meme essayer ça,je ne sait pas si c'est bon
While Not rs.EOF
 Text3.Text = rs![present]
 rs.MoveNext
 Wend

petchy

cs_Jack · Answer

Si la valeur lue dans ton champ est False ou True, pas de difficulté : Tu peux affecter le .Enabled à la .Value du champ.
Si tu dis que cela ne fonctionne pas, c'est qu'il y a un autre problème.
Pense à utiliser F9 et F8 pour déboguer.

cs_petchy · Answer

bonsoir
en fait je charge la table "centre_aéré" et dans cette table il y a plusieurs champ mais le champ dui m'interesse est le champ "present",peut etre qu'au niveau de mon chargement je m'y prends mal.
comment fait on pour récupérer tous les champs 
pourrais tu m'éclairer
merci
petchy

cs_petchy · Answer

bonjour
j'ai trouver une parade pour récupérer l'info
j'ai creer une requete avec un champ total
ensuite dans ma form je récupere la donnée dans un textbox
si le chiffre dans le textbox est sup à 0 alors le bouton est à true sinon il est à false.
ça fonctionne comme ça,donc c'est bon.
merci encore Jack pour ton coup de main 
bon dimanche
@ plus
petchy

Champs à zéro = bouton à Enabled = False

11 réponses

Votre réponse