Discussion :

[kiki.gaby]

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 :

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

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 ?

[LedZeppII]

Bonjour,

tu peux écrire ton instruction en plusieurs lignes

Code :

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

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 :

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

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+

[kiki.gaby]

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.

A+