Bonjour,
Je n'arrive pas à trier par date le résultat de mon filtre (qui lui fonctionne).
Merci pour votre aide.
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 Private Sub BoutonRechercher_Click() Dim strFiltre As String Dim strTri As String Dim suivi As Integer On Error Resume Next strFiltre = "" strTri = [DATE_JOUR].OrderBy 'Filtre sur les noms If Me.FiltreParNom <> "" Then strFiltre = "([NOM__PR_NO]like'*" & Me.FiltreParNom & "*')" suivi = 1 End If 'Filtre sur les dates If Me.FiltreParDateJour <> "" Then If suivi = 1 Then strFiltre = strFiltre & " AND " & "([DATE_JOUR]>=#" & Format(Me.FiltreParDateJour, "mm dd yy") & "#)" Else: strFiltre = "([DATE_JOUR]>=#" & Format(Me.FiltreParDateJour, "mm dd yy") & "#)" End If suivi = 1 End If 'Filtrer le sous-formulaire With Me.frmSaisieContrat.Form .Filter = strFiltre .FilterOn = True End With 'Trier le sous formulaire par date With Me.frmSaisieContrat.Form .OrderByOn = strTri .OrderByOn = True End With End Sub
Fred
Partager