Discussion :

[jeep6259]

Bonjour à tous,
J'ai vraiment besoin d'un coup de main ,je ne m'en sors pas.. :/
J'ai besoin de passer un devis en commande. Pour se faire, j'ai un formulaire "Devis à commandes" et son sous formulaires"AffaireDetail1". Je sélectionne le numéro du devis et à l'aide d'une macro VB je viens récupérer les informations du formulaire "DevisModif" et de son sous formulaire "AffaireDetail1ssForm"

Le problème étant que je n'arrive pas à copier les éléments du sous formulaire.
Pour copier les éléments du formulaire "DevisMODIF" j'ai utilisé une macro avec définition de valeur
(EXEMPLE: définir valeur
Elément: [Formulaires]![Devis à affaires]![Vos références]
Expression: [Formulaires]![devis modif]![texte47] )

Pour la copie du sous formulaire j'ai essayé de dévlopper un petit code mais cela ne me donne aucun résultat.
Quelqu'un pourrait-il m'aider?

Code :

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

1
2
3
4
5
6
str = "INSERT INTO AffaireDétail1 ([NumeroPOSTE], [DesignationPOSTE], [MontantUT],[MontantTOTALPoste],[RefClientPoste],[Qté],[N° de Devis]) " & _
"SELECT" & ", DevisDetail.[NumeroPOSTE], DevisDetail.[DesignationPOSTE], DevisDetail.[MontantUT], DevisDetail.[MontantTotalPOSTE], DevisDetail.[RefClientPoste], DevisDetail.[Qté], DevisDetail.[N° De devis]" & _
"FROM [DevisDETAIL]" & _
"WHERE [N° de DEVIS]= [formulaires]![Devis à affaires]![N° devis souhaité];"
 
DoCmd.RunSQL str

Message d'erreur: "erreur de syntaxe dans l'instruction INSERT INTO"

Tables origine (Devis , DevisDETAIL) , table de destintation (Affaires, affairedétail1)

Merci d'avance


Jeep

[argyronet]

Bonjour,

Déjà, iIl y a une faute ici :

Code :

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

"SELECT" & ", DevisDetail

Argy