Problème checkbox Résolu

Question

Bonjour, 

 Je suis débutant en vb6 et je cré un petit logiciel utilisant des checkbox et une base  de donnée access.

Lorsque j'enregistre la valeur de ma checkbox dans ma base données pas de soucis.

Lorsque je veux charger la valeur de ma checkbox il me met "valeur de propriété incorrect" parcequ'il reçoit comme valeur "vrai" au lieu de "1"

Ma question est donc comment convertir une valeur "vrai" en "1" dans un code vb6.

Merci

Configuration: Windows XP / Internet Explorer 7.0

lermite222 · Answer

Bonjour,
C'est un bug de VB6 Francais
Quand il enrégistre il met "Vrai" mais pour restituer il faut "True"
Pour y remédier..
    If TaValeur = "Vrai" then CheckBox1.value = True
A+

stef.roos · Answer

Merci ça marche, mais je pensais qu'il y avait peut-être moyen de convertir le "vrai" booléen en "1" integer directement dans ma ligne de code sans devoir passer par If...Then

Tu comprends ce que je veux dire?

lermite222 · Answer

C'est possible, dis d'abord..
Comment tu enrégistre la valeur CheckBox dans ta BD ?  
L'expérience instruit plus sûrement que le conseil. (André Gide)    
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

stef.roos · Answer

Dans un champ ayant comme type de valeur "oui/non"

par la  ligne de code

.Fields("ChantierIdentiqueFacturation") = FormRepertoire.RepIdentique.Value

et je la récupère avec la ligne de code

.RepIdentique.Value = Enregistrement.Fields("ChantierIdentiqueFacturation")

Et là ça bug du au retour vrai à la place de true

lermite222 · Answer

Y a quelque chose que je comprend pas, la valeur d'un checkBox en VB6 est 1 ou 0, alors comment ce fait-il que tu à un Boolean ?

stef.roos · Answer

C'est vrai qu'il suffirait alors que je transforme mes champs de base de données en integer à la place de booléen et ça devrait marcher. je vais essayer et je te tiens au courant

stef.roos · Answer

Eh oui tout simplement, que suis-je bête, merci du coup de mains...

lermite222 · Answer

Un petit truc que j'emploi pour palier au bug des boolean. 
J'enrégistre en integer 
dim A as Integer,B as Boolean 
A = Abs(Boolean) si c'est -1 ça fera 1 sinon 0 
et pour assigner 
B = -A , si A= 0 beh.. ça fera 0 et si c'est 1 ça fera True.
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

stef.roos · Answer

Je note ton petit truc

Grand merci
@+

Problème checkbox

9 réponses

Discussions similaires

Newsletters