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])" |
Partager