Discussion :

[antier]

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

[Petogaz]

salut,

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

[keita]

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 :

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

Dim reps as Boolean

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

Code :

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

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

3/Sur l'evenement click de C1:

Code :

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

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 :

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

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 :

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

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

@+

[Faw]

Tout ceci revient à dire

Code :

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

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 :

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

1
2
3
4
If Me.C1 = Me.C2  Then
MsgBox "Blablabla..."
.....suite de ton code
End If