Discussion :

[LeSkwal]

Bonsoir

Je souhaite activer ou non une zone texte par le biais d'une case à cocher.



Je n'y connais rien en VB mais je vois à peu près la logique à tenir.

1 / En ouvrant le formulaire, par défaut la zone texte est inactive.

La case à cocher se situe à coté de la zone texte et un message indique que pour écrire dans la zone texte il faut valider la case à cocher.

Je pense que la logique du code doit ressembler à celle-ci :

Code :

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

1
2
3
4
5
6
If la case à cocher.nom = 0 
then la zone texte.activation = false
 
Else la zone texte.activation = true
 
End

Voilà quelqu'un peut -il résoudre mon problème ? Malgré mes recherches sur le forum, je n'ai rien trouvé (peut-être que je m'y prends mal ...).

Merci d'avance

Pascal

[Invité]

Bonjour

Le principe est bon.

Pour en savoir plus sur les cases à cocher, jettes un coup d'oeil à cet article :
Les Cases à Cocher et les Groupes d'Options dans Access.

Ce qui devrait donner quelque chose de ce type à mettre sur l'évènement Click de ta case à cocher.

Code :

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

1
2
3
4
5
6
7
Private Sub LaCase_Click()
    If Me.LaCase.Value Then
        Me.LaZoneDeTexte.Enabled = True
    Else
        Me.LaZoneDeTexte.Enabled = False
    End If
End Sub

Starec

[LeSkwal]

Bon bah j'ai essayé ça ne fonctionne pas. Je pense toucher du bout du doigt la soluce mais bon ça ne fonctionne quand même pas.
Le code fourni est-il compatible avec Access 2007 ?

Je récapitule :

- J'ai ma zone de texte qui s'appelle : Année2008

- J'ai ma case à cocher qui s'appelle : CocherAn2008

Par défaut lorsque j'ouvre le formulaire la zone de texte est sur verrouillée : OUI

En mode création, je clique sur la case à cocher, et dans l'onglet événement sur la zone "Clic", j'utilise le générateur de code dans lequel je colle le code fourni en modifiant les intitulés ; cela donne :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CocherAn2008_Click()
    If Me.CocherAn2008.Value Then
        Me.Année2008.Enabled = True
    Else
        Me.Année2008.Enabled = False
    End If
 
End Sub

Je repasse en mode formulaire : Je clique sur la coche : la zone texte n'est pas dévérouillée ?

Juste une question : C'est quoi ce "Me" de Me.Quelquechose ?

Pleaseeeeeee

[Domi2]

Bonjour,

Essaie

Code :

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

If Me.CocherAn2008.Value = True Then

Domi2