requête action ajout exécutée par VBA, à partir d'un select
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
