Set MyRecSet1 = MyConn.Execute (_
"WSZYWKA W Inventaire (Période, No_Bon, Wynagrodzenie, Description_du_produit, Quantité_commandée, Valeur_produit_fini, No_PO_1, Pays_du_brut_1, Composante_1, Quantité_Comp_1) WARTOŚĆ ('" & _
Format (Daktylowy, "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 &" ') ")
|