1 pièce(s) jointe(s)
Probleme Code source & Recherche Par des options dates et list view
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 |