Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Problème de filtre.

Problème de filtre.

7 réponses
Avatar
Quaisako
Bonsoir le Forum,

Les 2 filtres ci-dessous fonctionnent parfaitement.
Mais.........
Le second filtre, trie tous les enregistrements "Féminins" ou "Masculins" de
la table "Licenciés". OK.
Comment faire pour qu'il fasse le tri après le 1er filtre. Pour avoir tous
les "F" ou "M" de chaque catégorie?
Merci d'avance pour votre aide.
Jipé

Private Sub FiltresParCatCD_AfterUpdate()
Me.FilterOn = True
Select Case Me.FiltresParCatCD
Case 1
DoCmd.ApplyFilter "", "[Cat_CD] Like ""ECOLE DE BASKET*"""
Case 2
DoCmd.ApplyFilter "", "[Cat_CD] Like "" MINI-POUSSINS*"""
Case 3
DoCmd.ApplyFilter "", "[Cat_CD] Like ""POUSSINS*"""
Case 4
DoCmd.ApplyFilter "", "[Cat_CD] Like ""BENJAMINS*"""
Case 5
DoCmd.ApplyFilter "", "[Cat_CD] Like ""MINIMES*"""
Case 6
DoCmd.ApplyFilter "", "[Cat_CD] Like ""CADETS*"""
Case 7
DoCmd.ApplyFilter "", "[Cat_CD] Like ""SENIORS*"""
Case 9
DoCmd.ApplyFilter "", "[Cat_CD] Like ""SPORTS LOISIRS*"""
Case 10
DoCmd.ApplyFilter "", "[Cat_CD] Like ""NON JOUEURS*"""
Case 27
DoCmd.ShowAllRecords
End Select
End Sub
__________________________________________________________

Private Sub FiltresParSexeCatCD_AfterUpdate()
Me.FilterOn = True
Select Case Me.FiltresParSexeCatCD
Case 1
DoCmd.ApplyFilter "", "[Sexe] Like ""F*"""
Case 2
DoCmd.ApplyFilter "", "[Sexe] Like ""M*"""
Case 3
DoCmd.ShowAllRecords
End Select
End Sub
__________________________________________________________
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
3stone
Salut,

"Quaisako"

Les filtres et les tris sont deux choses différentes !
et dans le second tu n'as pas de tri, sauf l'ordre par défaut...

Le tri s'indique par :

Me.Filter = "[le champ] Asc" ' ou "[le champ] Desc"

Me.FilterOn = True


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/





| Les 2 filtres ci-dessous fonctionnent parfaitement.
| Mais.........
| Le second filtre, trie tous les enregistrements "Féminins" ou "Masculins" de
| la table "Licenciés". OK.
| Comment faire pour qu'il fasse le tri après le 1er filtre. Pour avoir tous
| les "F" ou "M" de chaque catégorie?
| Merci d'avance pour votre aide.
| Jipé
|
| Private Sub FiltresParCatCD_AfterUpdate()
| Me.FilterOn = True
| Select Case Me.FiltresParCatCD
| Case 1
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""ECOLE DE BASKET*"""
| Case 2
| DoCmd.ApplyFilter "", "[Cat_CD] Like "" MINI-POUSSINS*"""
| Case 3
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""POUSSINS*"""
| Case 4
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""BENJAMINS*"""
| Case 5
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""MINIMES*"""
| Case 6
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""CADETS*"""
| Case 7
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""SENIORS*"""
| Case 9
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""SPORTS LOISIRS*"""
| Case 10
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""NON JOUEURS*"""
| Case 27
| DoCmd.ShowAllRecords
| End Select
| End Sub
| __________________________________________________________
|
| Private Sub FiltresParSexeCatCD_AfterUpdate()
| Me.FilterOn = True
| Select Case Me.FiltresParSexeCatCD
| Case 1
| DoCmd.ApplyFilter "", "[Sexe] Like ""F*"""
| Case 2
| DoCmd.ApplyFilter "", "[Sexe] Like ""M*"""
| Case 3
| DoCmd.ShowAllRecords
| End Select
| End Sub
| __________________________________________________________
|
|
Avatar
Quaisako
Bonsoir le Forum,
désolé 3stone, mais je suis toujours bloqué.
Qu'est-ce-que le "Desc"? L'aide ne connait pas ce terme.
Merci
Jipé

"3stone" a écrit dans le message de news:

Salut,

"Quaisako"

Les filtres et les tris sont deux choses différentes !
et dans le second tu n'as pas de tri, sauf l'ordre par défaut...

Le tri s'indique par :

Me.Filter = "[le champ] Asc" ' ou "[le champ] Desc"

Me.FilterOn = True


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/





| Les 2 filtres ci-dessous fonctionnent parfaitement.
| Mais.........
| Le second filtre, trie tous les enregistrements "Féminins" ou
"Masculins" de
| la table "Licenciés". OK.
| Comment faire pour qu'il fasse le tri après le 1er filtre. Pour avoir
tous
| les "F" ou "M" de chaque catégorie?
| Merci d'avance pour votre aide.
| Jipé
|
| Private Sub FiltresParCatCD_AfterUpdate()
| Me.FilterOn = True
| Select Case Me.FiltresParCatCD
| Case 1
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""ECOLE DE BASKET*"""
| Case 2
| DoCmd.ApplyFilter "", "[Cat_CD] Like "" MINI-POUSSINS*"""
| Case 3
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""POUSSINS*"""
| Case 4
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""BENJAMINS*"""
| Case 5
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""MINIMES*"""
| Case 6
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""CADETS*"""
| Case 7
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""SENIORS*"""
| Case 9
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""SPORTS LOISIRS*"""
| Case 10
| DoCmd.ApplyFilter "", "[Cat_CD] Like ""NON JOUEURS*"""
| Case 27
| DoCmd.ShowAllRecords
| End Select
| End Sub
| __________________________________________________________
|
| Private Sub FiltresParSexeCatCD_AfterUpdate()
| Me.FilterOn = True
| Select Case Me.FiltresParSexeCatCD
| Case 1
| DoCmd.ApplyFilter "", "[Sexe] Like ""F*"""
| Case 2
| DoCmd.ApplyFilter "", "[Sexe] Like ""M*"""
| Case 3
| DoCmd.ShowAllRecords
| End Select
| End Sub
| __________________________________________________________
|
|



Avatar
Eric
Bonjour,

Pierer voulait duire :
Me.OrderBy = "[LeChamp] Asc"
' ASC pour croissant ou Desc pour décroissant
Me.OrderByOn = True

Bonsoir le Forum,
désolé 3stone, mais je suis toujours bloqué.
Qu'est-ce-que le "Desc"? L'aide ne connait pas ce terme.
Merci
Jipé




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
3stone
"Eric"
| Me.OrderBy = "[LeChamp] Asc"
| ' ASC pour croissant ou Desc pour décroissant
| Me.OrderByOn = True



oui, bien sur...

j'ai dû avoir une double chute de tension ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Quaisako
Eric, 3stone,
Ca fonctionne et j'y vois un peu plus clair.
Maintenant, lorsque je filtre une "Catégorie", mes licenciés sont triés par
"F" et par "M", suivant mon choix "Asc" ou Desc".
Autre question:
Comment ne faire apparaitre que les "F" ou que les "M"?
Merci pour votre aide
Jipé

"3stone" a écrit dans le message de news:


"Eric"
| Me.OrderBy = "[LeChamp] Asc"
| ' ASC pour croissant ou Desc pour décroissant
| Me.OrderByOn = True



oui, bien sur...

j'ai dû avoir une double chute de tension ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



Avatar
3stone
re,

"Quaisako"
| Comment ne faire apparaitre que les "F" ou que les "M"?


étendre ton filtre...
DoCmd.ApplyFilter "", "[Cat_CD] Like 'CADETS*' AND Sexe = 'F'"



Mais pour ce genre filtrage multiple, il vaut mieux utiliser
quelque chose de plus performant...

http://www.3stone.be/access/articles.php?lng=fr&pgC


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Quaisako
Mille mercis 3stone. C'est impeccable.
Pour ce qui est de tes Filtres personnalisés sur formulaire en affichage
continu
j'avais déjà lu ta prose, mais c'est encore bien compliqué pour mon neurone.
Jipé

"3stone" a écrit dans le message de news:
%
re,

"Quaisako"
| Comment ne faire apparaitre que les "F" ou que les "M"?


étendre ton filtre...
DoCmd.ApplyFilter "", "[Cat_CD] Like 'CADETS*' AND Sexe = 'F'"



Mais pour ce genre filtrage multiple, il vaut mieux utiliser
quelque chose de plus performant...

http://www.3stone.be/access/articles.php?lng=fr&pgC


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/