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

[patou60110]

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.

[patou60110]

ProgElecTun grand merci pour aide

[patou60110]

ProgElecTun grand merci pour aide

Code :

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

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 :

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

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

[ProgElecT]

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

Salut