Discussion :

[fredpeca]

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

[Dolphy35]

Salut,

Concernant le renseignement du Champs je verrais plutot comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strTri = "DATE_JOUR"

Pourquoi passe tu par une variable StrTri ?

Tu peux mettre directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Trier le sous formulaire par date
With Me.frmSaisieContrat.Form
    .OrderByOn = "DATE_JOUR"
    .OrderByOn = True
End With

Dolphy

[fredpeca]

Parce que je savais pas faire autrement. C'est bien plus simple ainsi.

Merci beaucoup pour l'info.

A+

Fred

[=JBO=]

Bonsoir.

Attention, il y a une petite erreur.
Il faut utiliser OrderBy et OrderByOn.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Trier le sous formulaire par date
With Me.frmSaisieContrat.Form
    .OrderBy = "DATE_JOUR"
    .OrderByOn = True
End With

[Dolphy35]

bsr ==JBO=,

Bonsoir.

Attention, il y a une petite erreur.
Il faut utiliser OrderBy et OrderByOn.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Trier le sous formulaire par date
With Me.frmSaisieContrat.Form
    .OrderBy = "DATE_JOUR"
    .OrderByOn = True
End With

je n'avais pas vu l'erreur.

Dolphy

[fredpeca]

Merci à vous deux.

C'est vrai que j'avais du mal mais avec la correction d'erreur ça va mieux.

A+

Fred