Discussion :

[nono48]

Par un clic sur un bouton, je veux créer une requête d'analyse croisée conditionnelles avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
sql = "TRANSFORM Count(DEMANDEUR.Numdemandeur) AS [N°]"
sql = sql & " SELECT CONTACT.Prestation"
sql = sql & " FROM PERIODE_STATS_CRMA, DEMANDEUR INNER JOIN CONTACT ON DEMANDEUR.Numdemandeur = CONTACT.Numdemandeur"
sql = sql & " WHERE (((CONTACT.[Date du contact])>= " & Debut & " And (CONTACT.[Date du contact])<= " & Fin & ") AND ((CONTACT.Prestation) Like ""*4*"" Or (CONTACT.Prestation) Like ""*5*"" Or (CONTACT.Prestation) Like ""*6*"" Or (CONTACT.Prestation) Like ""*7*"") AND ((CONTACT.Action) Like ""*4*""))"
sql = sql & " GROUP BY CONTACT.Prestation"
sql = sql & " PIVOT CONTACT.TypeACC;"
DoCmd.DeleteObject acQuery, "Thematique_suivi_projet_2011"
CurrentDb.CreateQueryDef "Thematique_suivi_projet_2011", sql
DoCmd.OpenQuery "Thematique_suivi_projet_2011"

La requête est créée mais renvoit un résultat vide. Il suffit que j'ouvre la requête en mode création que modifie n'importe quoi dans la requête (je bouge graphiquement l'une des tables impliqué dans la requête) pour que la requête renvoit bien les bonnes valeurs. Le code SQL n'a pas changé d'un pouce. Quelqu'un a-t-il une explication logique a ceci ?
Merci de votre réponse.

[User]

Salut,

Tu as essayé avec une variable querydef:

Code :

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

1
2
3
4
5
6
7
Dim qdf As DAO.QueryDef
 
...
...
 
set qdf = CurrentDb.CreateQueryDef "Thematique_suivi_projet_2011", sql
DoCmd.OpenQuery "Thematique_suivi_projet_2011"

Peut-être faudrait-il aussi libérer la variable qdf

A+

[vodiem]

salut User et bienvenu nono48,

je pencherais pour un pb sur tes formats de variable debut/fin.
(en sql il faut les déclarer au format us et les entourer par le symbole: #)

[nono48]

J'ai essayé vos 2 propositions mais pas de résultat.
J'ai mis aussi ci-dessous, la totalité de la procédure en simplifiant la clause WHERE pour mieux comprendre. Merci de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim qdf As DAO.QueryDef
 
Set db = CurrentDb
 
Debut = #1/1/2011#
Fin = #3/31/2011#
 
' Récupération des informations thématique des projets entreprises : innovation , développement durable ou autres
sql = "TRANSFORM Count(DEMANDEUR.Numdemandeur) AS [N°]"
sql = sql & " SELECT CONTACT.Prestation"
sql = sql & " FROM PERIODE_STATS_CRMA, DEMANDEUR INNER JOIN CONTACT ON DEMANDEUR.Numdemandeur = CONTACT.Numdemandeur"
sql = sql & " WHERE (((CONTACT.[Date du contact])>= " & Debut & " And (CONTACT.[Date du contact])<= " & Fin & "))"
sql = sql & " GROUP BY CONTACT.Prestation"
sql = sql & " PIVOT CONTACT.TypeACC;"
 
DoCmd.DeleteObject acQuery, "Thematique_suivi_projet_2011"
Set qdf = CurrentDb.CreateQueryDef(("Thematique_suivi_projet_2011"), sql)
'CurrentDb.CreateQueryDef "Thematique_suivi_projet_2011", sql
Set qdf = Nothing
Set db = Nothing
DoCmd.OpenQuery "Thematique_suivi_projet_2011"

[vodiem]

Code :

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

1
2
Debut = "#1/1/2011#"
Fin = "#3/31/2011#"

teste aussi avec un "where true".

[nono48]

Effectivement le problème venait bien du format de la variable passée en argument.
Cela fonctionne bien comme indiqué par vodiem : "#01/01//2011#".
Merci encore de vos réponse.