1 2 3 4 5 6 7
| StrReq = "INSERT INTO ReqHistoriqueVente (NoVente, DateVente, User, NoArticle, Designation, Categorie, PrixVente, Rabais, Quantité, Montant, NbrArticle, VenteTotal, Discount, MontantPaye, Cash, Monaie) Values (" _
& Me.NoVente & "," & Me.DateVente & ", '" & Me.User & "'," _
& SaisieVentes.Form!NoArticle & ",'" & SaisieVentes.Form!Designation & "','" & SaisieVentes.Form!Categorie & "'," & SaisieVentes.Form!PrixVente & "," _
& SaisieVentes.Form!Rabais & "," & SaisieVentes.Form!Quantité & "," & SaisieVentes.Form!Montant & "," & Me.NbrArticle & "," _
& Me.VenteTotal & "," & Me.Discount & "," & Me.MPayer & "," & Me.Cash & "," _
& Me.Monaie & ");"
DoCmd.RunSQL StrReq |
Partager