(VBA-A] Requete access sous VBA

Bonjour voila sous acces97 je fais une requete croises d'une requete3 Voila tout marche bien mais je ne sais pas comment l' utiliser sous VBA


Requete3 : (requete union)

Code:

---

1 2 3 4 5 6 7

SELECT Indice_Oam_Histo.HIS_DATE, Indice_Oam_Histo.HIS_CRS_OUVERTURE FROM Indice_Oam_Histo WHERE (((Indice_Oam_Histo.HIS_DATE)>'20040510') AND ((Indice_Oam_Histo.ID_INDICE)=4)) UNION SELECT Opcvm_Histo.HIS_DATE, Opcvm_Histo.HIS_MNT_CRS_CPN_REINV, Opcvm_Histo.ID_OPCVM FROM Indice_Oam_Histo, Opcvm_Histo WHERE (((Opcvm_Histo.HIS_DATE)>'20040510') AND ((Opcvm_Histo.ID_OPCVM)=86) AND ((Opcvm_Histo.ID_OPCVM_D)=1));

---

Requete croises

Code:

---

1 2 3 4 5 6

TRANSFORM First([HIS_CRS_OUVERTURE]) AS [La valeur] SELECT [HIS_DATE], First([HIS_CRS_OUVERTURE]) AS [Total de HIS_CRS_OUVERTURE] FROM Requête3 *** GROUP BY [HIS_DATE] PIVOT [ID_INDICE];

---

*** c'est la que je ne sais pas quoi faire
Requete3 n'est plus une chaine de caractere et mais le resultat de son execution , comment le faire en VBA ?????

Merci de m'aider

Tu peux peut être exécuter la requête, grâce à

Code:

---

docmd.openQuery nomRequête

---

Sinon, essaies de mettre requête3 entre crochet.

Salut, et je trouve ta requête très bien faite :wink:

en fait je voudrais savoir si je dois declarer requete3 comme un string ou
....?
Sinon quand tu me demande d'executer la requete

Code:

---

1 2	docmd.openQuery nomRequête

---

Est ce que tu veux dire qu il faut que j'execute requete3 avant d'executer requete croisee ???

MErci de m'aider c cool

Tan MEEEEEEEEEEEEEEEEEEEEEERCI

Les crochets ca marche
trop cool
Encore merci
Tu contribues bcp a me faire aimer mon stage
Merci ReEncore :lol:

a non ca marche pas en fait
C que le requete3 correspondait a une requete d'access deja faite et non a ma requete3 VBA
Voila en fait ma question est comment declarer requete3 ???
Sniff j etais si heureux .......

Sorry, je croyais que requête3 était une requete Access, donc oubles mes deux solutions.

Donc, si tout es en VBA, fais:

Code:

---

1 2 3 4 5

TRANSFORM First([HIS_CRS_OUVERTURE]) AS [La valeur] SELECT [HIS_DATE], First([HIS_CRS_OUVERTURE]) AS [Total de HIS_CRS_OUVERTURE] FROM (" & Requête3 & ") GROUP BY [HIS_DATE] PIVOT [ID_INDICE];

---

Mais, je ne sais pas comment executer et recupérer les infos d'une requête transforme. Mais si tu sais, la chaine caractère est ce que je t'ai mis en haut.

Voilà, sinon, passe par des requête enregistrée sous accesss, et dans vba fais :

Code:

---

docmd.openQuery nomRequêteTransform

---

Désolé, je regarderai peut être de plus près plus tard.

merci je vais tester
En fait quand j avais creer ma requete3 sous acces et que je testais ma requete Transform de VBA sur cette requete3 ca semblais marchais
Est-ce que je peux pas enregistrer (ou executer) * ma requete3 depuis vba car la suite semble marchais


* En fait quand on fais une requete selection depuis VBA comment l'execute t on (moi je passais par des recordset pour recuperer mes reultats mais je ne sais pas comment juste enregistrer une requete depuis vba)

Sinon je tenterai autre chose mais je trouve ca dommage car ca semblais sympa

Sinon j 'ai honte de ne pouvoir te Re(dire) que merci

Oui tu peux.

Tu peux faire un:

Code:

---

db.QueryDefs.Delete "Requete3"

---

pour enlever celle existant puis, pour la créer

Code:

---

db.CreateQueryDef("Requete3", requete3)

---

le premier "Requete3" est le nom de la requête, le second est la chaine sql de la requête.

je pense que c ca qu'il faut faire
mais VB me demande un egal devant
db.CreateQueryDef("Requete3", requete3) quel le type que renvoi cette instruction ?

excuse, erreur de syntaxe. Pour info il renvoie un query (objet requête que tu peux executer...).
quand on utilise une fonction, on fait soit avec les parenthèse:

Code:

---

truc = maFonction(mesVariables...)

---

sans les parenthèse

Code:

---

maFonction mesVaraibles

---

C'est tout, donc enlèves les parenthèses et ça roule.

Mon cher tan c avec grande joie et reconnaissance que je t annonce que le probleme est enfin resolu (grace a toi)

Mon cher tan c avec grande joie et reconnaissance que je t annonce que le probleme est enfin resolu (grace a toi)

[/code]

Très grand remerciment à ce que je vois, 2 messages rien que pour me remercer, ça me va droit au coeur.

Et bon courage pour ton stage.