exécution de requête par VBA

bonjour a tout le monde !!!
je veux faire un code qui m'execute deux requetes ,une apres l'autre

la premier :

Code:

1
2
3
SELECT salaries.matricule, classe.classe, nomage.nomage, classe.inden_j_classe, deplacement.Njr_sans_prise, deplacement.Njr_avec_prise, nomage.inden_j_nom, deplacement.frais_dep
FROM deplacement, sal_dep, salaries, nomage, classe
WHERE deplacement.N_dep = ( select MAX (deplacement.N_dep) from deplacement) and deplacement.N_dep=sal_dep.N_dep and sal_dep.matricule=salaries.matricule and salaries.nomage = nomage.nomage and salaries.classe = classe.classe

la desieme :

Code:

1
2
UPDATE deplacement SET deplacement.frais_dep = IIf(nomage.nomage Like "non",(((deplacement.dure_dep-deplacement.Njr_sans_prise)*classe.inden_j_classe)+(((deplacement.dure_dep-deplacement.Njr_avec_prise)*classe.inden_j_classe)/2)),(((deplacement.dure_dep-deplacement.Njr_sans_prise)*nomage.inden_j_nomage)+(((deplacement.dure_dep-deplacement.Njr_avec_prise)*nomage.inden_j_nomage)/2)))
WHERE deplacement.N_dep = (select MAX (deplacement.N_dep) from deplacement) and  frais_dep = 0 and  deplacement.N_dep = sal_dep.N_dep AND sal_dep.matricule = salaries.matricule AND salaries.nomage = nomage.nomage AND salaries.classe = classe.classe

je veux que la desieme requete utilise les resultats de la premier requete

j'ai fais le code suivant est mais il n'est pas correcte :oops: :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Compare Database
 
Private Sub Commande12_Click()
Dim sql As String
Dim rs As Recordset
   sql = " SELECT salaries.matricule, classe.classe, nomage.nomage, classe.inden_j_classe, deplacement.Njr_sans_prise, deplacement.Njr_avec_prise, nomage.inden_j_nom, deplacement.frais_dep
FROM deplacement, sal_dep, salaries, nomage, classe
WHERE deplacement.N_dep = ( select MAX (deplacement.N_dep) from deplacement) and deplacement.N_dep=sal_dep.N_dep and sal_dep.matricule=salaries.matricule and salaries.nomage = nomage.nomage and salaries.classe = classe.classe"
   Set rs = CurrentDb.OpenRecordset(sql)
   Exit Sub
 Public Sub DoSQL()
    Dim sql As String
    sql = " UPDATE deplacement SET deplacement.frais_dep = IIf(nomage.nomage Like "non",(((deplacement.dure_dep-deplacement.Njr_sans_prise)*classe.inden_j_classe)+(((deplacement.dure_dep-deplacement.Njr_avec_prise)*classe.inden_j_classe)/2)),(((deplacement.dure_dep-deplacement.Njr_sans_prise)*nomage.inden_j_nomage)+(((deplacement.dure_dep-deplacement.Njr_avec_prise)*nomage.inden_j_nomage)/2)))
WHERE deplacement.N_dep = (select MAX (deplacement.N_dep) from deplacement) and  frais_dep = 0 and  deplacement.N_dep = sal_dep.N_dep AND sal_dep.matricule = salaries.matricule AND salaries.nomage = nomage.nomage AND salaries.classe = classe.classe"
   DoCmd.RunSQL sqlnon
   Exit Sub
   End Sub

merci d'avance !

Essaie déjà les requêtes les unes après les autres.
N'ont elles pas d'erreur?

salut
Code:

1 2 currentdb.execute "requette action valide 1" currentdb.execute "requette action valide 2"
exécute deux requetes l'une après l'autre. S'il y a des liens entres tes deux requêtes, ils doivent être traité à l'intérieur d'une table intermédiare.

pour le sql lorsque tu veux l'utiliser dans du VBA, borne les chaînes par la quote ' et non pas la doubleQuote " parceque dans Basic il faut protéger la DoubleQuote par une doublequote soit :

Code:

sql = "toto = ""bonjour"" and ..."

plus simple en

Code:

sql = "toto = 'bonjour' and ..."

deuxiéme chose :la construction de ton sql dans une chaîne doit être fait sur une seule ligne, ou alors il faut utiliser la concaténation exemple:
Code:

1 2 sql = "SELECT * " sql = sql & "FROM TOTO;"
Troisième chose : les fonctions de regroupement (ex;Count ) s'utilise en générale avec la clause GROUP BY , de plus le Group BY fait très mauvais ménage avec la clause UPDATE