Discussion :

[clonezoë]

Bonjour tout le monde,

j'aurai besoin d'un peu d'aide, j'ai un problème avec mes case à cocher, je voudrais qu'en fonction de la case cochée, ce soit l'une ou l'autre de mes requêtes qui se lance or j'ai un souci dès le départ, je m'explique, j'ai saisi ce code :

Dim Cocher1,Cocher2 As CheckBox

If Me.Cocher1.Value = 1 Then
DoCmd.OpenQuery "R_1"

Elseif Me.Cocher2.Value = 1 Then
DoCmd.OpenQuery "R_2

End if

C'est surement pas très correct mais je veux absolument mes cases à cocher. Pour l'instant je me suis arrêtée à la 1ère commande et il me dit :
Erreur d'exécution '2427':
Expression sans paramètre

y-a-t-il une bonne âme ce matin ???

[Jean-Philippe André]

salut
il faut directement passer par le nom de tes cases du formulaire.
Si une case est cochée elle retourne True, sinon False.

Code :

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

1
2
3
4
5
6
7
If Me.IntituleCaseaCocher1.Value  Then
DoCmd.OpenQuery "R_1"
 
Elseif Me.IntituleCaseaCocher2.Value  Then
DoCmd.OpenQuery "R_2"
 
End if

[clonezoë]

Je ne comprends pas, çà ne marche pas. L'ai-je bien saisi ??

If Me.CocherSalarié.Value Then
DoCmd.OpenQuery "R_Salarié"

ElseIf Me.CocherPrestataire.Value Then
DoCmd.OpenQuery "R_Prestataire"

End If

toujours la même erreur

[Jean-Philippe André]

et avec ceci ?

Code :

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

1
2
3
4
5
6
7
If Me.CocherSalarié = True Then
DoCmd.OpenQuery "R_Salarié"
 
ElseIf Me.CocherPrestataire = True Then
DoCmd.OpenQuery "R_Prestataire"
 
End If

Petit point, tes cases à cocher sont-elles dans un sous-ensemble ? sont-ce bien des cases à cocher, et pas des radio button?

[clonezoë]

çà ne fonctionne pas non plus. Mes cases à cocher sont dans un groupe d'option qui lui même se trouve à l'intérieur d'une page onglet.

[Jean-Philippe André]

que t'indique le code suivant stp ?

Code :

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

MsgBox  Me.CocherSalarié