OVH Cloud OVH Cloud

Groupes d'Options

2 réponses
Avatar
Laurent DUB
Bonjour,
Dans un formulaire unique,
j'ai créé un groupe d'options (4 Options avec les valeurs 1 2 3 et 4
affectés à un champ).
je souhaiterai rendre visible ou non différentes zone de texte sur ce
formulaire en fonction
de l'option choisie.
dois-je écrire le code dans form_current?
quelles sont les différentes valeurs de l'Option ?
en espérant être suffisament clair...

2 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

Place ton code sur l'évènement "après mise à jour" de ton
groupe d'option.

Un truc dans ce genre à titre d'exemple devrait convenir :

Private Sub GroupeOption_AfterUpdate()
dim intChoix as integer
intchoix = groupeoption

select case intchoix
case 1
me.ZoneTxt1.Visible=True
me.zoneTxt2.visibleúlse
case 2
me.ZoneTxt1.Visibleúlse
me.zoneTxt2.visible=True
case 3
me.ZoneTxt1.Visibleúlse
me.zoneTxt2.visibleúlse
case 4
me.ZoneTxt1.Visible=True
me.zoneTxt2.visible=True
End Select
End sub

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent DUB" a écrit dans le message news:

Bonjour,
Dans un formulaire unique,
j'ai créé un groupe d'options (4 Options avec les valeurs 1 2 3 et 4
affectés à un champ).
je souhaiterai rendre visible ou non différentes zone de texte sur ce
formulaire en fonction
de l'option choisie.
dois-je écrire le code dans form_current?
quelles sont les différentes valeurs de l'Option ?
en espérant être suffisament clair...





Avatar
Laurent DUB
Excellent,
cela faisait 1 h que je tournais en rond.
un grand merci.

"Jessy Sempere [MVP]" a écrit dans le message de
news: 42df4ff9$
Bonjour

Place ton code sur l'évènement "après mise à jour" de ton
groupe d'option.

Un truc dans ce genre à titre d'exemple devrait convenir :

Private Sub GroupeOption_AfterUpdate()
dim intChoix as integer
intchoix = groupeoption

select case intchoix
case 1
me.ZoneTxt1.Visible=True
me.zoneTxt2.visibleúlse
case 2
me.ZoneTxt1.Visibleúlse
me.zoneTxt2.visible=True
case 3
me.ZoneTxt1.Visibleúlse
me.zoneTxt2.visibleúlse
case 4
me.ZoneTxt1.Visible=True
me.zoneTxt2.visible=True
End Select
End sub

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent DUB" a écrit dans le message news:

Bonjour,
Dans un formulaire unique,
j'ai créé un groupe d'options (4 Options avec les valeurs 1 2 3 et 4
affectés à un champ).
je souhaiterai rendre visible ou non différentes zone de texte sur ce
formulaire en fonction
de l'option choisie.
dois-je écrire le code dans form_current?
quelles sont les différentes valeurs de l'Option ?
en espérant être suffisament clair...