Checkbox.value - Expression sans paramètre [Résolu]

[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 ???

[jpcheck]

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 :

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

[jpcheck]

et avec ceci ?

Code :

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.

[jpcheck]

que t'indique le code suivant stp ?

Code :

MsgBox  Me.CocherSalarié

[clonezoë]

holala, il me marque le même message d'erreur !!

[Domi2]

Bonjour,

Mes cases à cocher sont dans un groupe d'option

Si tes cases à cocher sont dans un groupe d'option, tu dois récupérer la valeur de ce dernier.

Essaie avec :

Code :

MsgBox Me.NomDeTonGroupeOptions

Domi2

[clonezoë]

là il me donne une réponse : 1

[clonezoë]

ok alors j'ai remplacé chaque nom de case à cocher par le nom de mon groupe d'option avec d'abord la valeur 1 pour la 1ère requête puis la valeur 2 pour la 2nde et çà fonctionne parfaitement.

Merci beaucoup de votre aide