Discussion :

[JiB@]

Bonjour,

J’ai 3 tables ; Facturier, DonneNumFacture et Commande
Dans chacune d’elles, il y a un champ commun « NumClient »

Je voudrais :

1) Prendre le ou les enregistrements correspondant à un numéro de client déterminé dans la table « DonneNumFacture » et « Commande »
2) Enregistrer le ou les enregistrements créés par la requête sélection dans la table « Facturier »

Voici les deux codes que j’ai testé et qui se bloquent à cause d’une mauvaise syntaxe FROM :

Code 1:

Code :

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

1
2
3
4
5
6
 
sql = "INSERT INTO facturier (NumClient, RefProduit, DesCommerciale, Qvendue, PVTVAC, NumFacture ) " & _
       "SELECT Commandes.NumClient, Commandes.RefProduit, Commandes.DesCommerciale, Commandes.Qvendue, Commandes.PVTVAC, AttribueNumFacture.NumFacture " & _
       "FROM AttribueNumFacture " & _
       "INNER JOIN Commandes ON AttribueNumFacture.NumClient = Commandes.NumClient " & _
       "WHERE NumClient=" & Me![NumClient]

Code 2:

Code :

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

1
2
3
4
5
6
7
 
sql = "INSERT INTO facturier (NumClient, RefProduit, DesCommerciale, Qvendue, PVTVAC, NumFacture ) " & _
       "SELECT Commandes.NumClient, Commandes.RefProduit, Commandes.DesCommerciale, Commandes.Qvendue, Commandes.PVTVAC, AttribueNumFacture.NumFacture " & _
       "FROM Commandes " & _
       "SELECT AttribueNumFacture.NumFacture " & _
       "FROM AttribueNumFacture " & _
       "WHERE NumClient=" & Me![NumClient]

Si vous avez des suggestions ou des corrections à apporter au code, je vous en remercie d’avance.

@+

JiB@

[jean-paul lepetit]

Salut,
peut être comme ça....

Code :

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

1
2
3
4
5
6
7
Sql= "INSERT INTO facturier (NumClient, RefProduit, DesCommerciale, Qvendue, PVTVAC, NumFacture ) " 
Sql=Sql & "SELECT Commandes.NumClient, Commandes.RefProduit, " 
Sql=Sql & "Commandes.DesCommerciale, Commandes.Qvendue, "
Sql=Sql & "Commandes.PVTVAC, AttribueNumFacture.NumFacture " 
Sql=Sql & "FROM AttribueNumFacture "
Sql=Sql & "INNER JOIN Commandes ON AttribueNumFacture.NumClient = Commandes.NumClient " 
Sql=Sql & "WHERE NumClient=" & Me![NumClient] &";"

[JiB@]

Ok, merci Jean-Paul Lepetit
ça fonctionne

@+