Dans un formulaire, j'utilise une liste modifiable avec la valeur "(Tous)"
ajoutée en tête de liste par le biais d'une requête union.
Les filtres appliqués sur la liste fonctionnent aussi bien avec un élément
de la liste qu'avec "(Tous)".
Seul problème, comment faire pour qu'un clic sur l'icone "supprimer le
filtre" de la barre d'outil formulaire rafraîchisse la liste en affichant la
valeur "(Tous)" de la liste modifiable.
merci d'avance.
guy
Sub ListeGuy_AfterUpdate()
Dim fil As String
If Me![ListeGuy] = "(Tous)" Then
Me.FilterOn = False
Else
fil = "[Nom] = '" & Me![ListeGuy] & "'"
Me.Filter = fil
Me.FilterOn = True
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"GL" | Dans un formulaire, j'utilise une liste modifiable avec la valeur "(Tous)" | ajoutée en tête de liste par le biais d'une requête union. | Les filtres appliqués sur la liste fonctionnent aussi bien avec un élément | de la liste qu'avec "(Tous)". | Seul problème, comment faire pour qu'un clic sur l'icone "supprimer le | filtre" de la barre d'outil formulaire rafraîchisse la liste en affichant la | valeur "(Tous)" de la liste modifiable. | merci d'avance. | guy | | Sub ListeGuy_AfterUpdate() | Dim fil As String | If Me![ListeGuy] = "(Tous)" Then | Me.FilterOn = False | Else | fil = "[Nom] = '" & Me![ListeGuy] & "'" | Me.Filter = fil | Me.FilterOn = True | End If | End Sub
"GL"
| Dans un formulaire, j'utilise une liste modifiable avec la valeur "(Tous)"
| ajoutée en tête de liste par le biais d'une requête union.
| Les filtres appliqués sur la liste fonctionnent aussi bien avec un élément
| de la liste qu'avec "(Tous)".
| Seul problème, comment faire pour qu'un clic sur l'icone "supprimer le
| filtre" de la barre d'outil formulaire rafraîchisse la liste en affichant la
| valeur "(Tous)" de la liste modifiable.
| merci d'avance.
| guy
|
| Sub ListeGuy_AfterUpdate()
| Dim fil As String
| If Me![ListeGuy] = "(Tous)" Then
| Me.FilterOn = False
| Else
| fil = "[Nom] = '" & Me![ListeGuy] & "'"
| Me.Filter = fil
| Me.FilterOn = True
| End If
| End Sub
"GL" | Dans un formulaire, j'utilise une liste modifiable avec la valeur "(Tous)" | ajoutée en tête de liste par le biais d'une requête union. | Les filtres appliqués sur la liste fonctionnent aussi bien avec un élément | de la liste qu'avec "(Tous)". | Seul problème, comment faire pour qu'un clic sur l'icone "supprimer le | filtre" de la barre d'outil formulaire rafraîchisse la liste en affichant la | valeur "(Tous)" de la liste modifiable. | merci d'avance. | guy | | Sub ListeGuy_AfterUpdate() | Dim fil As String | If Me![ListeGuy] = "(Tous)" Then | Me.FilterOn = False | Else | fil = "[Nom] = '" & Me![ListeGuy] & "'" | Me.Filter = fil | Me.FilterOn = True | End If | End Sub
| Sub ListeGuy_AfterUpdate() | Dim fil As String | If Me![ListeGuy] = "(Tous)" Then | Me.FilterOn = False | Else | fil = "[Nom] = '" & Me![ListeGuy] & "'" | Me.Filter = fil | Me.FilterOn = True | End If | End Sub
Merci pour la réponse mais.. où dois-je placer ces 3 lignes?
A plus
et merci encore
guy
| Sub ListeGuy_AfterUpdate()
| Dim fil As String
| If Me![ListeGuy] = "(Tous)" Then
| Me.FilterOn = False
| Else
| fil = "[Nom] = '" & Me![ListeGuy] & "'"
| Me.Filter = fil
| Me.FilterOn = True
| End If
| End Sub
| Sub ListeGuy_AfterUpdate() | Dim fil As String | If Me![ListeGuy] = "(Tous)" Then | Me.FilterOn = False | Else | fil = "[Nom] = '" & Me![ListeGuy] & "'" | Me.Filter = fil | Me.FilterOn = True | End If | End Sub
Puisque tu crées le filtre par VBA... un bouton ou un autre événement fera l'affaire ;-)
Ca je l'avais déjà fait. On s'est pas compris mais j'ai pas dû bien m'expliquer. Ce que je voudrais, c'est qu'un clic sur l'icone "supprimer le filtre" de la barre d'outil du formulaire (entonnoir grisé) rafraîchisse la liste en affichant la valeur "(Tous)" de la liste modifiable.
A plus et merci encore.
guy
Bonjour et merci encore
Puisque tu crées le filtre par VBA...
un bouton ou un autre événement fera l'affaire ;-)
Ca je l'avais déjà fait. On s'est pas compris mais j'ai pas dû bien
m'expliquer.
Ce que je voudrais, c'est qu'un clic sur l'icone "supprimer le
filtre" de la barre d'outil du formulaire (entonnoir grisé) rafraîchisse la
liste en affichant la
valeur "(Tous)" de la liste modifiable.
Puisque tu crées le filtre par VBA... un bouton ou un autre événement fera l'affaire ;-)
Ca je l'avais déjà fait. On s'est pas compris mais j'ai pas dû bien m'expliquer. Ce que je voudrais, c'est qu'un clic sur l'icone "supprimer le filtre" de la barre d'outil du formulaire (entonnoir grisé) rafraîchisse la liste en affichant la valeur "(Tous)" de la liste modifiable.
A plus et merci encore.
guy
3stone
Salut,
"GL" | > Puisque tu crées le filtre par VBA... | > un bouton ou un autre événement fera l'affaire ;-) | | Ca je l'avais déjà fait. On s'est pas compris mais j'ai pas dû bien | m'expliquer. | Ce que je voudrais, c'est qu'un clic sur l'icone "supprimer le | filtre" de la barre d'outil du formulaire (entonnoir grisé) rafraîchisse la | liste en affichant la | valeur "(Tous)" de la liste modifiable.
Ah oui... en relisant...
Si tu utilises la barre d'outils par défaut, je ne vois directement... mais si tu as créé ta propre barre d'outils, cela peut se faire dans le code qui gère cette barre.
Ceci dit, je ne mélangerai pas les deux... Soit l'utilisateur utilise les méthode offerte par les barre Access, soit tu supprime ces barre et tu présente un formulaire qui permet les filtrages que tu souhaites.
"GL"
| > Puisque tu crées le filtre par VBA...
| > un bouton ou un autre événement fera l'affaire ;-)
|
| Ca je l'avais déjà fait. On s'est pas compris mais j'ai pas dû bien
| m'expliquer.
| Ce que je voudrais, c'est qu'un clic sur l'icone "supprimer le
| filtre" de la barre d'outil du formulaire (entonnoir grisé) rafraîchisse la
| liste en affichant la
| valeur "(Tous)" de la liste modifiable.
Ah oui... en relisant...
Si tu utilises la barre d'outils par défaut, je ne vois directement...
mais si tu as créé ta propre barre d'outils, cela peut se faire dans le
code qui gère cette barre.
Ceci dit, je ne mélangerai pas les deux...
Soit l'utilisateur utilise les méthode offerte par les barre Access,
soit tu supprime ces barre et tu présente un formulaire qui permet
les filtrages que tu souhaites.
Note, pour une barre personnelle, tu peux télécharger un base
exemple chez Raymond:
http://officesystemaccess.seneque.net/toolbar.htm
"GL" | > Puisque tu crées le filtre par VBA... | > un bouton ou un autre événement fera l'affaire ;-) | | Ca je l'avais déjà fait. On s'est pas compris mais j'ai pas dû bien | m'expliquer. | Ce que je voudrais, c'est qu'un clic sur l'icone "supprimer le | filtre" de la barre d'outil du formulaire (entonnoir grisé) rafraîchisse la | liste en affichant la | valeur "(Tous)" de la liste modifiable.
Ah oui... en relisant...
Si tu utilises la barre d'outils par défaut, je ne vois directement... mais si tu as créé ta propre barre d'outils, cela peut se faire dans le code qui gère cette barre.
Ceci dit, je ne mélangerai pas les deux... Soit l'utilisateur utilise les méthode offerte par les barre Access, soit tu supprime ces barre et tu présente un formulaire qui permet les filtrages que tu souhaites.
Ceci dit, je ne mélangerai pas les deux... Soit l'utilisateur utilise les méthode offerte par les barre Access, soit tu supprime ces barre et tu présente un formulaire qui permet les filtrages que tu souhaites.
OK, je vais suivre tes conseils. Merci pour ta réponse
guy
Ceci dit, je ne mélangerai pas les deux...
Soit l'utilisateur utilise les méthode offerte par les barre Access,
soit tu supprime ces barre et tu présente un formulaire qui permet
les filtrages que tu souhaites.
Note, pour une barre personnelle, tu peux télécharger un base
exemple chez Raymond:
http://officesystemaccess.seneque.net/toolbar.htm
OK, je vais suivre tes conseils. Merci pour ta réponse
Ceci dit, je ne mélangerai pas les deux... Soit l'utilisateur utilise les méthode offerte par les barre Access, soit tu supprime ces barre et tu présente un formulaire qui permet les filtrages que tu souhaites.