Discussion :

[Swiip38]

Bonjour,

j'ai un petit problème dans le code d'un bouton présent sur un formulaire. Voici le code :

Code :

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

1
2
3
4
5
Private Sub Commande40_Click()
If Option35.Value = True And Option33.Value = False And Option38.Value = False Then
DoCmd.OpenReport "Toutes les BD à acheter", acViewPreview
End If
End Sub

Je m'explique : sur le formulaire j'ai mis 3 cases option (Option33, Option35, Option38) et un bouton (Commande40) permettant d'ouvrir l’état "Toutes les BD à acheter" si la case Option35 est vrai (cochée) et que les cases Option33 et Option38 sont fausse (décochée).

Seulement le fait d'avoir 3 conditions après le IF (en rouge) bloque le déroulement de la chose. En effet si on enlève une des conditions on a plus de problème, cela marche.

Ma question c'est : comment faire pour avoir mes 3 conditions et que cela fonctionne ???

Merci pour vos réponses !!!

[dodo28]

bonjour,
Peut etre essayé avec select ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Select Case Me.CadreOption.Value
 
    Case 1 'si Option35 est vrai
DoCmd.OpenReport "Toutes les BD à acheter", acViewPreview
   case 2 'si option36 est vrai
 ' action
  case 3 'si option37 est vrai
'action
 
 
end select

C'est une idée mais je ne sais pas si c'est la bonne.

[Swiip38]

Merci pour ta réponse mais en fait c’était un autre problème que j'avais pas vu

explication : Le code et OK mais la valeur par défaut des case option n’était pas "False" du coup il ne vérifier pas la condition d'ou la non action !!!

Merci encore ... et dsl