Discussion :

[varik]

Bonjour tout le monde

j'ai un soucis avec un constructeur de requête , la ligne de code est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL = "SELECT  ID_CLIENT,NOM_CLIENT ,CODE_ARTICLE, FAMILLE_PRODUIT, SECTEUR_ACTIVITE, MONTANT, QUANTITE_LIVREE, DATE_FACTURATION FROM T_VENTES Where DATE_FACTURATION Between '" & Me.txtDateD.Value & "'  AND '" & Me.txtDateF.Value & "'  "

la ligne qui provoque erreur est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lblStats.Caption = DCount("*", "T_VENTES", SQLWhere) & " / " & DCount("*", "T_VENTES")

je ne vois pa comment remedier à cela car cela fait un moment que j'essaie de trouver une solution mais san résultat .

merci

[robyseb]

bonjour j'essais de comprendre ... ta requête est-elle associé à ton Dcount ? puisque elle se nomme Sql et tu indique SqlWhere dans ton Dcount

[varik]

Bonjour



je tiens à préciser que je suis sur un formulaire access !!

je poste le code du constructeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
Private Sub RefreshQuery()
 
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT ID_CLIENT, NOM_CLIENT ,CODE_ARTICLE, FAMILLE_PRODUIT, SECTEUR_ACTIVITE,MONTANT,QUANTITE_LIVREE,DATE_FACTURATION  FROM T_VENTES Where ID_CLIENT  <> '' "
 
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

le soucis est que j'ai une erreur quand je modifie le sql pour qu'il prenne deux dates saisie dans deux champs texte avec la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL = "SELECT  ID_CLIENT,NOM_CLIENT ,CODE_ARTICLE, FAMILLE_PRODUIT, SECTEUR_ACTIVITE, MONTANT, QUANTITE_LIVREE, DATE_FACTURATION FROM T_VENTES Where DATE_FACTURATION Between '" & Me.txtDateD.Value & "'  AND '" & Me.txtDateF.Value & "'  "

j'espére que j'ai été clair !!

[User]

Salut,

Essaie déjà ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL = "SELECT  ID_CLIENT,NOM_CLIENT ,CODE_ARTICLE, FAMILLE_PRODUIT, SECTEUR_ACTIVITE, MONTANT, QUANTITE_LIVREE, DATE_FACTURATION FROM T_VENTES Where DATE_FACTURATION Between #" & Format(Me.txtDateD.Value,"mm/dd/yyyy") & "# AND #" & Format(Me.txtDateF.Value,"mm/dd/yyyy") & "# "

Il s'agit du format date Us compris par le langage SQL d'Access.

A+

[varik]

merci

j'ai creusé de mon coté et j'étais sur cette ligne la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Between  #" & DatePart("yyyy", Me.txtDateD) & "/" & DatePart("m", Me.txtDateD) & "/" & DatePart("d", Me.txtDateD) & "# And  #" & DatePart("yyyy", Me.txtDateF) & "/" & DatePart("m", Me.txtDateF) & "/" & DatePart("d", Me.txtDateF) & "#  "

mais je vois que votre code résume cette partie et je vous en suis trés reconnaissant.

ça marche !!
merci beaucoup