Discussion :

[flagfight]

Bonjour,

J'ai réalisé un filtre sur 3 critères, celui-ci marche tres bien dans un autre formulaire.
Je ne comprend pas pourquoi je n'y arrive pas sur mon formulaire actuel. J'utilise 3 listes déroulantes pour choisir mes critères de filtres et sur clik d'un bouton, je lance une procédure :

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
f = ""
If Not IsNull(Me.criterenumchant) And Me.criterenumchant <> "" Then
    f = "numchant = " & Me.criterenumchant & ""
End If
If Not IsNull(Me.criterean) And Me.criterean <> "" Then
    If f <> "" Then
        f = f & " AND an = " & Me.criterean & ""
    Else
        f = "an = " & Me.criterean & ""
    End If
End If
If Not IsNull(Me.criteremontant) And Me.criteremontant <> "" Then
    If f <> "" Then
        f = f & " AND montant ht = " & Me.criteremontant & ""
    Else
        f = "montant ht = " & Me.criteremontant & ""
    End If
End If
Me.Filter = f
Me.FilterOn = True

Sachant que ce code marche tres bien sans le "criteremontant", je pense que ça vient de la, mais je ne comprend pas... Le mode débogage souligne la ligne Me.Flter = f

(vous aurez compris que je ne suis pas un pro du vb donc je bidouille

Si vous avez des solutions merci !

[pgz]

Bonjour,

Je te signale ce que j'ai vu

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
f = ""
If Not IsNull(Me.criterenumchant) And Me.criterenumchant <> "" Then
    f = "numchant = " & Me.criterenumchant & ""
End If
If Not IsNull(Me.criterean) And Me.criterean <> "" Then
    If f <> "" Then
        f = f & " AND an = " & Me.criterean & ""
    Else
        f = "and = " & Me.criterean & ""
    End If
End If
If Not IsNull(Me.criteremontant) And Me.criteremontant <> "" Then
    If f <> "" Then
        f = f & " AND [montant ht] = " & Me.criteremontant & ""
    Else
        f = "[montant ht] = " & Me.criteremontant & ""
    End If
End If
Me.Filter = f
Me.FilterOn = True

On ne peut pas savoir comme cela, mais si ton critère 'criterean' n'est pa un nombre, il manque des séparateurs...

Bon coourage,

pgz

[boubignole]

Salut
comme pgz je crois que le pb viens des crochets mais pas du

Code :

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

f = "an = " & Me.criterean & ""

qui a l'air bon

par contre si tu fais un debug.print de f tu verras peut etre qu'il manque des espaces entre criterean et criteremontant

[flagfight]

Yep !

Super merci pour votre aide
Ici an c'est le nom d'une de mes étiquettes.
En fait le PB venait des crochets, vu qu'il y a un espace dans le nom de mon étiquette il sont en effet nécessaires, ça m'apprendra a pas utiliser l'underscore !!