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