[AC-2007] Comment imbriquer des requêtes SQL en VBA [Résolu]

[rch05]

Bonjour,

Bonjour,

J’aimerai savoir s’il est possible d’imbriquer des requêtes SQl en VBA.
Mon souci et de réduire le nombre de requêtes SQL de l’application. Actuellement j’en ai une cinquantaine et ce n’est pas fini. Je trouve que cela fait beaucoup.

J’ai lu ce lien et je ne comprends pas comment l’appliquer.
Ci-dessous les requête en question :
1)Requête SQL : rqyMois

Code :

1
2
3
4
5
6
 
PARAMETERS [Forms]![frmStatsmois]![MoisD] Value, [Forms]![frmStatsmois]![AnneeD] Value, [Forms]![frmStatsmois]![MoisF] Value, [Forms]![frmStatsmois]![AnneeF] Value;
SELECT tblAnnee.An, tblMois.Mois, Format([Mois] & "/" & [An],"yyyy/mm") AS M
FROM tblMois, tblAnnee
WHERE (((Format([Mois] & "/" & [An],"yyyy/mm")) Between Format([Forms]![frmStatsmois]![MoisD] & "/" & [Forms]![frmStatsmois]![AnneeD],"yyyy/mm") And Format([Forms]![frmStatsmois]![MoisF] & "/" & [Forms]![frmStatsmois]![AnneeF],"yyyy/mm")))
ORDER BY tblAnnee.An, tblMois.Mois;

2)Requête SQL: rqyQtéProdMois

Code :

1
2
3
4
5
6
7
 
PARAMETERS [Formulaires]![frmStatsmois]![idCompteProd] Short;
SELECT Format([tblProduction]![DateProduction],"yyyy/mm") AS M, tblMachine.NomMachine, Sum(tblProductionQte.Qté) AS Qté
FROM ((tblMachine INNER JOIN tblProduction ON tblMachine.Idmachine = tblProduction.idMachine) INNER JOIN (tblCompteProduction INNER JOIN tblProduit ON tblCompteProduction.IdCompteProd = tblProduit.idCompteProd) ON tblMachine.Idmachine = tblProduit.Idmachine) INNER JOIN tblProductionQte ON (tblProduit.IdProduit = tblProductionQte.Idproduit) AND (tblProduction.Idproduction = tblProductionQte.Idproduction)
WHERE (((tblCompteProduction.IdCompteProd)=[Formulaires]![frmStatsmois]![idCompteProd]))
GROUP BY Format([tblProduction]![DateProduction],"yyyy/mm"), tblMachine.NomMachine
ORDER BY Format([tblProduction]![DateProduction],"yyyy/mm"), tblMachine.NomMachine;

3)Requête SQL: rqyQtéProdGraphMois

Code :

1
2
3
 
SELECT rqyMois.M AS Mois, rqyQtéProdMois.NomMachine, rqyQtéProdMois.Qté AS Qté
FROM rqyMois LEFT JOIN rqyQtéProdMois ON rqyMois.M = rqyQtéProdMois.M;

4)Requête VBA

Code :

1
2
3
4
 
sql = "TRANSFORM NZ(Sum(rqyQtéProdGraphMois.Qté),0) AS SommeDeQté SELECT rqyQtéProdGraphMois.Mois,"
 sql = sql & " Sum(rqyQtéProdGraphMois.[Qté]) AS [Total A + AL], Sum(IIf([NomMachine]<> '" & "Hercule" & "',[Qté])) AS [Total A]"
 sql = sql & " FROM rqyQtéProdGraphMois GROUP BY rqyQtéProdGraphMois.Mois PIVOT rqyQtéProdGraphMois.NomMachine;"

Merci d'avance de votre aide

Christian

[User]

Bonjour Christian,

Comme cela a déjà été dit sur le forum, les requêtes enregistrées ont plusieurs avantages :

Niveau lisibilité du code elles permettent de nettement simplifier le code final, et donc de faciliter sa réalisation, sa relecture et sa modification ...

Autre avantage, normalement une requête enregistrée une fois le projet compilé est plus rapide qu'une requête qui ne l'est pas :
http://access.developpez.com/faq/?page=SQL#PerfReq

A+

[rch05]

Bonjour Denis,

Merci pour l'info.
C'est vrais qu'une requête enregistrer est plus lisible, mais je pensais pas qu'elle était plus rapide après compilation. J'ai mal lu les Tutos.......

Je viens de terminer tous les graphiques que l'on m'a demandé (168 différents graphiques). J'ai utilisé une trentaine de requête et 6 types de formulaire et un seul état.

Voilà, grâce à ton aide j'ai pu m'en sortir. Si tu désires voir l'application, n'hésites pas.

Milles fois merci.

@ bientôt

Christian

[f-leb]

bonjour Christian, User,

comme tu utilises Access2007, tu peux aussi organiser tes objets (tables, requêtes, formulaires, états,...) dans le volet de navigation en créant des catégories personnalisées.

voir Afficher et gérer des objets à l'aide du volet de navigation

[rch05]

Bonsoir F-leb,

Content de te lire....
C'est vrais avec Access 2007.
Mais l'application doit fonctionner sous Access 2007 et 2003, avec la même base dorsale et 2 bases frontales (2007 et 2003).

Grâce à vous et au site, j'ai beaucoup avancé.
Il y a 8 mois, j'étais dans les choux..........

A bientôt

Christian