Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
Dim DateD, DateF As Date
Me.txtDateD.Value = DateD
Me.txtDateF.Value = DateF
SQL = "SELECT ID_CLIENT, NOM_CLIENT ,CODE_ARTICLE, FAMILLE_PRODUIT, SECTEUR_ACTIVITE,MONTANT,QUANTITE_LIVREE,DATE_FACTURATION FROM T_VENTES Where ((T_VENTES!DATE_FACTURATION) Between [02/06/2009] And [02/09/2010])"
If Not Me.chkCode Then
SQL = SQL & "And T_VENTES!ID_CLIENT like '*" & Me.cmbRechCode & "*' "
End If
If Not Me.chkNom Then
SQL = SQL & "And T_VENTES!NOM_CLIENT like '*" & Me.cmbRechNom & "*' "
End If
If Not Me.chkArticle Then
SQL = SQL & "And T_VENTES!CODE_ARTICLE = '*" & Me.cmbRechArticle & "*' "
End If
If Not Me.chkFamille Then
SQL = SQL & "And T_VENTES!FAMILLE_PRODUIT = '*" & Me.cmbRechFamille & "*' "
End If
If Not Me.chkActivite Then
SQL = SQL & "And T_VENTES!SECTEUR_ACTIVITE = '*" & Me.cmbRechActivite & "*' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Debug.Print SQL
Me.lblStats.Caption = DCount("*", "T_VENTES", SQLWhere) & " / " & DCount("*", "T_VENTES")
Me.lblSqte.Caption = DSum("QUANTITE_LIVREE", "T_VENTES", SQLWhere)
Me.lblSmontant.Caption = DSum("MONTANT", "T_VENTES", SQLWhere)
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub