Discussion :

[ted the Ors]

Bonjour,

Je souhaiterai lancer une requête de création de table via une macro.
La requête est correcte (à savoir, elle s'exécute correctement lorsqu'elle est lancée en "direct"), cependant, j'obtiens une erreur 3219 / Opération invalide lorsque je l'execute via macro. L'erreur est localisée sur la ligne en gras.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande4_Click()

Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("Req1")
While Not Rs.EOF
    MsgBox Rs(0)
    Rs.MoveNext
Wend

Set Rs = Nothing

End Sub

J'ai bien essayé de supprimer la table créée par la requête au préalable mais rien n'y fait.
J'ai fait quelques recherches ici et ailleurs mais j'ai l'impression que cette erreur est plutôt "générique" et que la résolution se fait au cas par cas!

D'avance merci.

[Pierre Fauconnier]

Bonjour

Si Req1 pointe vers une requête action et pas sur une requête sélection, c'est normal que tu aies une erreur.

Peux-tu préciser Req1 et éventuellement nous en donner le code SQL?

[ted the Ors]

Bonjour

Si Req1 pointe vers une requête action et pas sur une requête sélection, c'est normal que tu aies une erreur.

Peux-tu préciser Req1 et éventuellement nous en donner le code SQL?

Bonjour et merci pour la réponse:

Voilà la requête

Code sql :

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

1
2
SELECT Table1.* INTO [Table3]
FROM Table2 INNER JOIN Table1 ON Table.ChampA = Table1.ChampB;

Il s'agit donc bien d'une requête de selection (ou alors je me gourre complétement )

[Pierre Fauconnier]

Comme tu parles dans le titre d'une opération invalide sur création de table... je suis un peu perdu...

Peux-tu préciser le contexte?

[ted the Ors]

Ok...
Alors, je crée 2 tables par import de données (format txt): table 1 et table 2.
Suite à cet import, je crée une table, table3, qui est en fait une jointure de la table 1 et de la table 2...Table 3 est créée via la requete ci-dessus!
En esperant avoir été clair!

[Pierre Fauconnier]

Dans le code que tu donnes, tu oublies le 2 dans On TABLE.ChampA

Cela étant

ta requête n'utilise pas la bonne syntaxe d'un requête ajout. La bonne syntaxe est

Code :

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

Insert into Table3 (champ1, champ2, ...) select table1.Champ1, table1.Champ2 from champ1 inner join Table2 on table1.champ1 = table2.champ2

De plus, cette requête étant une requête action (ajout), elle ne peut pas être utilisée par un objet de type RECORDSET, puisqu'elle ne renvoie pas un jeu d'enregistrement.

Pourquoi veux-tu itérer sur cette requête?

Enfin, tu dis que cette requête fonctionne "en direct" mais j'ai peine à croire qu'elle fonctionne avec le code que tu as donné.

Peux-tu donné le code sql exact de la requête utilisée en direct?

[ted the Ors]

Bon alors, j'ai trouvé un moyen de contournement

Il suffit de passer par un (simple):
DoCmd.RunSQL suivi de la requête et ca fonctionne parfaitement!

merci Pierre et à ceux qui m'ont lu !

Bonne fin de journée!