Discussion :

[funkyjul]

Bonjour tout le monde,

Je fais appel à vous pour un problème de filtre sur un formulaire. Je travail sur Access 2003 sp3 avec une base de données SQL Server 2005.

J'aimerais tout simplement appliquer un filtre sur mon form en fonction d'une saisie utilisateur. Je m'explique :

L'utilisateur saisi un code correspondant aux premiers chiffres d'un code article, par exemple 311. L'applic est alors sensée afficher tous les articles dont le code commence par 311.

J'ai donc mis un événement sur "AfterUpdate" du champ de saisie du filtre. Voici le code qui devrait me filtrer mon form:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Filtrer()
    Dim filtre As String
 
    filtre = ""
 
    If tx_filtre_article.Value <> "" Or Not IsNull(tx_filtre_article.Value) Then
        filtre = "prv_afart.art_cod LIKE '" & tx_filtre_article.Value & "%'"
    End If
 
    Me.ServerFilter = filtre
    Me.ServerFilterByForm = True
    Me.Requery
 
End Sub

Or il ne se passe rien du tout, mon formulaire n'est pas filtrer! Par contre, si j'écris : prv_afart.art_cod LIKE '311%' dans la propriété Filtre Serveur du formulaire, oh miracle ce dernier est filtré comme je le souhaite! Je n'y comprends plus rien!!

Alors si une bonne âme pouvait me donner un petit coup de main....

Voili bon appétit à tous

Julius

[antoinev2]

Bonjour,

Je ne connais pas sql server, mais sur une base de données sous Access 2003, il faut écrire, après avoir défini le filtre :

Code :

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

Me.FilterOn = True

En espérant que cette réponse soit utile,

Cdt,

[funkyjul]

... snif non malheureusement rien ne change!!!

Impossible de filtrer ce maudit formulaire.. Heeelp

[Jean-Philippe André]

salut,
en appliquant la proposition de antoinev2, tu peux nous montrer où en est ton code stp ?

[funkyjul]

Hello,

alors voici ce que ça donne :

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
Private Sub Filtrer()
    Dim filtre As String
 
    filtre = ""
 
    If tx_filtre_article.Value <> "" Or Not IsNull(tx_filtre_article.Value) Then
        filtre = "prv_afart.art_cod LIKE '" & tx_filtre_article.Value & "%'"
    End If
    MsgBox filtre
    'Me.ServerFilter = filtre
    'Me.ServerFilterByForm = True
    Me.Filter = filtre
    Me.FilterOn = True
    Me.Refresh
    'Me.Requery
 
End Sub

Avec ce code j'obtiens l'erreur suivante : impossible d'appliquer un filtre sur un ou plusieurs champs spécifiés dans la propriété filtre.

Les lignes en commentaires représente le code tel qu'il était avant que je ne modifie le code.

J'y perds mon français! ça ne devrait tout de même pas être sorcier non?

[funkyjul]

AAAHHH Mais si je peux être bête!!!!! Encore une victime du lundi matin!!

Je m'excuse mais mon erreur était en fait très très stupide!!

Code :

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

filtre = "prv_afart.art_cod LIKE '" & tx_filtre_article.Value & "%'"

Dans cette ligne j'attribue à la variable filtre la condition qui va filter mon formulaire... mais si j'orthographie mal mon champ, je ne vois pas comment le filtre peut fonctionner!!!

En fait mon champ s'appelle

Code :

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

prv_afart_art_cod

et non

Code :

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

prv_afart.art_cod

Je m'excuse donc de vous avoir dérangé pour si peu! Me sens tout de même très hon sur le coup.

Merci quand même et passez une bonne journée

Julius