Utiliser du code SQL dans VBA

Version imprimable

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:

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...!!!

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:

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.

29/05/2006, 11h06
nbelg27

Bonjour,

je te conseil de passer par une sous requête

Exemple:
Rqt1 = select * from table
Rqt2 = Select * from Rqt1
29/05/2006, 12h02
a2line

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.

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:

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

29/05/2006, 14h19
Demco

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

Code:

FROM ("& req1 &") req1

Apres ta ligne mets un

Code:

Debug.Print sql

Et teste la requete dans le QBE.

En esperant t'aider.
29/05/2006, 14h33
a2line

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

Code:

Debug.Print sql

?
29/05/2006, 14h49
Demco

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.
29/05/2006, 14h56
a2line

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 :?
29/05/2006, 14h59
Demco

Citation:

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?

Désolé :? oubliez le message d'avant : je m'embrouille...

Voici le code de ma requête :
Code:

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.

29/05/2006, 15h16
Demco

Et lorsque tu l'execute dans le QBE tu obtiens .... ?
29/05/2006, 15h20
a2line

Et bien j'obtiens un tableau avec un champ "code", un autre "libellé et un dernier "somme de qté".
Elle fonctionne normalement.
29/05/2006, 15h27
Demco

Citation:

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.
29/05/2006, 15h40
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?
29/05/2006, 15h43
Demco

Citation:

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 ?
29/05/2006, 15h58
a2line

C'est à dire? :oops:
Où puis-je le savoir?
29/05/2006, 16h13
Demco

Citation:

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 ?

Voici l'autre requête qui elle fonctionne :

Code:

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.

29/05/2006, 16h25
Demco

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 ...
29/05/2006, 16h30
a2line

En tout cas merci pour toute l'aide et pour le tout le temps passé....
30/05/2006, 12h21
a2line

Bonjour,
C'est bon ma requête fonctionne : c'était une histoire de guillemets :oops: :oops:

Par contre, je n'arrive toujours pas à résoudre mon premier problème :

Citation:

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.

J'ai essayé d'utiliser "CreateQueryDef" pour créer une requête temporaire mais je n'arrive pas à l'utiliser correctement.
Quelqu'un peut-il m'aider?

Merci d'avance.
30/05/2006, 12h37
Demco

:faq:

http://access.developpez.com/faq/?re...createquerydef

Bonjour,
quand j'utilise :

Code:

1
2
3
4
     currentDb.CreateQueryDef ("req1","SELECT LPP1.Code_LPP1, LPP1.Qté1, LPP1.Expr1002 
                                       FROM LPP1 
                                       WHERE (([LPP1].[Expr1002]) <= date_fin And ([LPP1].[Expr1002]) >= (date_dbt)) 
                                       ORDER BY LPP1.Code_LPP1")

un message d'erreur apparait et me dit :

erreur de complilation
Attendu : =

30/05/2006, 13h59
Demco

Citation:

Envoyé par a2line

un message d'erreur apparait et me dit :

erreur de complilation
Attendu : =

Tout a fait ! Erreur dans la FAQ que je corrigerai. Enleve les parentheses. S'il y a des parenthese ceci est associé à une fonction et donc une reponse est attendue.
30/05/2006, 14h53
a2line

C'est bon, tout marche parfaitement. :D
Un grand merci pour votre aide!! :merci:
Bonne continuation