Discussion :

[Kisty10]

Bonjour,

J'ai un groupe d'option (RDV) avec les valeurs (oui & non), quand je clique sur "oui" une zone de texte s'affiche et la zone disparait quand je clique sur "non" tout marche bien
Quand je choisi la case a cocher "oui" ou "non" et je consulte la table, je trouve le champ égale a 1 si j'ai coché "oui" et égale a 2 si j'ai coché "non", c'est normal parce que ce sont les valeurs des cases a cocher du groupe d'option.
ma question est : comment donner la valeur (oui & non) a mon champ (RDV) et pas '1' et '2' ?

[Aegnor]

Bonjour,

le plus simple, c'est probablement de changer les valeurs de chaque option (propriété "valeur controle") de votre groupe d'option, de mettre -1 pour Oui et 0 pour Non.
Puis ensuite de changer dans votre table le type de votre champ RDV et de le transformer en champ Oui/Non.
La valeur Oui (ou True) est assimilée par Access à la valeur -1 alors que Non (ou False) est assimilé à la valeur 0.

Cordialement,

[Kisty10]

J'ai essayé mais malheureusement ça ne marche pas, ça donne les valeurs "-1" pour "oui" et "0" pour "non"

quelqu'un a une idée?

[argyronet]

Bonjour,

Eh bien c'est bon...
Ton champ source est bien un champ Oui/Non ?

P.S. Sache dans un champ Oui/Non, OUI = True = -1 et Non = False = 0.

Argy

[Kisty10]

Bonjour argyronet,

Oui mon champ source est un champ OUI/NON.
Voila le code pour désactivé la zone de text

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CaRDV_Click()
Select Case Me.CaRDV.Value
        Case -1
 
           Me.DteRDV.Enabled = True
 
        Case 0
           Me.DteRDV.Enabled = False
 
   End Select
End Sub

Mais quand je consulte ma table, la valeur du champ 'RDV' soit '-1' soit '0', et moi je veux afficher soit 'oui' soit 'non' dans ce champ

[Aegnor]

Mmmmh, vérifiez que le format du champ de ta table soit bien "Oui/Non".


PS : votre code est bon mais par souci d'ergonomie vous pourriez écrire :

Code :

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

1
2
3
4
5
Private Sub CaRDV_Click()
 
    Me.DteRDV.Enabled = Me.CaRDV.Value
 
End Sub

[Kisty10]

Oui c'est bien ça, en fait dans la table les valeurs sont -1 et 0, et dans l'affichage de l'état j'ai des cases a cocher, et pas les valeurs "oui" et "non".
Merci pour l'optimisation du code

[Kisty10]

Ben j'ai changé le groupe d'option par une case a cocher et j'ai des valeurs 'Faux' et 'Vrai' ^^
C'est mieux d'avoir 'Vrai' et 'Faux' qu'avoir '-1' et '0', Merci pour vos réponse
A bientôt