Discussion :

[darkspoilt]

Bonjour j'ai un porbleme pour exécuter ma commande SQL en VBA j'ai tapé ce code la

Code :

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

1
2
3
SQL = "SELECT getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__, "2005_T3" AS année FROM getTable WHERE (((getTable.CBQD)="total") And ((getTable.MOIS)="total") And ((getTable.CMOP)="total"));"
 
DoCmd.RunSQL Sql

C'est la meme que la commande qu'une requete selection SQL de Access j'ai fait un copier coller ensuite je compte intégrer une variable

il me met une erreur a ma ligne de commande SQL je ne comrpends pas pourquoi ela fonctionne pas si quelqu'un peut m'aider il veut pas s'exécuter ca doit etre une erreur de syntaxe mais je vois pas laquelle
Merci d'avance

[Invité]

Bonjour

DoCmd.RunSQL ne s'applique qu'à une requête action.

Si tu veux voir le résultat utilise plutôt :

Code :

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

DoCmd.OpenQuery

Starec

[darkspoilt]

J'y avais pensé mais cette commande me pose probleme.
Le truc c'est que je compte mettre une comme nom de table une variable c'est pourquoi je voulais éxécuter une commande car avec DoCmd.OpenQuery ma table devra etre fixe or c'est pas ce que je veux

[lerico]

Bonjour,

J'ai vu que tu avais laissé le ; à la fin de ton SQL.

[darkspoilt]

maintenant j'ai une erreur

Une action exécuter SQL nécessite un argumentconsistant en une instruction SQL

j'ai fais un msgbox pour vérifier ma ligne est bien dedans

[mout1234]

Code VBA :

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

SQL = "SELECT getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__, '2005_T3' AS année FROM getTable WHERE (((getTable.CBQD)='total') And ((getTable.MOIS)='total') And ((getTable.CMOP)='total'));"

Pour ouvrir une requête, il faut que celle-ci existe. Tu peux aussi la créer temporairement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ap_OpenSQL(ByVal sSQL As String)
    On Error Resume Next
    Dim oqry As DAO.QueryDef
    Dim odb As DAO.Database
 
    Set odb = CurrentDb
    Set oqry = New DAO.QueryDef
    oqry.Name = "tmpOpenQuery"
    oqry.SQL = sSQL
    odb.QueryDefs.Append oqry
    DoCmd.OpenQuery oqry.Name
    odb.QueryDefs.Delete oqry.Name
End Sub

La requête étant supprimée aussitot, elle n'est pas modifiable (je parle de la requête et non des données qu'elle présente) par l'utilisateur.


Et tu appelles ainsi

Code :

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

1
2
3
4
 
SQL = "SELECT getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__, '2005_T3' AS année FROM getTable WHERE (((getTable.CBQD)='total') And ((getTable.MOIS)='total') And ((getTable.CMOP)='total'));"
 
ap_OpenSQL SQL

[darkspoilt]

Merci beaucoup pour ton code ca m'avance énormément
en fait mon select va servir a etre ajouté avec une requete ajout dont la commande est :

Code :

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

1
2
3
4
5
6
 
Dim Var as String
Var = "ReqSelect"
 
Sql="INSERT INTO TableTest ( année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT  " & Var & ".année, " & Var & ".OPPO, "& Var & ".MPE," & Var & "..MPF," & Var & "..MRE," & Var & "..MRF," & Var & "..M__ FROM" & Var & ";"
DoCmd SQL

ReqSelect serait la requete précédente et je ne vois pas ou on récupère le nom

[darkspoilt]

Sinon j'ai essayé ce code mais il m'affiche un msgbox avec écrit trop peu de paramètre 9attendu je sais pas si le code est bon mais il s'exécute

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Private Sub Commande13_Click()
On Error GoTo Err_Commande13_Click
 
Set db = CurrentDb
 
 
Dim m As String
Dim a As String
Dim name As String
 
    m = Me!mois
    a = Me!année
 
 
DoCmd.SetWarnings False
 
'Affectation du lieu de récupération  des fichiers
 
Dim NomDir As String
 
NomDir = "D:\Test\"
 
'On atteint le répertoire concerné où se trouvent les fichiers
 
ChDir (NomDir)
 
Dim XL As Excel.Application
Dim nomClasseur1 As String
 
 
Set XL = CreateObject("Excel.Application")
nomClasseur1 = "Essai" & a & m & ".xls"
 
DoCmd.TransferSpreadsheet acImport, , "TableTest" & a & m, "D:\Test\" & nomClasseur1, 0
name = "TableTest" & a & m
 
Dim dbCourante As DAO.Database
Dim rstRequete As DAO.Recordset
 
Dim strOPPO As String
 
'Définir la base de travail comme la base actuelle
Set dbCourante = CurrentDb
 
'Définir la requête
Sql = "SELECT " & name & ".OPPO, " & name & ".MPE, " & name & ".MPF, " & name & ".MRE, " & name & ".MRF, " & name & ".M__, '2005_T3' AS année FROM " & name & " WHERE getTable.CBQD='total' And " & name & ".MOIS='total' And " & name & ".CMOP='total';"
 
'Exécuter la requête définie par SQL
Set rstRequete = dbCourante.OpenRecordset(Sql)
 
'Récupérer la valeur OPPO pour l'enregistrement de la requête pour la placer dans une variable (pour un usage futur)
strOPPO = rstRequete!OPPO
'Se déconnecter de la requête et de la base
Set rstRequete = Nothing
Set dbCourante = Nothing
 
Dim Var As String
 
 
'Sql = "INSERT INTO TableTest ( année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT  " & strOPPO & ".année, " & strOPPO & ".OPPO, " & strOPPO & ".MPE," & strOPPO & ".MPF," & strOPPO & ".MRE," & strOPPO & ".MRF," & strOPPO & ".M__ FROM " & strOPPO & ";"
'DoCmd.RunSQL Sql
 
 
 
Exit_Commande13_Click:
    Exit Sub
 
Err_Commande13_Click:
    MsgBox Err.Description
    Resume Exit_Commande13_Click
End Sub

[mout1234]

en fait mon select va servir a etre ajouté avec une requete

! Dans ce cas, le code que je t'ai proposé ne correspond pas puisque tu ne cherches pas à ouvrir la requête pour l'utilisateur!

Si je comprends bien.. pourquoi ne mets tu pas directement le INSERT dans la requête initiale?

Je pense que tu devrais prendre le temps de finaliser ta requête à l'aide du QBE avant de tenter de la transcrire en VBA.

Un conseil en passant: utilises les alias pour simplifier ta syntaxe. Par exemple

Code :

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

1
2
3
4
 
'Sql="INSERT INTO TableTest ( année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT  " & Var & ".année, " & Var & ".OPPO, "& Var & ".MPE," & Var & "..MPF," & Var & "..MRE," & Var & "..MRF," & Var & "..M__ FROM" & Var & ";"
 
Sql="INSERT INTO TableTest ( année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT  MaSource.année, MaSource.OPPO, MaSource.MPE, MaSource.MPF,MaSource.MRE,MaSource.MRF,MaSource.M__ FROM " & Var & " as MaSource;"

[darkspoilt]

Je fait ma premiere requête pour ajouter une colonne année que je rempli a trvers le code d'ou la raison de mon premier Select c'est pour filtrer et ajouter une colonne (année) a ma premiere table si c'est possible de faire cela en une fois je veux bien la solution ncar je ne vois pas comment

ma premiere idée est de faire
nom de la requete Req2005_T3

Code :

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

1
2
3
SELECT PJPF2005_T3.OPPO, PJPF2005_T3.MPE, PJPF2005_T3.MPF, PJPF2005_T3.MRE, PJPF2005_T3.MRF, PJPF2005_T3.M__, "2005_T3" AS année
FROM PJPF2005_T3
WHERE (((PJPF2005_T3.CBQD)="total") AND ((PJPF2005_T3.MOIS)="total") AND ((PJPF2005_T3.CMOP)="total"));

et ensuite

Code :

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

1
2
3
INSERT INTO Test ( année, OPPO, MPE, MPF, MRE, MRF, M__ )
SELECT Req2005_T3.année, Req2005_T3.OPPO, Req2005_T3.MPE, Req2005_T3.MPF, Req2005_T3.MRE, Req2005_T3.MRF, Req2005_T3.M__
FROM Req2005_T3;

total étant une valeur
Req2005_T3 une requete selection

[darkspoilt]

La solution est

Code :

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

1
2
3
4
5
 
SQL = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, année) " & _
    "SELECT OPPO, MPE, MPF, MRE, MRF, M__, " & d & " AS année " & _
    "FROM" & name & _
    "WHERE CBQD=""total"" AND MOIS=""total"" AND CMOP=""total"";"