Discussion :

[Babelge]

J'aimerais sélectionner des enregistrements d'une table pour les ajouter à une autre de la même structure par code VBA.
Ou bien dit autrement, ajouter à une table de nouveau enregistrement dont les valeurs de champs proviendrais d'un select... par du code VBA

J'essaye ceci


monsql = ""
monsql = monsql & " INSERT INTO"
monsql = monsql & " DerniereListeCti"
monsql = monsql & " ([NR ECOLE], Annee, MOIS, [CATEGORIE FONCTION], STATUT, NOM, MATRICULE, [CHARGES NOR MATIVES])"
monsql = monsql & " VALUES"
monsql = monsql & " SELECT"
monsql = monsql & " DerniereListeCtiTampon.[NR ECOLE], DerniereListeCtiTampon.Annee, DerniereListeCtiTampon.MOIS, DerniereListeCtiTampon.[CATEGORIE FONCTION], DerniereListeCtiTampon.STATUT, DerniereListeCtiTampon.NOM, DerniereListeCtiTampon.MATRICULE, DerniereListeCtiTampon.[CHARGES NOR MATIVES]"
monsql = monsql & " FROM"
monsql = monsql & " DerniereListeCtiTampon"
Debug.Print monsql

et je tente l'exécution du sql avec
DoCmd.RunSQL monsql

et j'obtiens erreur de syntaxe "3134" dans l'instruction INSERT INTO

ou bien
Dim cnn As New ADODB.Connection
Set cnn = CurrentProject.Connection
cnn.Execute monsql
cnn.Close
et j'obtiens erreur de syntaxe "-2147217900 (80040e14)" dans l'instruction INSERT INTO

Je pense que c'est un classique mais je ne trouve pas malgré mes recherches après presque 2h la bonne syntaxe pour le sql.
A votre bon cœur messieurs dames

[tee_grandbois]

bonjour,
il aurait été bienvenu de poster aussi le résultat du Debug quelques fois cela aide

Avec VALUES il ne faut pas de SELECT et inversement : VALUES insère une liste de valeurs pour chaque champ alors que SELECT utilise les données d'une table:

Code :

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

1
2
3
4
5
6
7
8
monsql = ""
monsql = monsql & " INSERT INTO"
monsql = monsql & " DerniereListeCti"
monsql = monsql & " ([NR ECOLE], Annee, MOIS, [CATEGORIE FONCTION], STATUT, NOM, MATRICULE, [CHARGES NOR MATIVES])"
monsql = monsql & " SELECT"
monsql = monsql & " DerniereListeCtiTampon.[NR ECOLE], DerniereListeCtiTampon.Annee, DerniereListeCtiTampon.MOIS, DerniereListeCtiTampon.[CATEGORIE FONCTION], DerniereListeCtiTampon.STATUT, DerniereListeCtiTampon.NOM, DerniereListeCtiTampon.MATRICULE, DerniereListeCtiTampon.[CHARGES NOR MATIVES]"
monsql = monsql & " FROM"
monsql = monsql & " DerniereListeCtiTampon"

Je pense que c'est un classique

non, celle-ci je ne l'avais pas vu venir

[Babelge]

Sans values, ça roule merci.
Quand je disais classique, je pensais à une erreurs classique, mais si je peux être original :-) ce n'est pas plus mal
En tous cas merci merci
Cordialement

[tee_grandbois]

Quand je disais classique, je pensais à une erreurs classique

je l'avais compris comme cela.
Pense à mettre la discussion à