Bonjour
je suis entrain de développer un logiciel de gestion des pharmacies. la pharmacie travail 24h/24h beaucoup de personne peuvent intervenir dans la journée et la nuit je voudrais faire un filtre pour connaitre les ventes de chaque personne filtre entre deux dates, date début date fin. et filtre entre deux heures différentes heures début heure fin. j'utilise VB 6.0 base de donnée access.
j'ai trouvé le code pour déterminer date début date fin qui marche trés bien.
je voudrais si quelqu'un peut nous aider à faire le code entre deux heures différentes heure début heure fin pour connaitre les ventes d'une personne durant des heures.
voila le code.
les champs sont: Datevente, Libellémedicament, Quantité, Prix
Private Sub Cmdliste_Click()
Dim strliste As String
strliste = "Dim strliste As String"
strliste = "SELECT Vente.DateVente, LotStock.LibelleMedicament, ventemed.Quantité, Vente.MontantVente FROM Vente INNER JOIN (LotStock INNER JOIN ventemed ON LotStock.CodeMedicament = ventemed.codemed) ON Vente.NumeroVente = ventemed.numVente"
Adodc1.RecordSource = strliste
Adodc1.Refresh
End Sub
Private Sub CmdOK_Click()
On Error GoTo rech
Dim strQuery As String
strQuery = "SELECT Vente.DateVente, LotStock.LibelleMedicament, ventemed.Quantité, Vente.MontantVente FROM Vente INNER JOIN (LotStock INNER JOIN ventemed ON LotStock.CodeMedicament = ventemed.codemed) ON Vente.NumeroVente = ventemed.numVente where Vente.DateVente between # " & Year(Txtdate1.Text) & "/" & Month(Txtdate1.Text) & "/" & Day(Txtdate1.Text) & " # and # " & Year(Txtdate2.Text) & "/" & Month(Txtdate2.Text) & "/" & Day(Txtdate2.Text) & " # "
Adodc1.RecordSource = strQuery
Adodc1.Refresh
Exit Sub
rech:
MsgBox Err.Description
End Sub