erreur syntaxe between dans constructeur requete

  • Initiateur de la discussion Initiateur de la discussion varik
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

varik

XLDnaute Nouveau
Bonjour tout le monde

j'ai un petit soucis avec un constructeur de requete je pense , mais c'est pas sur !!

j''essaie de construire une requete qui récupére des champs date dans zone texte dans mon formulaire afin de créer une liste de résultat que j'affiche ensuite.

quand je fais un test avec des dates et sans variables cela me donne une erreur de syntaxe.

je vous remercie d'avance car j'ai fait pas mal de recherche mais je ne trouve pas des postes similaires ou autres infos qui puisse m'aider à avancer 🙁


Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour