Discussion :

[nanette38]

Bonjour,

j'ai un problème avec une requête insert dans laquelle je souhaite mettre un select.

J'ai trouvé sur un forum :

Requête Ajout avec plusieurs enregistrements :

Code sql :

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

1
2
3
INSERT INTO TableCible [(champ1[, champ2[, ...]])] [IN basededonnéesexterne]
SELECT [source.]champ1[, champ2[, ...]
FROM expressiontable

Requête Ajout avec un seul enregistrement :

Code sql :

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

1
2
INSERT INTO TableCible [(champ1[, champ2[, ...]])]
VALUES (valeur1[, valeur2[, ...])

Mais ce que je veux faire c'est un mix des deux mais ça ne marche pas.

Mon formulaire permet d'ajouter une personne en liant cette personne à un domaine.
D'abord j'ai une requete qui insert ma personne dans ma table a_alerter.

Puis j'ai besoin de récuperer l'identifiant de cette personne (numéro auto, clé primaire de ma table) pour insérer dans le table qui fait le lien entre la personne et le domaine.

Le domaine est lui directement récupéré dans le formulaire.

Ma requete select (dans mon code VBA) :

Code :

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

1
2
requete2 = "select id_a_alerter from a_alerter " _
                   & " where libelle=" & Chr(34) & Form_F_ajout_a_alerter.libelle & Chr(34)

Et ma requete insert (qui ne marche pas bien sûr !!)

Code :

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

1
2
3
4
requete = "insert into a_alerter_domaine " _
          & "(id_a_alerter, id_domaine) values (" & requete2 & ", "  & Chr(34) _
          &   Form_F_ajout_a_alerter.liste_domaine.ItemData(compteur) _
          & Chr(34) & ");"

Merci d'avance pour vos idées

[zilfana63]

Code :

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

1
2
3
4
requete = "insert into a_alerter_domaine " _
          & "(id_a_alerter, id_domaine) values (" & requete2 & ", "  & Chr(34) _
          &   Form_F_ajout_a_alerter.liste_domaine.ItemData(compteur) _
          & Chr(34) & ");"

Merci d'avance pour vos idées

Moi j'aurais mis

Code :

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

1
2
3
 requete = "insert into a_alerter_domaine (id_a_alerter, id_domaine)"
         requête2 = "Select "id_a_alerter, id_domaine"
         requête3 = " FROM F_ajout_a_alerter.liste_domaine.ItemDate(compteur) ; "

Debug.Print pour chaque ligne et tu verras bien ton erreur
et DoCmd.RunSQL requete + requete2 + .....

Je ne sais pas à quoi correspond le Chr(34) donc je te laisse l'adaptation

[nanette38]

Moi j'aurais mis

Code :

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

1
2
3
 requete = "insert into a_alerter_domaine (id_a_alerter, id_domaine)"
         requête2 = "Select "id_a_alerter, id_domaine"
         requête3 = " FROM F_ajout_a_alerter.liste_domaine.ItemDate(compteur) ; "

Debug.Print pour chaque ligne et tu verras bien ton erreur
et DoCmd.RunSQL requete + requete2 + .....

Je ne sais pas à quoi correspond le Chr(34) donc je te laisse l'adaptation

Le Chr(34) c'est pour mettre des guillemets dans une chaine de caractère en VBA.

Tu m'as donné une idée pour résoudre mon problème. Je vais essayer et je te tiens au courant.

Merci

[ataya]

Juste qques idées comme ca ...

Ce qui me saute aux yeux c'est ça :

Code :

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

" & requete2 & "

que l'on trouve dans la requête "requete"

Le premier test que j'aurais fait est d'essayer d'exécuter "requete" en remplaçant le contenu qu'est censé te ramener requete2 par une valeur bidon en dur ... Enfin, si tu as des contraintes d'intégrité sur tes tables elle ne doit pas être si bidon que ça, il faut que cette valeur existe dans la table de référence.

Si le test passe c'est que la syntaxe de l'insertion du résultat de requete2 n'est pas bon ...

A tester une syntaxe du genre:

Code :

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

(" & requete2 & ")

Lorsque j'ai des problèmes de syntaxe SQL, je teste dans l'éditeur de requête avec des valeurs en dur et une fois que j'ai la syntaxe correcte, j'intègre dans le code

[katoyi]

Bonjour,

j'ai un problème avec une requête insert dans laquelle je souhaite mettre un select.

Et ma requete insert (qui ne marche pas bien sûr !!)

C'est quel erreur au juste tu as ?

[Alexandre Sahli]

Bonjour,

Pour une sécurité à toute épreuve, c'est à dire que tu ajoutes bien des données pour la personne que tu viens d'introduire.
Je ferais d'abord un ajout avec le record set et je rajouterais les données. Pendant l'ajout je récupère l'identifiant de la nouvelle personne ajoutée et ensuite je ferais la requête ajout pour plusieurs enregistrements.

bonne chance

[vodiem]

salut à tous,

nanette38> j'ai pas tout lu, mais par rapport à ce que tu dis dans ton premier post, il y a vraiment plusieurs solutions conceptuelles qui peuvent résoudre autrement ce problème.
mais si tu veux continuer sur cette piste, utilise les fonctions de domaine, dans ton cas la fonction DLookup() pour récupérer la valeur de <id_a_alerter> est appropriée.
je n'ai pas testé l'imbrication de requete comme tu le fait dans le values mais il y a erreur dans ta sous requete "requete2" : elle peut retourner plus d'une valeur (en compréhension), un groupement (first par ex) est de rigueur.



ps: bienvenu sur le forum.

[nanette38]

Merci pour toutes vos réponses

Finalement j'ai fait une "pseudo-jointure" (car aucun champ commun) des mes tables car sur une des tables je suis sûr d'avoir qu'une seule ligne pour ma valeur

Code :

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

1
2
3
4
5
6
7
8
9
 
requete2 = "select id_a_alerter, id_domaine from a_alerter, domaine" _
                   & " where libelle=" & Chr(34) & Form_F_ajout_a_alerter.libelle & Chr(34) _
                   & " and id_domaine=" & Form_F_ajout_a_alerter.liste_domaine.ItemData(compteur)
 
 
requete = "insert into a_alerter_domaine " _
                           & "(id_a_alerter, id_domaine) " _
                           & requete2 & ";"

Merci encore à tous