Bonsoir tout le monde

J'ai donc une zone de liste déroulante affichant mes semaines s'appelant ModifiableSemaine

et j'ai crée un bouton en dessous j'aimerais lorsque je clique sur le bouton (evenement sur clic ) cette requête ci s'ouvre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
SELECT Count(ENFANTS.Num_enfant) AS Expr1
FROM ENFANTS, INSCRITS, SEMAINES
WHERE (((ENFANTS.Num_enfant)=[INSCRITS].[Num_enfant]) AND ((INSCRITS.Num_semaine)=[SEMAINES].[Num_semaine]) AND ((SEMAINES.Nom)=' " & me.ModifiableSemaine.Value & " ') AND ((SEMAINES.Annee)=Year(Now())));

J'ai essayé en enregistrant la requête ( nom : Nb_repas)
et en mettant ce code sous l'événement sur clique du bouton
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Dim nbrepas as string
nbrepas= "Nb_repas"
DoCmd.OpenQuery nbrepas, acNormal, acEdit
Mais lors de mon test:
- je choisi la semaine dans la zone de liste
- et je clic sur le bouton
j'ai comme message d'erreur
" Type de données incompatibles dans l'expression du critère"

Je ne sais pas si ça vient de la requête , ou bien du code Vba pour l'ouverture de la requête.