Insert Into avec un Select

Version imprimable

Bonjour,

Je veux insérer dans une table des données venant à la fois d'une autre table et d'un formulaire.

Voici le code que j'exécute:
Code:

1 2 3 4 5 6 7 8 9 10 11 list = "INSERT INTO TBLTAMPON " list = list & "(QID, MCSerial, ActionName, Groupe) " list = list & "Values(SELECT " & Me.lstchoice.Column(0) & ", " & Me.lstchoice.Column(3) & ", " list = list & "QUOTED_ACTIONS.ActionName, ACTIONS.Groupe " list = list & "FROM ACTIONS, QUOTED_ACTIONS " list = list & "WHERE QUOTED_ACTIONS.QID = " & Me.lstchoice.Column(0) & " " list = list & "AND QUOTED_ACTIONS.ActionID = ACTIONS.ActionID);" 'list = list & "ORDER BY ACTIONS.Groupe))" Debug.Print list CurrentDb.Execute list
Quand je l'exécute j'ai un mesage d'erreur me retournant une erreur d'exécution en me disant qu'il y a une erreur de syntaxe dans le SELECT, il m'affiche: 'SELECT 17'. 17 étant la valeur de ma colonne 0.
Par contre quand j'effectue la requete SELECT dans une query cela fonctionne très bien.
Le problème peut-il venir que la requete retourne plusieurs ligne ?

Merci d'avance.

Salut,

peut être comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
list = "INSERT INTO TBLTAMPON "
    list = list & "(QID, MCSerial, ActionName, Groupe) "
    list = list & "Values("& Me.lstchoice.Column(0) & ", " & Me.lstchoice.Column(3) & ", "
    list = list & "QUOTED_ACTIONS.ActionName, ACTIONS.Groupe "
    list = list & "FROM ACTIONS, QUOTED_ACTIONS "
    list = list & "WHERE QUOTED_ACTIONS.QID = " & Me.lstchoice.Column(0) & " "
    list = list & "AND QUOTED_ACTIONS.ActionID = ACTIONS.ActionID);"
    'list = list & "ORDER BY ACTIONS.Groupe))"
    Debug.Print list
 
    CurrentDb.Execute list

01/10/2007, 14h54
Tintou

Merci pour ta réponse.
Quand je supprime le SELECT, il me retourne une erreur sur le INSERT INTO.
01/10/2007, 17h07
Tintou

Personne n'a d'idée ?
Du moins savez vous s'il est possible d'insérer plusieurs lignes à la fois où s'il faut procéder une par une ?