Set MyRecSet1 = MyConn.Execute( _
"INSERT INTO Inventaire (Période, No_Bon, Pays, Description_du_produit,Quantité_commandée, Valeur_produit_fini, No_PO_1, Pays_du_brut_1,Composante_1, Quantité_Comp_1 ) VALUES ( '" & _
Format(Date, "dd mmmm yyyy") & _
"' , '" & txtNumBon.Text & _
"' , '" & txtPays.Text & _
"' , '" & Des_prod.Text & _
"' , '" & txtQté.Text & _
"' , '" & lblCoûtInventaire1.Caption & _
"' , '" & txtPO1.Text & _
"' , '" & txtBrut1.Text & _
"' , '" & txtComposante1.Text & _
"' , '" & txtQté.Text & _
"' , '" & txtPO2.Text & _
"' , '" & txtBrut2.Text & _
"' , '" & txtComposante2.Text & _
"' , '" & txtQté.Text & "' )")
|