Discussion :

[marieo]

Bonjour,
Je suis en train d'écrire un code qui permet de fractionner des données d'une table et de les copier dans une autre table qui est dans une autre base que celle dans laquelle j'exécute le code.
Lorsque je fais la requête avec les requêtes de Access et que je la lance tout fonctionne.
Lorsque j'essaye d'écrire le SQL de la requête pour qu'il s'exécute en VBA, j'ai un message d'erreur : "Invalid Operation".

Je dois passer par du VBA car je dois faire une boucle pour l'exécution de la requête et je n'ai pas envie de créer autant de requête que de fois qu'elle doit s'exécuter avec des paramétres différents...

Auriez-vous une idée pour m'aider ?

Voici le code correspondant à la boucle

Code :

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

1
2
3
4
5
6
7
8
 
For i=1 to 10
  ReqSQL = "INSERT INTO TABLE1 (CHAMP1, CHAMP2) " & _
                "IN '" & CurrentProject.Path & "\NOMBASE" & i & ".mdb' " & _
                "SELECT CHAMP1, CHAMP2 FROM TABLE2 " & _
                "WHERE TABLE2.CHAMP3 = " & i & ";"
  Set rs = CurrentDb.OpenRecordset(ReqSQL)
Next i

Merci beaucoup,
MarieO

[marieo]

Plus la peine de travailler sur ma question, j'ai trouvé le pb.
Il vient du fait que je n'utilise pas la bonne commande...
Il faut mettre CurrentDB.Execute (ReqSQL)...

Bonne journée,
marieO