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

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

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, 11h05

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, 11h06

Bonjour,

je te conseil de passer par une sous requête

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

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

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, 14h09

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;"

**Demco** · 29/05/2006, 14h19

Je t'ai dit que je n'etais pas sur que ceci fonctionne, c'est peut etre donc le cas :

Code :

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

 FROM ("& req1 &") req1

Apres ta ligne mets un

Code :

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

Debug.Print sql

Et teste la requete dans le QBE.

En esperant t'aider.

**a2line** · 29/05/2006, 14h33

ça ne fait rien du tout!
A quoi sert le :

Code :

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

 Debug.Print sql

?

**Demco** · 29/05/2006, 14h49

A afficher quelque chose dans la fenetre d'execution, quasiment indispensable pour faire des testes au long du developpement

Quelques info dans la FAQ.

Bonne continuation.

**a2line** · 29/05/2006, 14h56

oui je viens de le voir mais en fait ça m'a réécris 2 fois la ligne sql avec pour seule différence entre les 2 :

FROM ( ) Dmi_date .......
FROM Dmi_date .......

Je ne comprend pas ce que ça veut dire

**Demco** · 29/05/2006, 14h59

Envoyé par a2line

Je ne comprend pas ce que ça veut dire

Si tu ne donnes pas plus d'information, je te rassure, moi non plus je ne comprends rien

Peux-tu montrer ton code?

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

Désolé

oubliez le message d'avant : je m'embrouille...

Voici le code de ma requête :

Code :

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

1
2
3
4
5
6
7
sql = "SELECT Dmi_date.Code_LPP1, T_LPP.[Libellé LPP], Sum(Dmi_date.Qté1) AS SommeDeQté1 
FROM Dmi_date 
INNER JOIN T_LPP ON Dmi_date.Code_LPP1 = T_LPP.Code_LPP1 
GROUP BY Dmi_date.Code_LPP1, T_LPP.[Libellé LPP], T_LPP.GHS2006 
HAVING (((T_LPP.GHS2006) = 0)) 
ORDER BY Sum(Dmi_date.Qté1) DESC;"
Debug.Print sql

et j'obtiens la même chose dans la fenetre d'execution.

**Demco** · 29/05/2006, 15h16

Et lorsque tu l'execute dans le QBE tu obtiens .... ?

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

Et bien j'obtiens un tableau avec un champ "code", un autre "libellé et un dernier "somme de qté".
Elle fonctionne normalement.

**Demco** · 29/05/2006, 15h27

Envoyé par a2line

Et bien j'obtiens un tableau avec un champ "code", un autre "libellé et un dernier "somme de qté".
Elle fonctionne normalement.

Eh bien dans ce cas la requete est bonne tu peux continuer.

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

Et bien non justement, il y a un soucis. Rien ne s'affiche.
j'ai crée une zone de liste qui est censé affiché la table obtenue. Tout
fonctionne correctement avec l'autre requête que j'ai écrite mais pas avec celle ci. Je ne vois pas d'où vient le problème...
Est ce possible que VBA ne connaisse pas certaines fonctions?

**Demco** · 29/05/2006, 15h43

Envoyé par a2line

Et bien non justement, il y a un soucis. Rien ne s'affiche.
j'ai crée une zone de liste qui est censé affiché la table obtenue. Tout
fonctionne correctement avec l'autre requête que j'ai écrite mais pas avec celle ci. Je ne vois pas d'où vient le problème...
Est ce possible que VBA ne connaisse pas certaines fonctions?

Est-ce que la zone de liste possede un nombre de ligne vide correspondant au nombre de reponses de la requete ?

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

C'est à dire?

Où puis-je le savoir?

**Demco** · 29/05/2006, 16h13

Envoyé par a2line

Tout
fonctionne correctement avec l'autre requête que j'ai écrite mais pas avec celle ci. Je ne vois pas d'où vient le problème...

Peux-tu montrer cet autre requete ? Possede-t-elle autant de champ que la nouvelle ?

**a2line** · 29/05/2006, 16h19

Voici l'autre requête qui elle fonctionne :

Code :

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

1
2
3
4
     sql = "SELECT LPP1.Code_LPP1, LPP1.Qté1, LPP1.date 
              FROM LPP1 
              WHERE (([LPP1].[date]) <= date_fin And ([LPP1].[date]) >= (date_dbt))
              ORDER BY LPP1.Code_LPP1; "

Oui il y a le même nombre de champs.

**Demco** · 29/05/2006, 16h25

Je vois que la nouvelle requete possede des champs differents de la premieres. Peut-etre le probleme vient-il du nom des champs ou du fait qu'ils soient de types differents.
Je n'ai helas pas Access sous la main pour tester, donc si quelqu'un d'autre pouvais prendre le relais ...

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

Requêtes et SQL.

Discussions similaires

Partager

Partager