Discussion :

[vanima]

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 :

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

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 :

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

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

[Tan]

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

Code :

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

docmd.openQuery nomRequête

Sinon, essaies de mettre requête3 entre crochet.

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

[vanima]

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

Code :

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

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

[vanima]

Tan MEEEEEEEEEEEEEEEEEEEEEERCI

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

[vanima]

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

[Tan]

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

Donc, si tout es en VBA, fais:

Code :

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

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 :

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

docmd.openQuery nomRequêteTransform

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

[vanima]

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

[Tan]

Oui tu peux.

Tu peux faire un:

Code :

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

db.QueryDefs.Delete "Requete3"

pour enlever celle existant puis, pour la créer

Code :

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

db.CreateQueryDef("Requete3", requete3)

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

[vanima]

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 ?

[Tan]

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 :

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

truc = maFonction(mesVariables...)

sans les parenthèse

Code :

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

maFonction mesVaraibles

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

[vanima]

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

[vanima]

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

[/code]

[Tan]

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.