Discussion :

[Vijinn]

Bonjour à tous.

Je cherche, par du VBA, à supprimer un filtre.
Quand je dis supprimer, je veux dire que lorsqu'on regarde la feuille de propriétés du formulaire en mode création, la propriété "Filtre" est vide.
Bref, je veux qu'il "oublie" totalement le dernier filtre utilisé, qu'il ne soit plus enregistré.

J'ai essayé "Me.Filter = Null", il me met "Utilisation incorrecte de Null"
J'ai essayé "Me.Filter = Empty", il conserve quand même en mémoire l'ancien filtre.
J'ai essayé "Me.Filter = """, il conserve quand même en mémoire l'ancien filtre.
Le tout, bien sûr, agrémenté d'un "Me.FilterOn = False" ou "True" qui ne change rien au problème.

Quelqu'un a-t-il la solution ?

[marot_r]

Bonjour.

Voici ce que j'utilise.

Code :

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

1
2
3
4
5
Public Sub SupprimerFiltre(prmFormulaire As Form)
    'Supprime le filtre
    prmFormulaire.Filter = ""
    prmFormulaire.FilterOn = False
End Sub

au moment de la fermeture.

J'ai aussi désactivé le mode page du formulaire ce qui empêche l'utilisateur de modifier la structure du formulaire.

Enfin, je soupçonne que tes filtres restent incrustés là parce qu'ils sont là en mode design.

Voici le code que j'utilise pour changer les propriétés de mes formulaire en rafale.

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
 
Private Sub InterdireModePage()
    'Neutralise le "Mode page" de tous les formulaires
    ' Empêche l'utilisateur de faire des changements au formulaires en cours d'utilisation
 
    Dim f As Form
    Dim ao As AccessObject
 
    For Each ao In CurrentProject.AllForms
        Debug.Print ao.Name: DoEvents
        Call DoCmd.OpenForm(ao.Name, acDesign)
        Set f = Forms(ao.Name)
        f.AllowLayoutView = False
        Call DoCmd.Close(acForm, ao.Name, acSaveYes)
    Next ao
 
    Set ao = Nothing
    Set f = Nothing
 
    MsgBox "Fini !"
 
End Sub

[Vijinn]

Merci de ces précisions.

Le code prmFormulaire.Filter = "" ne semble pas supprimer vraiment le filtre. En effet, si on le lance puis qu'après on regarde le formulaire en mode création, il y a toujours le dernier filtre utilisé dans la propriété "Filtre". Alors que si on supprime à la main ce filtre dans la feuille de propriétés, il est vraiment effacé définitivement. C'est ça que je voudrais faire en VBA.

Mais bon, j'ai réussi à contourner mon problème par un autre moyen, alors si vous trouvez une solution, ce sera seulement pour la gloire

Je laisse ce fil quelques jours puis je le mettrai en résolu s'il n'y a pas de nouveauté.

P.S. Je ne vois pas de différence dans mes formulaires entre le mode Page autorisé ou non. Ça change quoi ?

[marot_r]

Bizarre.

Le mode page permet à l'utilisateur de modifier la structure du formulaire sans passer par le mode design.

A+

[Jeehene]

Bonjour à tous.

Je cherche, par du VBA, à supprimer un filtre.
Quand je dis supprimer, je veux dire que lorsqu'on regarde la feuille de propriétés du formulaire en mode création, la propriété "Filtre" est vide.
Bref, je veux qu'il "oublie" totalement le dernier filtre utilisé, qu'il ne soit plus enregistré.

J'ai essayé "Me.Filter = Null", il me met "Utilisation incorrecte de Null"
J'ai essayé "Me.Filter = Empty", il conserve quand même en mémoire l'ancien filtre.
J'ai essayé "Me.Filter = """, il conserve quand même en mémoire l'ancien filtre.
Le tout, bien sûr, agrémenté d'un "Me.FilterOn = False" ou "True" qui ne change rien au problème.

Quelqu'un a-t-il la solution ?

Bonjour,
Essayez dans cet ordre (et non l'inverse) :

Code :

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

1
2
Me.FilterOn = False
Me.Filter = ""

Cordialement.

[planetesud]

Bonjour,
Vous avez noté cette discussion comme "résolu". Je suis intéressée par votre solution, je suis dans la même problématique et j'arrive pas à m'en sortir.

Merci pour votre aide

J'ai essayé "Me.Filter = Null", il me met "Utilisation incorrecte de Null"
J'ai essayé "Me.Filter = Empty", il conserve quand même en mémoire l'ancien filtre.
J'ai essayé "Me.Filter = """, il conserve quand même en mémoire l'ancien filtre.
Le tout, bien sûr, agrémenté d'un "Me.FilterOn = False" ou "True" qui ne change rien au problème.

[deedolith]

Ce n'est pas résolu, c'est abandonné.

Ce que veut l'OP: altération d'une propriété du formulaire à l'exécution qui reste visible en mode création, n'est réalisable qu'à condition de fermer le fourmulaire, l'ouvrir en mode création, altérer la ou les propriétés visées, le sauvegarder / fermer ce dernier, et le réouvrir en mode exécution.

Ce n'est pas casse-gueule, c'est suicidaire.
A ne pas faire.

[planetesud]

D'accord merci pour cette réponse.

Donc aucun moyen de vider un champ sans fermer et rouvrir le formulaire ?

Je ne parle pas en mode création. Mais j'ai un champ textbox de recherche et je n'arrive pas à le vider complètement.

[marot_r]

Bonjour.

Pas sur de ton problème mais tu peux peut-être essayer quelque chose comme :

Code :

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

me.ChampText=""

A+

[planetesud]

Bonjour,

Merci pour votre aide, c'est vrai que mon explication n'est pas claire parce que tout était dit là.....

'ai essayé "Me.Filter = Null", il me met "Utilisation incorrecte de Null"
J'ai essayé "Me.Filter = Empty", il conserve quand même en mémoire l'ancien filtre.
J'ai essayé "Me.Filter = """, il conserve quand même en mémoire l'ancien filtre.

J'ai un champ TextBox de recherche, et quand je veux réinitialiser ce champ ma listBox attachée ne se met pas à jour, à moins de supprimer le texte.

J'ai contourné le problème d'une façon peut-être pas très catholique mais j'obtiens le résultat que je souhaite.

Code :

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

1
2
3
4
Me.mots_cles.SetFocus
Me.mots_cles.SelStart = 0
Me.mots_cles.SelLength = Len(mots_cles.Text)
DoCmd.RunCommand acCmdDelete

Je vous souhaite une bonne soirée

[hyperion13]

Salut
Pour info la propriété .FilterOn n'a rien à voir avec la problématique.
Dans le cas soulevé, il s'agit de libérer la sélection d'une listbox filtrée par une textbox. Les objets sont dans un form.
La solution de micniv, que je salue, ici fait le job. Si vous saisissez des valeurs dans la textbox mots-cles,la listbox vous présente un résultat et si vous videz ladite textbox la listbox affiche toutes les valeurs !
Sinon créer un btnCommande

Code :

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

1
2
3
4
5
6
Private Sub Commande39_Click()
Dim strRowSource As String
Me.mots_cles = ""
strRowSource = "Select [produit_ref],[produit_nom] from Produits"
Liste1.RowSource = strRowSource
End Sub

[Jeehene]

Bonjour,
Vous avez noté cette discussion comme "résolu". Je suis intéressée par votre solution, je suis dans la même problématique et j'arrive pas à m'en sortir.

Merci pour votre aide

Bonjour,
J'ai donné ma solution dans mon message, j'ai mis dans mon code les 2 lignes suivantes (les mettre dans cet ordre) :

Me.FilterOn = False
Me.Filter = ""

Cordialement.

[planetesud]

Salut
Pour info la propriété .FilterOn n'a rien à voir avec la problématique.
Dans le cas soulevé, il s'agit de libérer la sélection d'une listbox filtrée par une textbox. Les objets sont dans un form.
La solution de micniv, que je salue, ici fait le job. Si vous saisissez des valeurs dans la textbox mots-cles,la listbox vous présente un résultat et si vous videz ladite textbox la listbox affiche toutes les valeurs !
Sinon créer un btnCommande

Code :

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

1
2
3
4
5
6
Private Sub Commande39_Click()
Dim strRowSource As String
Me.mots_cles = ""
strRowSource = "Select [produit_ref],[produit_nom] from Produits"
Liste1.RowSource = strRowSource
End Sub

Bonjour et merci beaucoup. C’est le bouton que je voulais c’est super... merci encore à micniv
Bonne journée