Discussion :

[sakia]

Salut

Comment peut on en Vba créer une requête croisée (source d'un état) basée sur le résultat d'une 2ème requête (permet de joindre les champs de plusieurs tables)?

j'ai essayé de basé ma requête croisée sur un Recordset mais ça marche pas!

y' a t-il un moyen?

Merci d'avance.

[Jean-Philippe André]

salut,
le plus simple pour generer les requete croisee est de le faire via des requetes directement.
Il suffira de les executer/ouvrir par VBA par la suite

[sakia]

Merci
je sais sauf que je veille à manipuler l'application en entier par code vba. sans marquer la présence d'aucune requête.

[Jean-Philippe André]

Ok,
perso dans ce cas la je cree des requetes temporaires que je manipules le temps voulu et les detruit au fil de l'eau de la meme facon

pourrait-on avoir ton code actuel pour voir a quel niveau on peut proposer des insertions ?

[sakia]

Code :

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

1
2
3
4
5
6
7
8
    strsql = " WHERE T_InscritDetail!Annee_scolaire = " & raporteur & ""
       Set rsEtat = CurrentDb.OpenRecordset(cstEtat & strsql)
strsqla = "TRANSFORM Sum(rsetat.Montant) AS SommeDeMontant " _
& "SELECT rsetat.CodInscrit, rsetat.Frais, rsetat.Annee_scolaire, Sum(rsetat.Montant) AS [Total de Montant] " _
& "FROM rsetat " _
& "GROUP BY rsetat.CodInscrit, rsetat.Frais, rsetat.Annee_scolaire " _
& "PIVOT rsetat.Periode "
Rep.RecordSource = strsqla

je sais pas si c'est assez clair!
rsEtat représente un recordset basé sur une requête Select permet de joindre plusieurs champs provenant de plusieurs Tables
strsqla représente la requête croisée

[Jean-Philippe André]

Ok,

en fait ici au lieu de passer par ton recordset, il est tout a fait possible de creer une requete temporaire (nomme la rsetat pour gagner du temps)
Cette requete contiendra ta concatenation cstEtat & strsql en tant que code SQL.

Tu pourras y faire reference dans ta requete d'analyse croisee.

Une fois ta procedure terminee, tu pourras la supprimer

[sakia]

Je comprends

Merci infiniment