Discussion :

[patou60110]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ProgElecT]

Peut être

If Checkhippo(0).Value = 0 Then

[patou60110]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Checkhippo(0).Value = 0 Then
       Rstado.Fields("droite") = False
    Else
       Rstado.Fields("droite") = True
    End If

[patou60110]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[zazaraignée]

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

[ProgElecT]

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).

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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