Bonjour,
J'ai utilisé l'exemple de cet exellent tutoriel de Fabrice Constans sur les réquêtes d'analyse croisée paramétrée avec ACCESS. J'ai choisi de créer ma requête en VBA comme ce qui est conseillé.
J'ai donc un formulaire de saisi où l'on rentre 2 dates pour l'analyse des données (ddeb et dfin : ces 2 données sont stockés dans une table) et un bouton où je lance mon code vba suivant :
Voila le pb : pour la date de début ddeb il inverse les jours et les mois, ce qui fait si je saisie 01/02/2006 il va sélectionné dans ma requête 02/01/2006 (j'ai vérifié dans ma table, la date rentrée est correcte). Pour ce qui concerne la date de fin dfin pas de pb, il n'inverse pas les jours et les mois.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim Sql As String Sql = "TRANSFORM Count(R_LISTING_ADHERENTS_PROF.s_nom) AS CompteDes_nom" Sql = Sql & " SELECT R_LISTING_ADHERENTS_PROF.specialite_txt, Count(R_LISTING_ADHERENTS_PROF.s_nom) AS [Total de s_nom]" Sql = Sql & " FROM R_LISTING_ADHERENTS_PROF" Sql = Sql & " WHERE (((R_LISTING_ADHERENTS_PROF.s_date_adhesion) between #" & Me.ddeb & "# and #" & Me.dfin & "# ))" Sql = Sql & " GROUP BY R_LISTING_ADHERENTS_PROF.specialite_txt" Sql = Sql & " PIVOT R_LISTING_ADHERENTS_PROF.mode_exercice_txt In (Institutionnel,Libéral,Associatif);" DoCmd.DeleteObject acQuery, "RS_SYNTHESE_PROF_1_PERIODE"
Pouvez-vous m'aider à trouver mon erreur ?
Merci bc
Partager