Discussion :

[Geache]

As tu testé ta requête en faisant des étapes intermédiaires ?

Par exemple... Select... Inner Join...

Ca retourne le résultat auquel je m'attends ? Ok. Alors je teste

Select ... inner Join... inner Join...

C'est toujours bon ? Ok... Alors je teste

Select... inner Join... inner Join... Where...

[Jefty]

je viens d'essayer une requete simple
select NumTypStat from TypeStatistique

Même ça, ça ne fonctionne pas.
On dirait que le tableau ne reçoit pas la requête en faite.

Le fait qu'il soit en pied de formulaire ne poserait il pas un problème?

[Geache]

Là, je ne comprends plus ce que tu racontes. Tu testes comment ? Dans le mode conception des requêtes ou en modifiant ta requête dans ton code source ?

Essaies de créer ta requête en mode conception. En pas à pas si nécessaire. Si elle fonctionne là, elle doit fonctionner une fois que tu l'appliques dans ton code source.

[Jefty]

Dans le code source.

J'ai juste dis que j'avais test la requête en mode création de requête pour voir si elle fonctionnait comme ça et c'était le cas.

[Geache]

Si ta requête fonctionne en mode conception, c'est que tu fais une erreur quelque part dans le format de ton instruction Select quand tu l'adaptes dans ton code source.

Essaies, après la création de ton SQL = "Select....", de faire debug.print SQL. Puis tu copies le résultat de ton Debug.print dans une nouvelle requête en conception mode SQL et tu vois si elle fonctionne toujours.

[Jefty]

Voilà la requête par le mode création de sql:

Code :

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

1
2
3
SELECT [TypeStatistique].[NomTypStat], [ActionRealisee].[ActionReal], [ActionRealisee].[DateActionReal], [Acteur].[NomActeur]
FROM Acteur INNER JOIN ((TypeStatistique INNER JOIN Statistique ON [TypeStatistique].[NumTypStat]=[Statistique].[NumTypStat]) INNER JOIN ActionRealisee ON [Statistique].[NumStat]=[ActionRealisee].[NumStat]) ON [Acteur].[NumActeur]=[ActionRealisee].[NumActeur]
WHERE Year(Date)=Year(DateActionReal) And Month(Date)=Month(DateActionReal) And [TypeStatistique].[NomTypStat]=NomStat;

Elle me demande la date du jour, et le nomStat, normal.
Je devrais juste avoir à remplacer NomStat à la fin, mais ça fonctionne pas...

[Geache]

Désolé, mais je dois donner ma langue au chat...

Tu nous dis que en mode conception, tu obtiens le résultat que tu souhaites.
Quand tu portes le code sql généré dans ton mode conception dans ton code source et que tu l'adaptes, tu n'obtiens plus rien du tout.

J'en conclus que ce ne peut être qu'un problème de formatage de ta chaîne SQL. Sans doute dans un ", de () ou même le ; par exemple.

Si un debug.print de ta chaîne SQL donne la même instruction que celle que tu as en mode conception de requête, ça ne peut, en principe, que fonctionner puisque dans le dit mode de conception, tu as un résultat.

Mais en examinant l'instruction que tu nous proposes, je ne vois pas où peut se situer l'erreur, sinon qu'il n'y a pas de ; final. Mais je ne suis pas sûr que ce soit obligatoire dans la chaîne à passer.

[Jefty]

Le Debug.print m'affiche le code de la requête.

Code :

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

SELECT [TypeStatistique].[NomTypStat], [ActionRealisee].[ActionReal], [ActionRealisee].[DateActionReal], [Acteur].[NomActeur]FROM Acteur INNER JOIN ((TypeStatistique INNER JOIN Statistique ON [TypeStatistique].[NumTypStat]=[Statistique].[NumTypStat]) INNER JOIN ActionRealisee ON [Statistique].[NumStat]=[ActionRealisee].[NumStat]) ON [Acteur].[NumActeur]=[ActionRealisee].[NumActeur]WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal) And [TypeStatistique].[NomTypStat] = 'CA/CE'

[Kawabaumga]

Petite remarque: il te manque un espace juste avant le WHERE

[Geache]

Battu de vitesse

[Jefty]

Aucune différence

[Kawabaumga]

Aucune différence

Comme t'as demandé Geache plus tôt, si tu copies colles cette requête pour l'executer, obtiens tu un résultat?

[Jefty]

Euh, avec le debug.print?
Dans le mode création de formulaire?
Je comprend pas trop où tu veux que je l'exécute.

Sachant que j'ai déjà essayer les deux que j'ai citer.

[Geache]

Je vais essayer d'être plus clair.

Quand tu exécutes ton code, tu as une fenêtre dans laquelle tu obtiens les résultats d'un debug.print. (Problème est que je ne connais pas le nom en français, la fenêtre-dans-laquelle-tu-te-retrouves-positionné-quand-tu-fais-CTRL+G-quand-tu-édites-un-code-source, en mode exécution immédiate, quoi).

Ce résultat, tu en fais un copier.

Tu passes ensuite en création d'une nouvelle requête, tu sélectionnes le mode SQL, et tu colles.

Puis tu lances l'exécution.

Et là, tu vois si tu obtiens un résultat de ta requête.

PS : Désolé pour les - à répétition, mais c'est tout ce que j'ai trouvé pour essayer d'expliquer de quelle fenêtre je parle. Chez moi, j'ai ACCESS en anglais et elle s'appelle Immediate, tout simplement.

[Jefty]

La fenêtre dont tu parles ce nomme "Execution"

Je viens de faire ce que tu m'as demander et ça fonctionne. c'est comique.
Ya un problème avec la listbox faut croire.

[Kawabaumga]

La fenêtre dont tu parles ce nomme "Execution"

Je viens de faire ce que tu m'as demander et ça fonctionne. c'est comique.
Ya un problème avec la listbox faut croire.

Essayes dans un premier temps de remplir la "Source de contrôle" de ta listbox avec ta requête directement dans le formulaire et non ton code VBA afin de voir si tu obtiens un résultat

[Geache]

Ca fonctionne...

Si je comprends bien ta réponse, tu veux donc dire que :

La chaîne créée par ton instruction SQL = est correcte,
Si tu l'exécutes en mode conception de requête, elle t'affiche le résultat que tu attendais.

Donc... dans ce cas, là, si ton comboBox ne te retourne pas de valeur, c'est que la manière dont tu le complètes est erronée (ton with... end with).

[Jefty]

Tu as bien compris et c'est fort probable que ça viennent du with.

[Geache]

Je propose que tu enlèves ton call .requery et que, directement après ton end with, tu tapes l'instruction

lstDetaille.requery

[Kawabaumga]

A quoi te sert la ligne de code ci dessous?

Code :

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

.ColumnWidths = ""