1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Private Sub BtnAjouter_Click()
Dim strSQl As String
Dim var As Variant
For Each var In Me.ZdlTaille.ItemsSelected
strSQl = "INSERT INTO T_Produit ( Marque, Univers, Catégorie_Mère, Catégorie, Types, Attribute_Set, Genre, Age, Taille, Couleur, Nom_Produit, Ref_Fournisseur, Prix_Vente_TTC )" _
& "SELECT '" & Me.Marque & "','" & Me.Univers & "','" & Me.Catégorie_Mère & "','" & Me.Catégorie & "','" & Me.Types & "','" & Me.Attribute_Set & "','" & Me.Genre & "','" & Me.Age & "','" & Me.ZdlTaille.ItemData(var) & "','" & Me.Couleur & "','" & Me.Nom_Produit & "','" & Me.Ref_Fournisseur & "','" & Me.Prix_Vente_TTC & "'"
DoCmd.RunSQL strSQl
Next var
End Sub |
Partager