Controle de saisie sur une liste déroulante

Bonjour,

Petit problème dont je ne trouve pas de solutions.

Voilà,

Sur un formulaire, j'ai une première question à laquelle l'utilisateur doit répondre par oui ou par non via des cases à cocher.
A la question suivante se trouve une liste déroulante.
Je souhaite que s'il ne répond pas à la premiere question, il ne puisse pas répondre et q'un message l'avertisse de son oubli à la question précédente.

J'ai donc essayé plusieurs choses lorsque l'utilisateur entre sur la liste:
-If nomduchamp(ou casecocher28) <> 1 (1=Oui) Then
Msgbox(" blabla", vbyesokonly,"attention")
End if

Mon probléme c'est que la condition est toujours vrai même quand le gars clique sur oui et qu'il vient ensuite sur la liste.

Je ne reprend jamais la main.

une sorte de boucle infini.

Merci pour tous les conseils que vous pourrez m'ammener

salut,

il faut tester tes cases à cocher avec les valeurs True ou False.

Essai ceci:
C1 et C2 sont tes cases à cocher; Mod est ta zone de liste modifiable.
1/dans ton module de formulaire;Juste en dessous de:
Option Compare Database
Option Explicit

Code:

---

Dim reps as Boolean

---

2/Sur l'evenement "Ouverture" de ton form, ecris ceci:

Code:

---

1 2	Me!C1.Value = 0 Me!c2.Value = 0

---

3/Sur l'evenement click de C1:

Code:

---

1 2 3 4 5 6 7 8

If Me!C1.Value = True Then Me!c2.Value = False reps = True ElseIf Me!c2.Value = True Then reps = True Else reps = False End If

---

4/Sur l'evenement click de C2:

Code:

---

1 2 3 4 5 6 7 8

If Me!c2.Value = True Then Me!C1.Value = False reps = True ElseIf Me!C1.Value = True Then reps = True Else reps = False End If

---

5/Sur l'evenement "reception du focus" de la zone liste Mod:

Code:

---

1 2 3 4 5 6

If reps = False Then MsgBox "repondez à la question plus haut svp!",vbok+vbExclamation,"mon application" Me!Mod.Enabled=False Else Me!Mod.Enabled=True End If

---

@+

Tout ceci revient à dire

Code:

---

1 2 3 4

If (Me.C1 = False) And (Me.C2 = False) Then MsgBox "Blablabla..." .....suite de ton code End If

---

tu peux utiliser Not(Me.C1) ça veut dire la même chose.
Mets Faux ds les propriétés Valeur par défaut de tes cases, ça évitera du code sur ouverture du form et des erreurs de données Null

Edit: Ou mieux encore puisqu'à chaque fois il faut que l'une (et une seule) ou l'autre soit cochée...Donc elles ne sont jamais Egales

Code:

---

1 2 3 4

If Me.C1 = Me.C2 Then MsgBox "Blablabla..." .....suite de ton code End If

---