Probleme Code source & Recherche Par des options dates et list view

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
encore une autre fois et suite de la dernière problème (dernière discussion) qui j'ai,
je veux chercher les données et l'afficher dans la list selon le choix de date.
une image ci_joint relative à mon formulaire.

Merci d'avance

Voici le code qui j’essaye de faire:

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
'Filtrer
 
 
Private Sub Filtrer_Selection_Click()
Call GroupeDate_AfterUpdate
 Dim SQL As String
 
 'Filtre [Jour]-----
 If (Me.DTPicker_Day.Value = True) Then
    SQL = SQL & "And
[Liste_Produit]!Date_Releve=#" & Format(DTPicker_Day.Value, "MM/dd/yyyy") & "# " & "Order by [Date_Releve] DESC;"
 
 'Filtre [Mois]-----
 ElseIf (Me.DTPicker_Month.Value = True) Then
    SQL = SQL & "And
[Liste_Produit]!Date_Releve=#" & Format(DTPicker_Month.Value, "MMMM yyyy") & "# " & "Order by [Date_Releve] DESC ;"
 
 
'Filtre [Année]-----
 
 ElseIf Me.DTPicker_year.Value = True Then
    SQL = SQL & "And
[Liste_Produit]!Date_Releve=#" & Format(DTPicker_year.Value, "yyyy") & "# " & "Order by [Date_Releve] DESC ;"
 
 
  'Filtre [user]---------
 
  ElseIf Me.DTPicker_user11.Value < Me.DTPicker_user12 Then
  SQL = SQL & "And
[Liste_Produit]!Date_Releve between #" & Format(DTPicker_user11.Value, "MM/dd/yyyy") & "# and #" & Format(DTPicker_user12.Value, "MM/dd/yyyy") & "# " & "Order by [Date_Releve] DESC ;"
 
 ElseIf Me.DTPicker_user11.Value > Me.DTPicker_user12 Then
 SQL = SQL & "And
[Liste_Produit]!Date_Releve between #" & Format(DTPicker_user12.Value, "MM/dd/yyyy") & "# and #" & Format(DTPicker_user11.Value, "MM/dd/yyyy") & "# " & "Order by [Date_Releve] DESC ;"
 
 
Me.lstProduit.RowSource = SQL
Me.lstProduit.Requery
End If
End Sub
 
'Liste des options
Private Sub GroupeDate_AfterUpdate()
Select Case GroupeDate
       Case 1
                Me.DTPicker_Day.Visible = True
                Me.DTPicker_Month.Visible = False
                Me.DTPicker_year.Visible = False
                Me.DTPicker_user11.Visible = False
                'Me.DTPicker_user12.Visible = False
 
 
       Case 2
                Me.DTPicker_Day.Visible = False
                Me.DTPicker_Month.Visible = True
                Me.DTPicker_year.Visible = False
                Me.DTPicker_user11.Visible = False
               ' Me.DTPicker_user12.Visible = False
       Case 3
                Me.DTPicker_Day.Visible = False
                Me.DTPicker_Month.Visible = False
                Me.DTPicker_year.Visible = True
                Me.DTPicker_user11.Visible = False
               ' Me.DTPicker_user12.Visible = False
       Case 4
                Me.DTPicker_Day.Visible = False
                Me.DTPicker_Month.Visible = False
                Me.DTPicker_year.Visible = False
                Me.DTPicker_user11.Visible = True
 
                'And Me.DTPicker_user12.Visible = True
 
End Select
End Sub

Bonjour,

Voila comment j'écrirai la sub Filtrer_Selection_Click :

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Sub Filtrer_Selection_Click()
Dim SQL As String
Dim dtDateMin As Date, dtDateMax as Date
 
Call GroupeDate_AfterUpdate
 
' **** ici il faut initialiser SQL ****
SQL = "SELECT ... FROM 
[Liste_Produit] WHERE (1=1) "
 
'Filtre [Jour]-----
If (Me.DTPicker_Day.Value = True) Then
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve]=#" & Format(DTPicker_Day.Value, "mm/dd/yyyy") & "#"
 
'Filtre [Mois]-----
ElseIf (Me.DTPicker_Month.Value = True) Then
   dtDateMin = DateSerial(Year(DTPicker_Month.Value), Month(DTPicker_Month.Value), 1)
   dtDateMax = DateAdd("m", 1, dtDateMin) - 1
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                  " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
'Filtre [Année]-----
ElseIf Me.DTPicker_year.Value = True Then
   dtDateMin = DateSerial(Year(Me.DTPicker_year.Value), 1, 1)
   dtDateMax = DateSerial(Year(Me.DTPicker_year.Value), 12, 31)
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                  " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
'Filtre [user]---------
ElseIf Me.DTPicker_user11.Value < Me.DTPicker_user12 Then
   dtDateMin = Me.DTPicker_user11.Value
   dtDateMax = Me.DTPicker_user12.Value
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                  " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
'Filtre [user]---------
ElseIf Me.DTPicker_user11.Value > Me.DTPicker_user12 Then
   dtDateMin = Me.DTPicker_user12.Value
   dtDateMax = Me.DTPicker_user11.Value
   SQL = SQL & "And [Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                  " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
End If
 
' Ajout clause ORDER BY
SQL = SQL & " Order by [Date_Releve] DESC;"
 
Me.lstProduit.RowSource = SQL
Me.lstProduit.Requery
End Sub

Le problème majeur que j'ai relevé c'est quel SQL n'est pas initialié.
Ça correspond à ces lignes que j'ai ajouté :

Code:

1
2
3
' **** ici il faut initialiser SQL ****
SQL = "SELECT ... FROM 
[Liste_Produit] WHERE (1=1) "

Il faut que tu mettes le SQL de ta requête (SELECT Champ1, Champ2[, ...] FROM NomTable WHERE (une condition toujours vraie))

A+

rebonjour,

Merci pour votre intéressement.

J'ai essayé d'initialisé SQL comme ça:
Code:

1 2 SQL = "SELECT [Liste_Produit].[Date_Releve], [Liste_Produit].[Num_produit_Frais], [Liste_Produit].[Designation_ar], [Liste_Produit].[Nom_Type_Produit_ar], [Liste_Produit].[APPORT], [Liste_Produit].[Prix_Min], [Liste_Produit].[Prix_Fréq], [Liste_Produit].[Prix_Max] FROM Liste_Produit ORDER BY [Date_Releve] DESC; "
le problème que j'ai pas compri les deux date qui vous avez déclarer !!!!

Code:

Dim dtDateMin As Date, dtDateMax as Date

les problèmes après correction:

1: la liste n'ai pas filtrée et lorsque je click sur le bouton Filtrer après le choix d'option les données de la liste disparu
2: lors de la deuxième choix d'option il m'affiche tous les contrôles dates en cet format malgré qui j'ai initialisé tous ces contrôle:

Code:

"mm/dd/yyyy"

Pour le SQL ça ne va pas.
Il faut un WHERE et il ne faut pas de ORDER BY.
Code:

1 2 3 4 SQL = "SELECT [Liste_Produit].[Date_Releve], [Liste_Produit].[Num_produit_Frais], [Liste_Produit].[Designation_ar], [Liste_Produit].[Nom_Type_Produit_ar], [Liste_Produit].[APPORT], [Liste_Produit].[Prix_Min], [Liste_Produit].[Prix_Fréq], [Liste_Produit].[Prix_Max]" SQL = SQL & " FROM Liste_Produit" SQL = SQL & " WHERE (([Liste_Produit].[Num_produit_Frais]) Is Not Null) "
Remarque : j'ai décomposé en trois lignes pour plus de lisibilité.
1er ligne = ligne pour SELECT
2e ligne = ligne pour FROM
3e ligne = ligne pour WHERE

Quand la liste est vide ça peut vouloir dire au moins deux choses:

Aucun enregistrement ne correspond au critères du WHERE
ou
Le SQL est incorrect

A+

01/03/2013, 18h22
saadoun

1 pièce(s) jointe(s)

ci_joint la base de données.

le problème encore il es là :(
lorsque je click sur l'option par exemple "JOUR" et je précise le jour au contrôle date et je click sur filtrer il m'affiche la liste comme il es dés le debut :(

merci de m'aider pour.

J'ai trouvé que ça venait de la séquence If .. Then .. ElseIf ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Filtre [Jour]-----
If (Me.DTPicker_Day.Value = True) Then
 
'Filtre [Mois]-----
ElseIf (Me.DTPicker_Month.Value = True) Then
 
'Filtre [Année]-----
ElseIf Me.DTPicker_year.Value = True Then
 
'Filtre [user]---------
ElseIf Me.DTPicker_user11.Value < Me.DTPicker_user12 Then
 
'Filtre [user]---------
ElseIf Me.DTPicker_user11.Value > Me.DTPicker_user12 Then
 
End If

On ne peut jamais tomber dans les trois premiers cas.

En replaçant par ce qui suit ça fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Filtre [Jour]-----
If (Me.GroupeDate = Me.DTPicker_Day1.OptionValue) Then
 
'Filtre [Mois]-----
ElseIf (Me.GroupeDate = Me.DTPicker_Month1.OptionValue) Then
 
'Filtre [Année]-----
ElseIf (Me.GroupeDate = Me.DTPicker_year1.OptionValue) Then
 
'Filtre [user]---------
ElseIf Me.DTPicker_user11.Value < Me.DTPicker_user12.Value Then
 
'Filtre [user]---------
 ElseIf Me.DTPicker_user11.Value > Me.DTPicker_user12.Value Then
 
End If

Code complet de Sub Filtrer_Selection_Click() :

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Filtrer_Selection_Click()
Dim SQL As String
Dim dtDateMin As Date, dtDateMax As Date
 
Call GroupeDate_AfterUpdate
 
' **** ici il faut initialiser SQL ****
 
 SQL = "SELECT 
[Liste_Produit].[Date_Releve],[Liste_Produit].[Num_produit_Frais],[Liste_Produit].[Designation_ar],[Liste_Produit].[Nom_Type_Produit_ar],[Liste_Produit].[APPORT],[Liste_Produit].[Prix_Min],[Liste_Produit].[Prix_Fréq],[Liste_Produit].[Prix_Max] FROM 
[Liste_Produit] WHERE (([Liste_Produit].[Num_produit_Frais]) Is Not Null) "
 
'Filtre [Jour]-----
If (Me.GroupeDate = Me.DTPicker_Day1.OptionValue) Then
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve]=#" & Format(DTPicker_Day.Value, "mm/dd/yyyy") & "#"
 
'Filtre [Mois]-----
ElseIf (Me.GroupeDate = Me.DTPicker_Month1.OptionValue) Then
   dtDateMin = DateSerial(Year(DTPicker_Month.Value), Month(DTPicker_Month.Value), 1)
   dtDateMax = DateAdd("m", 1, dtDateMin) - 1
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                    " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
'Filtre [Année]-----
ElseIf (Me.GroupeDate = Me.DTPicker_year1.OptionValue) Then
   dtDateMin = DateSerial(Year(Me.DTPicker_year.Value), 1, 1)
   dtDateMax = DateSerial(Year(Me.DTPicker_year.Value), 12, 31)
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                    " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
'Filtre [user]---------
ElseIf Me.DTPicker_user11.Value < Me.DTPicker_user12.Value Then
   dtDateMin = Me.DTPicker_user11.Value
   dtDateMax = Me.DTPicker_user12.Value
   SQL = SQL & " And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                    " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
'Filtre [user]---------
 ElseIf Me.DTPicker_user11.Value > Me.DTPicker_user12.Value Then
   dtDateMin = Me.DTPicker_user12.Value
   dtDateMax = Me.DTPicker_user11.Value
   SQL = SQL & "And 
[Liste_Produit].[Date_Releve] between #" & Format(dtDateMin, "mm/dd/yyyy") & "#" & _
                                                    " And #" & Format(dtDateMax, "mm/dd/yyyy") & "#"
 
End If
 
' Ajout clause ORDER BY
SQL = SQL & " Order by [Date_Releve] DESC;"
 
Me.lstProduit.RowSource = SQL
Me.lstProduit.Requery
End Sub

01/03/2013, 23h27
saadoun

Grand merci pour vous!

:merci:

:resolu:
02/03/2013, 00h06
saadoun

j'ai pas remarqué que après le filtrage il triple les enregistrement!!!
Merci

Bonsoir,

Les doublons que je vois viennent de la table SAISIE.
Un même produit a été saisi à plusieurs dates.

Par exemple si on prend le produit numéro 135.
Sans filtrage on a:

Code:

1
2
3
4
5
6
 
Date_Releve Num_produit_Frais Designation_ar Nom_Type_Produit_ar APPORT	Prix_Min Prix_Fréq Prix_Max
----------- ----------------- -------------- ------------------- ------ -------- --------- --------
18/02/2013  135               xxxxx          xxxxx               1600	500      500       500
14/02/2013  135               xxxxx          xxxxx               900	500      500       500
19/02/2013  135               xxxxx          xxxxx               1700	600      600       600

Ce n'est donc pas le filtrage qui multiplie les enregistrements.
C'est la requête Liste_Produit.

Si on reste sur cet exemple, que voudrai-tu que ça affiche ?

A+

Bonjour,

si on reste sur cet exemple je veux afficher selon le choix date les données correspondants.
par exemple:
si je choisi le jour 18/02/2013 il m'affiche la ligne sa:

Code:

1
2
3
Date_Releve Num_produit_Frais Designation_ar Nom_Type_Produit_ar APPORT	Prix_Min Prix_Fréq Prix_Max
----------- ----------------- -------------- ------------------- ------ -------- --------- --------
18/02/2013  135               xxxxx          xxxxx               1600	500      500       500

si je choisi le jour 14/02/2013 IL m'affiche la ligne suivante:

Code:

1
2
3
Date_Releve Num_produit_Frais Designation_ar Nom_Type_Produit_ar APPORT	Prix_Min Prix_Fréq Prix_Max
----------- ----------------- -------------- ------------------- ------ -------- --------- --------
14/02/2013  135               xxxxx          xxxxx               900	500      500       500

Donc tous est relié au choix de date que ce soit jour, mois, année ou par intervalle date

02/03/2013, 19h03
LedZeppII

Bonjour,

Si il n'y a plus de problème de filtrage par date, merci de cliquer sur le bouton [Résolu] pour clore cette discussion.
(Voir ici (section 4.12) si besoin)

Cordialement.
04/03/2013, 11h52
saadoun

Merci