Bonjour,

Je n'arrive pas à trier par date le résultat de mon filtre (qui lui fonctionne).


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
Merci pour votre aide.

Fred