Cocher/Décocher case dans un formulaire selon contenu d'un champ

Bonjour à tous,


Problème tout simple qui me fait péter un plomb, je vous remercie de votre aide :

J'ai trois cases à cocher qui sont dans Formulaire1 :

Case1
Case2
Case3


J'ai un champ qui s'appelle "champ1" de type texte court

J'ai un bouton click qui s'appelle "bouton1"

Je veux que quand je clique sur "bouton1" le programme va lire la valeur enregistrée dans "champ1" et selon le contenu de ce champ il coche ou décoche les cases :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Private Sub bouton1_Click()   If champ1.Value = "100" Then   case1 = False case2= False case3 = True   ElseIf champ1.Value = "10" Then   case1 = False case2 = True case3 = False   ElseIf champ1.Value = "1" Then   case1 = True case2 = False case3 = False   ElseIf champ1.Value = "110" Then   case1 = False case2 = True case3 = True   ElseIf champ1.Value = "101" Then   case1 = True case2 = False case3 = True   ElseIf champ1.Value = "11" Then   case1 = True case2 = True case3 = True   ElseIf champ1.Value = "111" Then   case1 = True case2= True case3 = True   End If End Sub

---

J'ai essayé de jouer sur les différentes syntaxes qui me sont venues en tete mais ça ne marche pas.

Bonjour.

Qu'Est-ce qui ne marche pas ?

1. Tu n'as pas de résultat ?
2. Tu n'as pas le résultat attendu ? Qu'attendais-tu ? Qu'as-tu eu ?
3. As-tu une erreur ? Laquelle ? Sur quelle ligne ?

A+

Je n'ai aucun message d'erreur, c'est juste qu'il ne se passe rien au niveau des cases à cocher lorsque je clique sur le bouton.

OK, as-tu vérifié que le code s'exécutait bien ?

Pour faire cela, va dans ton code avec l'éditeur et clique dans la marge à gauche de la 1ère ligne.
Cela va mettre un gros point marron (c'est ce qu'on appelle un point d'arrêt).
Puis tu sauvegardes.
Quand tu vas appuyer sur ton bouton, et que ton code est bien exécuté, Access va s'arrêter sur la ligne avec le point.
Tu vas pouvoir suivre ce que fait Access en appuyant sur la touche [F8] pour passer d'une instruction à l'autre.
Cela devrait te donner une piste. Par exemple, il est possible qu'aucune des conditions ne soit vraie,

En passant pour des tests comme les tiens je te suggère d'utiliser Select Case ... Case ... End Select qui rend le code un peu plus léger.

Ça ressemble à cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

select case champ1 case "100" me.case1 = False me.case2= False me.case3 = True   case "10" me.case1 = False me.case2 = True me.case3 = False   'ici les autres cas   case else call err.raise(5,,Error$(5) & " - Aucunes des valeurs de Champs1 prévues." end select

---

me. représente le formulaire en cours.

A+

bonjour,
je viens de tester ton code avec des champs indépendants et il fonctionne très bien. Il y a donc autre chose...
Est-ce que tes cases sont des champs basés (appartenant à une table) ?

Bonjour,

Apres de multiples tentatives je me suis rendu compte que le problème n’était pas dans mon code mais dans le fait que j'associais l’exécution du code à un événement auquel une autre macro était associée. Le code ne s’exécutait donc pas.

J'ai quand même modifié le code avec un Select Case comme l'a suggéré marot_r, c'est plus propre.

Sujet résolu.

Merci pour vos réponses !