Discussion :

[juju57100]

Bonjour Marot, Bonjour Tee,

Lors de l'exécution de la requête VBA l'erreur suivante apparait et aucun résultat n'est ajouté dans la table [T_Selection_Leg_Prod_mem] :

"L'erreur que j’obtiens est Erreur d'exécution '3134':
Erreur de syntaxe dans l'instruction INSERT INTO."

J'ai essayé de détourner l'erreur en faisant la requête UNION puis en récupérant les résultats pour les insérés avec la requête INSERT INTO mais l'erreur s'affiche toujours.
Le code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SelectionIntermed( _
ByVal strClefPrimaire As String, _
Optional ByVal strTableSelection As String = "[T_Selection_Leg_Prod_mem]", _
Optional ByVal strWhere As String = "")
 
Dim StrSQL As String
Dim StrUnionQuery As String
 
StrUnionQuery = "SELECT [ID_Legume], [ID_Produit], [ID_Segment], [Selection] " _
& "FROM [T_Select_Leg_Seg_ok] " _
& "WHERE " & strWhere & "" _
& " UNION ALL " _
& "SELECT [ID_Legume], [ID_Produit],  Null as [ID_Segment], [Selection] " _
& "FROM [T_Selection_Leg_Prod] " _
& "WHERE " & strWhere
 
StrSQL = "INSERT INTO " & strTableSelection & "([ID_Legume], [ID_Produit], [ID_Segment], [Selection]) FROM " & StrUnionQuery & "" _

Il est mis en fonction lors de l'actualisation du champs ID_Produit.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub ID_Produit_AfterUpdate()
Nom_Produit = ID_Produit.Column(1)
Dim VarIDProd As Variant
VarIDProd = Forms![F_Select_Leg_Prod_Seg]![ID_Produit].Column(0)
InitialiserSelection "[T_Legumes]", "[ID_Legume]", "[T_Selection_Leg_Prod]", IIf(VarIDProd <> "", "[ID_Produit] = " & VarIDProd, "")
Me.Form.SF_Select_Leg_Prod.Requery
Me.Requery
SelectionIntermed "[ID_Legume]", "[T_Selection_Leg_Prod_mem]", IIf(VarIDProd <> "", "[ID_Produit] = " & VarIDProd, "")
Me.Form.SF_Select_Leg_Prod.Requery
Me.Requery
End Sub

Le debug.Print strUnionQuery me donne exemple:
SELECT [ID_Legume], [ID_Produit], [ID_Segment], [Selection] FROM [T_Select_Leg_Seg_ok] WHERE [ID_Produit] = 9 UNION ALL SELECT [ID_Legume], [ID_Produit], Null as [ID_Segment], [Selection] FROM [T_Selection_Leg_Prod] WHERE [ID_Produit] = 9
et si je copie ce code dans une nouvelle requête en SQL il me donne bien les valeurs que je recherche pour ID_Produit = 9.

Auriez vous une idée du bug?

Bien cordialement
Julien

[tee_grandbois]

bonsoir,
il faut des parenthèses pour délimiter la requête UNION quand on l'utilise comme requête d'insertion:

Code :

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

1
2
(SELECT [ID_Legume], [ID_Produit], [ID_Segment], [Selection] FROM [T_Select_Leg_Seg_ok] WHERE [ID_Produit] = 9 
 UNION ALL SELECT [ID_Legume], [ID_Produit], Null as [ID_Segment], [Selection]  FROM [T_Selection_Leg_Prod] WHERE [ID_Produit] = 9)

Code :

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

StrUnionQuery = "(" & StrUnionQuery & ")"

[juju57100]

Bonjour Tee,

Encore merci pour le coup de main.

Je tombe toujours sur une erreur en mettant les parenthèses que ce soit à l'expression complète à "(" &StrUnionQuery & ")" ou aux deux.

Pour voir si cela marché en temps que requête simple j'ai copié le code obtenu dans le générateur de requête en SQL :

Code :

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

1
2
3
4
5
6
 
INSERT INTO T_Selection_Leg_Prod_mem ( ID_Legume, ID_Produit, ID_Segment, Selection ) 
FROM (SELECT T_Select_Leg_Seg_ok.[ID_Legume], T_Select_Leg_Seg_ok.[ID_Produit], T_Select_Leg_Seg_ok.[ID_Segment], T_Select_Leg_Seg_ok.[Selection]
FROM T_Select_Leg_Seg_ok WHERE T_Select_Leg_Seg_ok.[ID_Produit]=40  
UNION ALL 
SELECT [ID_Legume], [ID_Produit],  Null as [ID_Segment], [Selection] FROM [T_Selection_Leg_Prod] WHERE ([ID_Produit] = 40);

Le résultat est une erreur " Erreur de syntaxe dans l'instruction INSERT INTO".

J'ai essayé dans ce code SQL de mettre soit entre parenthèses soit chacun des SELECT jusqu'au dernière argument et/ou l'expression SELECT UNION complète mais le résultat reste le même. J'ai aussi essayé sans le FROM après le INSERT INTO ... (FROM) mais le résultat est toujours la même erreur.

En supprimant les parenthèses et tout ce qui suit le UNION ALL inclut je tombe sur une insertion comme je le souhaite..

Code :

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

1
2
3
4
INSERT INTO T_Selection_Leg_Prod_mem ( ID_Legume, ID_Produit, ID_Segment, Selection )
SELECT T_Select_Leg_Seg_ok.ID_Legume, T_Select_Leg_Seg_ok.ID_Produit, T_Select_Leg_Seg_ok.ID_Segment, T_Select_Leg_Seg_ok.Selection
FROM T_Select_Leg_Seg_ok
WHERE (((T_Select_Leg_Seg_ok.ID_Produit)=40));

je suis sous Access 2016.

Savez vous ou est mon erreur?
Bien cordialement.
Julien

[tee_grandbois]

bonjour,

Savez vous ou est mon erreur?

non, on ne ne peut pas savoir puisque tu n'as pas posté le code modifié. Je veux bien croire que tu as fait comme j'ai dit, mais si cela ne fonctionne pas, cela peut être parce qu'une modification a été mal reportée.

Je tombe toujours sur une erreur en mettant les parenthèses que ce soit à l'expression complète à "(" &StrUnionQuery & ")" ou aux deux.

Il faut mettre les parenthèses uniquement au début et à la fin de la première clause SELECT de l'UNION et à la fin du dernier WHERE de la dernière clause SELECT.
Regarde bien, il manque une parenthèse fermante (ajouté en rouge):

Code :

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

1
2
3
4
5
INSERT INTO T_Selection_Leg_Prod_mem ( ID_Legume, ID_Produit, ID_Segment, Selection ) 
FROM (SELECT T_Select_Leg_Seg_ok.[ID_Legume], T_Select_Leg_Seg_ok.[ID_Produit], T_Select_Leg_Seg_ok.[ID_Segment], T_Select_Leg_Seg_ok.[Selection]
FROM T_Select_Leg_Seg_ok WHERE T_Select_Leg_Seg_ok.[ID_Produit]=40  
UNION ALL 
SELECT [ID_Legume], [ID_Produit],  Null as [ID_Segment], [Selection] FROM [T_Selection_Leg_Prod] WHERE ([ID_Produit] = 40));

vérifie aussi que ID_Segment accepte la valeur nulle

[juju57100]

Bonjour Tee,

Je te remercie pour la correction. J'ai essayé de mettre le code comme tu me l'as indiqué mais l'erreur se maintient...Je vais coller les imprimes écrans que j'ai.



Voici en VBA et la fenètre qui apparait lorsque je modifie le champs ID_produit (ce qui active mon code et modifie mon ID_Produit du WHERE sans problème).



Je recolle aussi le VBA du après MAJ de ID_Produit qui active la requête.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub ID_Produit_AfterUpdate()
Nom_Produit = ID_Produit.Column(1)
Dim VarIDProd As Variant
VarIDProd = Forms![F_Select_Leg_Prod_Seg]![ID_Produit].Column(0)
InitialiserSelection "[T_Legumes]", "[ID_Legume]", "[T_Selection_Leg_Prod]", IIf(VarIDProd <> "", "[ID_Produit] = " & VarIDProd, "")
Me.Form.SF_Select_Leg_Prod.Requery
Me.Requery
SelectionIntermed "[ID_Legume]", "[T_Selection_Leg_Prod_mem]", IIf(VarIDProd <> "", "[ID_Produit] = " & VarIDProd, "")
Me.Form.SF_Select_Leg_Prod.Requery
Me.Requery
End Sub

Est ce que vous savez où peut être l'erreur?

Bien cordialement.
Julien

[tee_grandbois]

OK, il manque quelque chose dans la requête INSERT
remplace cette ligne:

Code :

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

StrSQL = "INSERT INTO " & strTableSelection & "([ID_Legume], [ID_Produit], [ID_Segment], [Selection]) FROM " & StrUnionQuery & ""

par:

Code :

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

StrSQL = "INSERT INTO " & strTableSelection & "([ID_Legume], [ID_Produit], [ID_Segment], [Selection]) SELECT U.[ID_Legume], U.[ID_Produit], U.[ID_Segment], U.[Selection]  FROM (" & StrUnionQuery & ") as U ;"

et supprime cette ligne:

Code :

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

StrUnionQuery = "(" & StrUnionQuery & ")"

[juju57100]

Bonjour Tee,

Un très grand merci pour le coup de main, la requête marche enfin!!

Très cordialement.
Julien Brach