listbox checkbox access

Salut

J'ai un problème avec une listbox. Je vous explique : j'ai une listbox qui est connectée à Access2003 par un module ADO. Ma base contient plusieurs champs et quelques champs oui/non. J'arrive à afficher mes champs dans des textbox. Le problème se pose maintenant : je n'y arrive pas avec le chekbox pour les champ oui/non.

Code:

---

1 2 3 4 5 6 7

Private Sub listbox_Click()   If Checkhippo(0) = 0 Then Rstado.Fields("droite") = False Else Rstado.Fields("droite") = True End If

---

Merci, j'attends vos conseils avec impatience.

Peut être

Citation:

---

If Checkhippo(0).Value = 0 Then

---

ProgElecT merci de ton aide, hela sa ne fonctionne toujour pas.si tu as autre chose je suis preneur.

Code:

---

1 2 3 4 5

If Checkhippo(0).Value = 0 Then Rstado.Fields("droite") = False Else Rstado.Fields("droite") = True End If

---

Citation:

---

Envoyé par patou60110

ProgElecT merci de ton aide, hela sa ne fonctionne toujour pas.si tu as autre chose je suis preneur.

Code:

---

1 2 3 4 5

If Checkhippo(0).Value = 0 Then Rstado.Fields("droite") = False Else Rstado.Fields("droite") = True End If

---

---

j'ai trouvé ceci mais je ne comprend pas

si c vrai, alors tu coches la case;
tu peux faire ça ) l'aide de booléens du style

if (ta_valeur_est_à_vrai=true) then cocher_la_case=true
end if;

Il me semble qu'avec les propirétés DataSource et DataField du composant CheckBox, ce devrait être simple. À moins que je me trompe...

Chez moi pour un champ Vrai/False, dans une table Access2000, le champs = 0 (zero) pour Vrai(True) et -1 (moins 1) pour Faux(False).

Citation:

---

Envoyé par patou60110

J'arrive à afficher mes champs dans des textbox. Le problème se pose maintenant : je n'y arrive pas avec le chekbox pour les champ oui/non.

---

La ou je ne suis pas sûr de comprendre, tu cherches a afficher le champs ou a le modifier ?

Si s'est pour l'afficher

Code:

---

1 2 3 4 5 6 7

If Rstado.Fields("droite") = -1 Then 'faux Checkhippo(0).Value = 0 Else 'vrai Checkhippo(0).Value = 1 End If

---

si pour s'est modifier le champs

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If Checkhippo(0).Value = 0 Then 'faux Rstado.Fields("droite") = -1 Rstado.Update 'ou plus direct 'Rstado.Update "droite", -1 Else 'vrai Rstado.Fields("droite") = 0 Rstado.Update 'ou plus direct 'Rstado.Update "droite", 0 End If

---

ProgElecT, pour l'instant je souhaite les affichées, par la suite modifiée ou les supprimer.

ps : comme j'etait bloque, je travail sur une form remerciement, et je cherche un gif animée de devloppez.com. si vous avez avotre grenier ou a votre cave merci de pensée a moi.

ProgElecTun grand merci pour aide:king::king::king::king::king::king::king:

Citation:

---

Envoyé par patou60110

ProgElecTun grand merci pour aide:king::king::king::king::king::king::king:

---

Code:

---

1 2 3 4 5

If Rstado.Fields("gauche") = -1 Then Checkhippo(0).Value = 0 'vrai Else Checkhippo(0).Value = 1 'faux End If

---

par contre j'ai du inverse 1 et 0

Code:

---

1 2 3 4 5

If Rstado.Fields("gauche") = -1 Then Checkhippo(0).Value = 1 'vrai Else Checkhippo(0).Value = 0 'faux End If

---

mais c'est ok sa fonctionne encore :king::king::king::king::king::king:

Citation:

---

par contre j'ai du inverse 1 et 0

---

Normal ;), tu utilses dans ton dernier message le champs Rstado.Fields("gauche"), alors que jusqu'a maintenant tu utilisais Rstado.Fields("droite"), je t'ai donné un reponse pour une analyse de droite

Ceci restant toujours vrai, (ou pas faux :lol:)
Un champ Vrai/False, dans une table Access2000, le champs = 0 (zero) pour Vrai(True) et -1 (moins 1) pour Faux(False).

Tout ceci reste un faux(False) debat, l'important est que ton probleme soit resolut, pas vrai(True) :lol:

Salut :aie: