Discussion :

[saadoun]

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 :

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
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