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
Partager