1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| If Me.rechclient Then
If Me.rechproduit Then
sql = "SELECT [Détail vente].coddetvte, Produit.Designation as produit, [Détail vente].Qté as [quantité], [Détail vente].prix_unit,[Détail vente].Unité as [prix unitaire], Client.Nom & """" & Client.Prénoms as clients, Vente.Datevte as [date achat] FROM Client INNER JOIN (Vente INNER JOIN (Produit INNER JOIN [Détail vente] ON Produit.Codprod = [Détail vente].Codprod) ON Vente.Codvte = [Détail vente].Codvte) ON Client.Codclt = Vente.Codclt where client.codclt= " & Me.client & " And produit.Codprod = " & Me.produit & ""
Me.det_vente.RowSource = sql
Me.det_vente.Requery
Exit Sub
Else
sql = "SELECT [Détail vente].coddetvte, Produit.Designation as produit, [Détail vente].Qté as [quantité], [Détail vente].prix_unit,[Détail vente].Unité as [prix unitaire], Client.Nom & """" & Client.Prénoms as clients, Vente.Datevte as [date achat] FROM Client INNER JOIN (Vente INNER JOIN (Produit INNER JOIN [Détail vente] ON Produit.Codprod = [Détail vente].Codprod) ON Vente.Codvte = [Détail vente].Codvte) ON Client.Codclt = Vente.Codclt where client.codclt= " & Me.client
Me.det_vente.RowSource = sql
Me.det_vente.Requery
Exit Sub
End If
Else
If Me.rechproduit Then
sql = "SELECT [Détail vente].coddetvte, Produit.Designation as produit, [Détail vente].Qté as [quantité], [Détail vente].prix_unit,[Détail vente].Unité as [prix unitaire], Client.Nom & """" & Client.Prénoms as clients, Vente.Datevte as [date achat] FROM Client INNER JOIN (Vente INNER JOIN (Produit INNER JOIN [Détail vente] ON Produit.Codprod = [Détail vente].Codprod) ON Vente.Codvte = [Détail vente].Codvte) ON Client.Codclt = Vente.Codclt where produit.codprod= " & Me.produit
Me.det_vente.RowSource = sql
Me.det_vente.Requery
Exit Sub
'End If
Else
sql = "SELECT [Détail vente].coddetvte, Produit.Designation as produits, [Détail vente].Qté as [quantité], [Détail vente].prix_unit as [prix unitaire],[Détail vente].Unité as [prix unitaire], Client.Nom & """" & Client.Prénoms as clients, Vente.Datevte as [date achat]FROM Client INNER JOIN (Vente INNER JOIN (Produit INNER JOIN [Détail vente] ON Produit.Codprod = [Détail vente].Codprod) ON Vente.Codvte = [Détail vente].Codvte) ON Client.Codclt = Vente.Codclt"
Me.det_vente.RowSource = sql
Me.det_vente.Requery
End If
End If |
Partager