1 2 3
| Set base = Application.CurrentDb
requete = "INSERT INTO Detail_temp (ref_det,qute_det,Designation,n_cme,type_exp,n_ote,type_emballage,ville,code_postal,pays,date_exp,civilite,nom_client,adresse_client,Prix_unitaire_HT,Prix_total_HT,poids_unitaire,poids_ligne) VALUES ('" & ref_produit.Value & "'," & qte_commandee.Value & ",'" & Designation.Value & "','" & n_cme.Value & "','" & mode_exp.Value & "','" & n_ote.Value & "','" & type_support.Value & "','" & ville.Value & "','" & code_postal.Value & "','" & pays.Value & "','" & date_exp.Value & "','" & civilite.Value & "','" & nom_client.Value & "','" & adresse_client.Value & "','" & prix_unitaire.Value & "'," & total_commande & ",'" & poids_unitaire.Value & "','" & poids_commandee & "')"
base.Execute requete |
Partager