OVH Cloud OVH Cloud

souci avec procédure sur Case à cocher

2 réponses
Avatar
Marcotte300
Bonjour tout le monde.

Dans un sous-formulaire j'ai ins=E9r=E9 une case =E0 cocher qui=20
doit me permettre d'activer une zone de texte lorsque je=20
coche ladite case.

Dans l'=E9v=E8nement "sur activation" de mon formulaire=20
principal, j'ai ins=E9r=E9 la proc suivante:

Private Sub Form_Current()
If Forms!Form1!Sform!casecoche.Value =3D True Then
zonetexte.Enabled =3D True
Else
zonetexte.Enabled =3D False
End If
End Sub

Il ne se passe rien. Quelqu'un peut-il me donner une=20
solution?

Cordialement

2 réponses

Avatar
Raymond [mvp]
Bonjour.

où se trouve la zonetexte ?
si elle est dans le sous-formulaire également, faire:
Private Sub Form_Current()
Forms!Form1!Sform!zonetexte.Enabled = Forms!Form1!Sform!casecoche
End Sub
il faut mettre également la même fonction dans l'événement afterupdate de
casecoche
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marcotte300" a écrit dans le message
de news: 071f01c4d837$5b81a340$
Bonjour tout le monde.

Dans un sous-formulaire j'ai inséré une case à cocher qui
doit me permettre d'activer une zone de texte lorsque je
coche ladite case.

Dans l'évènement "sur activation" de mon formulaire
principal, j'ai inséré la proc suivante:

Private Sub Form_Current()
If Forms!Form1!Sform!casecoche.Value = True Then
zonetexte.Enabled = True
Else
zonetexte.Enabled = False
End If
End Sub

Il ne se passe rien. Quelqu'un peut-il me donner une
solution?

Cordialement
Avatar
3stone
Salut,

"Marcotte300"
Dans un sous-formulaire j'ai inséré une case à cocher qui
doit me permettre d'activer une zone de texte lorsque je
coche ladite case.


Et cette case à cocher est basé sur un champ de la table ?


Dans l'évènement "sur activation" de mon formulaire
principal, j'ai inséré la proc suivante:

Private Sub Form_Current()
If Forms!Form1!Sform!casecoche.Value = True Then
zonetexte.Enabled = True
Else
zonetexte.Enabled = False
End If
End Sub

Il ne se passe rien. Quelqu'un peut-il me donner une
solution?


Si la case à cocher est indépendante, mettre
le code sur après mise à jour de la case...
mais, dans ce cas, plutôt la remplacer par une
bascule...


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome