Pbe longueur ligne instruction avec requête SQL écrite en VBA

Bonjour à tous,

Je suis sous ACCESS 2003.

J'ai un formulaire comprenant 66 champs.

Je suis en train d'écrire du code VBA afin de lire le contenu des champs du formulaire pour les mettre ensuite dans une table.

Mon code est du type :

Code:

---

1 2 3 4 5 6 7

Function enrgverschrono()   Dim db As Database Dim sql As String DoCmd.SetWarnings False ' pour ne pas avoir de message a chaque ajout 'Insére dans la table "Chrono" les infos contenus dans le formulaire sql = "INSERT INTO [Chrono](Emetteur,Service,Nom_client,Code_client,BL,Qte_BL,Qte_retour,Doc_joint,Ref_produit,Num_OF,Qte_OF,Machine,Outil,Nom_four_stpa,BL_F,Qte_livre,Qte_refus,Ref_four_stpa_ebau,Num_cde,BR,Constats,Causes,Tri,Reprise,Ferraillage,Dérog_interne,Dérog_client,T_reprise,Q_nc,DG,RH,COMPTA,BEP,CO,CGA,NEG,HA,DU,SQ,BEI,MO,MM,FAB,STPA,LOG/EMB,EXP,MA,MPF,HSE,IMP1,IMP2,IMP3,IMP4,IMP5,Traite, Visa_SQ,C_divers,T_divers,C_out,T_out,C_mo,T_mo,C_mp,T_mp,C_total,T_total) VALUES ([Forms]![f_rnctempo2]![F_emetprinci],[Forms]![f_rnctempo2]![F_serviprinci],[Forms]![f_rnctempo2]![Nom_client],[Forms]![f_rnctempo2]![Code_client],[Forms]![f_rnctempo2]![BL],[Forms]![f_rnctempo2]![Qte_BL],[Forms]![f_rnctempo2]![Qte_retour],[Forms]![f_rnctempo2]![Doc_joint],[Forms]![f_rnctempo2]![Ref_produit],[Forms]![f_rnctempo2]![Num_OF],[Forms]![f_rnctempo2]![Qte_OF],[Forms]![f_rnctempo2]![Machine],[Forms]![f_rnctempo2]![Outil],[Forms]![f_rnctempo2]![Nom_four_stpa],[Forms]![f_rnctempo2]![BL_F],[Forms]![f_rnctempo2]![Qte_livre])"

---

Lorsque j'arrive à la colonne 1024 dans VBA je ne peux plus taper de caractère pour finir mon instruction SQL.

Y a t'il une solution pour terminer l'instruction de ma requête SQL sur plusieurs lignes ?

Bonjour,

tu peux écrire ton instruction en plusieurs lignes

Code:

---

1 2

sql = "INSERT INTO [Chrono](Emetteur,Service,Nom_client,Code_client,BL,Qte_BL,Qte_retour,Doc_joint,Ref_produit,Num_OF,Qte_OF,Machine,Outil,Nom_four_stpa,BL_F,Qte_livre,Qte_refus,Ref_four_stpa_ebau,Num_cde,BR,Constats,Causes,Tri,Reprise,Ferraillage,Dérog_interne,Dérog_client,T_reprise,Q_nc,DG,RH,COMPTA,BEP,CO,CGA,NEG,HA,DU,SQ,BEI,MO,MM,FAB,STPA,LOG/EMB,EXP,MA,MPF,HSE,IMP1,IMP2,IMP3,IMP4,IMP5,Traite, Visa_SQ,C_divers,T_divers,C_out,T_out,C_mo,T_mo,C_mp,T_mp,C_total,T_total)" sql = sql & " VALUES(....)"

---

Par contre il faut sortir les valeurs et les concaténer.

Code:

---

sql = sql & " VALUES('" & [Forms]![f_rnctempo2]![F_emetprinci] & "', '" & [Forms]![f_rnctempo2]![F_serviprinci] & "', '" & ...

---

Je te recommande de regarder la partie VI du tuto Débogage : requêtes écrites par VBA

A+

Bonjour LedZeppII,

Ca correspond à ce que je voulais ( le code va être un peu plus long à taper mais enfin ).

Le tuto est sympa également.

Merci de tes précieux conseils. :king:

A+