Discussion :

[karidrou]

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 :

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"

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.
Pouvez-vous m'aider à trouver mon erreur ?
Merci bc

[batou22003]

Bonjour,

Et bien, ce que je sais, c'est que les dates dans les requetes sont toujours au format américain. (mm/jj/aaaa)

Concernant Me.ddeb et Me.dfin, avant ta requete regarde les valeurs
stockées dedans avec des MsgBox .
MsgBox Me.ddeb et MsgBox Me.dfin.

Après lorsque tu récupères les éléments de ta tables et que tu veux afficher le champs Date au format francais.
Utilise format(MaDate, "dd/mm/yyyy")

@+

[jean-paul lepetit]

Salut,

je crois que ce problème avait déjà été évoqué sur le forum.
Il me semble que les dates sont stockées au format americain mm/jj/aaaa.
Il faut que tu vois avec la fonction format

[karidrou]

Merci pour les réponses
Mais Je suis un peu perdu, où je dois faire le changement de format date ?
est-ce que c'est dans mon code vba ou au niveau du formulaire ou au niveau de ma table qui stocke ces dates ???

[random]

ces dates dans access sont un peu galère
essaye ceci

Code :

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

(((clng(R_LISTING_ADHERENTS_PROF.s_date_adhesion)) between " & clng(Me.ddeb)  & " and  &  clng( Me.dfin & "#  )))"

la fonction clng(madate) te retourne un entier ce qui t'exonère de tout problème

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[karidrou]

Ce code ne fct pas :
erreur de synthaxe dans l'expression (((clng(R_LISTING_ADHERENTS_PROF.s_date_adhesion)) between #38749# and #38776# ))"
Est ce que cela parle à quelqu'un?

[karidrou]

En utilisant format plus de pb

Code :

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

1
2
 
WHERE (((R_LISTING_ADHERENTS_PROF.s_date_adhesion) between  " & Format(Me.ddeb, "\#mm/dd/yyyy\#") & " and #" & Me.dfin & "#))"

Merci vos réponses