Utiliser du code SQL dans VBA [Débutant(e)]

**a2line** · 29/05/2006, 11h52

Bonjour,
Je travaille actuellement sous Access et je réalise des formulaires dans lequel
j'ai créé des listes déroulantes permettant de choisir une date de début et
une date de fin.
Grâce à ces dates, je réalise en VBA, une requête sql sur une table. Je ne
conserve alors que les enregistrements de cette période.
A partir de la table obtenue, je souhaite refaire une autre requête qui elle devra s'afficher.
Mon problème est que je ne sais pas comment faire pour que ma deuxième requête
tienne compte des enregistrements de la première.
Voici un extrait de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   sql = "SELECT LPP.Code, LPP.Qté, LPP.date
          FROM LPP           
          WHERE (([LPP].[date]) <= date_fin And ([LPP].date]) >= (date_dbt))
          ORDER BY LPP.Code; "
   sql = "SELECT req1.Code, T_LPP.[Libellé LPP], Sum(req1.Qté) AS SommeQté 
          FROM req1
          INNER JOIN T_LPP ON req1.Code =T_LPP.Code 
          GROUP BY req1.Code, T_LPP.[Libellé LPP], T_LPP.HS06 
          HAVING (((T_LPP.HS06) = 0)) ORDER BY Sum( req1.Qté) DESC;"
 
 
Me.results_dmi.RowSource = sql
Me.results_dmi.Requery

En fait je ne sais pas comment dire que "req1" correspond à la table obtenue dans la 1ère requête.
Merci d'avance pour votre aide.

P.S. : Je m'adresse à vous car j'ai déjà posé cette question au forum VBA où on m'a conseillé d'aller dans le forum sql qui dit qu'il est préférable de
s'adresser au forum access...!!!

**Demco** · 29/05/2006, 12h05

Tu pourrais par exemple creer une requete temporaire avec CreateQueryDef (me semble-t-il) et baser ta seconde requete sur cette premiere requete.

Ou sinon peux-etre pourrais-tu essayer quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
9
 req1 = "SELECT LPP.Code, LPP.Qté, LPP.date
          FROM LPP           
          WHERE (([LPP].[date]) <= date_fin And ([LPP].date]) >= (date_dbt))
          ORDER BY LPP.Code; "
   sql = "SELECT req1.Code, T_LPP.[Libellé LPP], Sum(req1.Qté) AS SommeQté 
          FROM ("& req1 &") req1
          INNER JOIN T_LPP ON req1.Code =T_LPP.Code 
          GROUP BY req1.Code, T_LPP.[Libellé LPP], T_LPP.HS06 
          HAVING (((T_LPP.HS06) = 0)) ORDER BY Sum( req1.Qté) DESC;"

Je ne me souviens plus si c'est possible en Access et je n'ai pas le logiciel sous la main pour tester.

Bon courage a toi.

**nbelg27** · 29/05/2006, 12h06

Bonjour,

je te conseil de passer par une sous requête

Exemple:
Rqt1 = select * from table
Rqt2 = Select * from Rqt1

**a2line** · 29/05/2006, 13h02

J'ai déjà essayé cette solution là mais il me semble que ça ne fonctionnait pas.
Je vais réesssayer et voir pour les requêtes temporaires.
Merci, je vous tiens au courant.

**a2line** · 29/05/2006, 15h09

En fait, je viens de me rendre compte d'un autre soucis : la requête que j'ai
nommé "sql" ne fonctionne pas. Je ne comprend pas car j'ai copié le code sql de la requête QBE.

Comment est ce possible que ce sql ne fonctionne pas quand j'utilise VBA?

Code :

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

1
2
3
4
5
sql = "SELECT req1.Code, T_LPP.[Libellé LPP], Sum(req1.Qté) AS SommeQté 
       FROM ("& req1 &") req1
       INNER JOIN T_LPP ON req1.Code =T_LPP.Code 
       GROUP BY req1.Code, T_LPP.[Libellé LPP], T_LPP.HS06 
       HAVING (((T_LPP.HS06) = 0)) ORDER BY Sum( req1.Qté) DESC;"