Requête Sql dans code vba
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:
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:
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.
