Problème checkbox

Résolu
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -  
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -
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

9 réponses

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
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?
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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)
0
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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 ?
0
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
Eh oui tout simplement, que suis-je bête, merci du coup de mains...
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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)
0
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
Je note ton petit truc

Grand merci
@+
0