Discussion :

[theolivier]

Bonjour,

J'ai sur un formulaire, 2 groupes d'options.
Le premier retourne une valeur typedoss et le second etatdoss

ensuite en combinant ces 2 valeurs, un filtre s'applique sur le formulaire.
Tout fonctionne (cf. code plus loin) à l'exception du cas ou sur un des champs je ne souhaite plus de filtre. C'est le cas Case 1. J'ai mis en valeur "*" mais cela ne fonctionne pas.

Que dois-je modifier ?
Merci d'avance.

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
Private Sub opgType_Click()
    Select Case Me.opgType.Value
        Case 1
            typedoss = "*"
        Case 2
            typedoss = "C"
        Case 3
            typedoss = "MIGE"
        Case 4
            typedoss = "GEI"
    End Select
End Sub
 
Private Sub opgEtat_Click()
    Select Case Me.opgEtat.Value
        Case 1
            etatdoss = "Stock' Or [Tbl_CARACDOSSIERS.EtatDossier]='En cours' Or [Tbl_CARACDOSSIERS.EtatDossier]='Waiver/Avenant')"
        Case 2
            etatdoss = "En cours' Or [Tbl_CARACDOSSIERS.EtatDossier]='Waiver/Avenant')"
    End Select
End Sub
 
Private Sub Commande195_Click()
  Dim strFiltre As String
  Me.FilterOn = False
  strFiltre = "[Typedossier]='" & typedoss & "'" & " AND ([Tbl_CARACDOSSIERS.EtatDossier]='" & etatdoss
  Me.Filter = strFiltre
  Me.FilterOn = True
End Sub

[madefemere]

Bonjour,

C'est un cas où j'ai perdu beaucoup de temps à une certaine période. Mais là, ça devrait être plus simple, vu que le premier groupe d'option met à jour un champ.
Je modifierai le code par :

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
 
Private Sub opgType_Click()
    Select Case Me.opgType.Value
        Case 1
            typedoss = "TOUS"
        Case 2
            typedoss = "C"
        Case 3
            typedoss = "MIGE"
        Case 4
            typedoss = "GEI"
    End Select
End Sub
 
Private Sub opgEtat_Click()
    Select Case Me.opgEtat.Value
        Case 1
            etatdoss = "Stock' Or [Tbl_CARACDOSSIERS.EtatDossier]='En cours' Or [Tbl_CARACDOSSIERS.EtatDossier]='Waiver/Avenant')"
        Case 2
            etatdoss = "En cours' Or [Tbl_CARACDOSSIERS.EtatDossier]='Waiver/Avenant')"
    End Select
End Sub
 
Private Sub Commande195_Click()
  Dim strFiltre As String
  Me.FilterOn = False
     IF typedoss = "TOUS" THEN
         strFiltre ="[Tbl_CARACDOSSIERS.EtatDossier]='" & etatdoss
     ELSE
         strFiltre = "[Typedossier]='" & typedoss & "'" & " AND ([Tbl_CARACDOSSIERS.EtatDossier]='" & etatdoss
     END IF
  Me.Filter = strFiltre
  Me.FilterOn = True
End Sub

Cordialement,

[theolivier]

Merci pour ce retour rapide.
J'y ai passé du temps et votre méthode fonctionne parfaitement.

Par ailleurs, comment puis-je indiquer un tri par catégorie ou ordre aplha. sur le champ [Tbl_CARACDOSSIERS.EtatDossier]?

Code :

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

strFiltre = "[Typedossier]='" & typedoss & "'" & " AND ([Tbl_CARACDOSSIERS.EtatDossier]='" & etatdoss

[madefemere]

Bonsoir,

Un tri dans l'ordre croissant sur un champ "LeNomduChamp" dans un formulaire se fait avec les propriétés "OrderBy" et "OrderByOn" .

Code :

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

1
2
Me.LeFormulaire.OrderBy = "LeNomduChamp"
Me.LeFormulaire.OrderByOn = True

Dans l'ordre décroissant, ce sera :

Code :

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

1
2
Me.LeFormulaire.OrderBy = "LeNomduChamp DESC"
Me.LeFormulaire.OrderByOn = True

Cordialement,