Discussion :

[ThieBEN]

Bonjour à tous, je souhaiterais créer dans un formulaire des boutons de commande de filtre avec des lettre " A - B - C - D"... basé sur une table avec des noms et prénoms. Lorsque je cliquerai sur le A, je n'aurai que les noms commençant par A et ainsi de suite. j'ai utilisé pour ce faire sur la bouton de commande A propriété sur clic =

Code :

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

=filtrelet()

puis dans procédure évènementielle du formulaire.

Code :

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

1
2
3
4
5
6
7
8
Public Function FiltreLet()
Dim StrFilt As Variant, StrLet As Variant
 
    StrLet = Screen.ActiveControl.Name
    StrFilt = "(((Agents.[Nom Prenom]) Like '" & StrLet & "*'))"
    Me.Filter = StrFilt
    Me.FilterOn = True
End Function

Mais cela ne fonctionne pas. Si quelqu'un à déjà effectué ce genre de manip je vous remercie de vos conseils.

[loufab]

Bonjour,

Tu as un champ unique contenant Nom et prénom nommé [Nom prénom] ?

Si ce n'est pas le cas ton filtre est faux.

Ton bouton de commande s'appelle A ou c'est ce que tu affiches ?

Si c'est l'affichage et non le nom utilise la propriété Caption mais pas Name.

Cordialement,

[ThieBEN]

Oui mon champ est unique [Nom prénom].
Mon bouton de commande s'appelle A "nom et légende" dans les propriétés.
Merci

[ClaudeLELOUP]

Bonjour,

Utilise un rollo button,
Je te joins un exemple car c'est fastidieux à construire.

[ilank]

Bonjour,

Code :

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

 Screen.ActiveControl.Caption

peut-être, c'est le libellé du bouton qui sert de filtre et non le nom du contrôle ?

[loufab]

Bonjour,

Je suis entièrement d'accord avec toi, c'est fastidieux à contruire vu le résultat attendu.
Je pense que sa solution est encore la meilleure.

Bonjour,

Utilise un rollo button,
Je te joins un exemple car c'est fastidieux à construire.

[loufab]

Oui mon champ est unique [Nom prénom].
Mon bouton de commande s'appelle A "nom et légende" dans les propriétés.
Merci

Essaye en enlevant le préfixe de la table. Agents

Donc juste :

Code :

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

StrFilt = "([Nom Prenom] Like '" & StrLet & "*')"

[ThieBEN]

Bonjour,

Code :

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

 Screen.ActiveControl.Caption

peut-être, c'est le libellé du bouton qui sert de filtre et non le nom du contrôle ?

J'ai modifié Name par Caption, quand je clic sur le bouton de commande A ou B access me demande "entrer la valeur du paramètre" Agents.Nom Prenom.

[loufab]

Déjà proposé... dommage.

Bonjour,

Code :

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

 Screen.ActiveControl.Caption

peut-être, c'est le libellé du bouton qui sert de filtre et non le nom du contrôle ?

[ThieBEN]

Essaye en enlevant le préfixe de la table. Agents

Donc juste :

Code :

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

StrFilt = "([Nom Prenom] Like '" & StrLet & "*')"

Peut-être il manque une macro ou un module?

[jojo5650]

Déjà proposé... dommage.

Tu ajoute 1 champs à ta requête de données ce champs

Code :

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

:= asc(left([nom de l'auteur],1))-64 as enfants,

(pour Alphonse tu aura 1 )
donc tu n'enregistre que le code asc du premier caractère de l'auteur -64

Tu fais un formulaire sur ces données , tu l'incorpore au formulaire de la db que tu as posé sur le site.
Dans les propriétés data champs enfants du sous-formulaire tu pose [enfant] pour l'enfant et dans le père ton role pour les conditions d'égalité.
Chaque fois que tu change de lettre les données changerons
PS: Le projet que tu as posé est vide, modifie le pour qu'il y ai quelques auteurs et je l'adapterai pour que ce que j'énonce soit pus claire.

Donc repose une db avec quelques auteurs et prévient moi quand cela est fait.
Nul besoin de macro ou autre.

jojo5650

[loufab]

Les boutons A B C ... sont dans le même écran ? en entete ou pied de formulaire par exemple.

Voici un exemple fonctionnel ou les boutons sont placés en entête du formulaire et c'est l'étiquette du bouton de commande qui contient la lettre à filtrer.

Code :

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

1
2
3
4
Public Function filtre()
Me.Filter = "[Société] Like '" & Screen.ActiveControl.Caption & "*'"
Me.FilterOn = True
End Function

Le code est placé dans un module et le chaque bouton reçoit l'appel sur l'événement Sur clic, comme ceci.

Code :

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

=filtre()

Si cela ne fonctionne pas, essaye un point d'arrêt sur le filteron et regarde la propriété Filtre si elle est remplie.

Cordialement,

[Invité]

Bonjour

Une autre piste facile à mettre en oeuvre au cas où cela peut t’intéresser :

http://starec.developpez.com/tuto/barrecommande/#LVI-A

Philippe

[ThieBEN]

Les boutons A B C ... sont dans le même écran ? en entete ou pied de formulaire par exemple.

Voici un exemple fonctionnel ou les boutons sont placés en entête du formulaire et c'est l'étiquette du bouton de commande qui contient la lettre à filtrer.

Code :

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

1
2
3
4
Public Function filtre()
Me.Filter = "[Société] Like '" & Screen.ActiveControl.Caption & "*'"
Me.FilterOn = True
End Function

Le code est placé dans un module et le chaque bouton reçoit l'appel sur l'événement Sur clic, comme ceci.

Code :

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

=filtre()

Si cela ne fonctionne pas, essaye un point d'arrêt sur le filteron et regarde la propriété Filtre si elle est remplie.

Cordialement,

Merci LOUFAB mais ça ne marche pas dans la partie filtre du formulaire il y a ça :

Code :

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

(((Agents.[Nom Prenom]) Like 'B*'))

il me dit que : l'expression entrée comporte un nom de fonction introuvable. Mes boutons sont situés dans la partie détail de mon formulaire.

[loufab]

Essaye de taper ceci dans le filtre.

Code :

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

([Nom Prenom] Like 'B*')

Il semble que dans ce que tu as fourni il manque une parenthèse à la fin. Peut-être s'agit-il simplement d'un mauvaise retranscription. (EDIT : Non il s'agit de l'oubli de la balise de code... c'est la raison pour laquelle elles sont obligatoires )

[ilank]

Ok, la référence à la table Agents est en trop, ton formulaire doit déjà avoir cette table comme source de données.

[ThieBEN]

Ok, la référence à la table Agents est en trop, ton formulaire doit déjà avoir cette table comme source de données.

Excuse moi mais je ne comprends pas ta réponse.

[ilank]

Bonjour,
Pour filtrer le contenu du formulaire, il lui faut bien un contenu ou une source de données; qui, ici, doit être la requête ou la table contenant les nom et prénom des agents. Dans ton formulaire, il n'est donc plus nécessaire d'indiquer la source des données. Agents.[Nom prenom] ne correspond normalement à rien pour le formulaire, alors que [nom prenom] si.

[ThieBEN]

Bonjour,
Pour filtrer le contenu du formulaire, il lui faut bien un contenu ou une source de données; qui, ici, doit être la requête ou la table contenant les nom et prénom des agents. Dans ton formulaire, il n'est donc plus nécessaire d'indiquer la source des données. Agents.[Nom prenom] ne correspond normalement à rien pour le formulaire, alors que [nom prenom] si.

Autant pour moi et milles excuses: Mon code de départ fonctionne, le seul problème c'est que j'avais oublié un accent sur le "e" de prénom.

Code :

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

1
2
3
4
5
6
7
8
Public Function FiltreLet()
Dim StrFilt As Variant, StrLet As Variant
 
    StrLet = Screen.ActiveControl.Name
    StrFilt = "(((Agents.[Nom Prénom]) Like '" & StrLet & "*'))"
    Me.Filter = StrFilt
    Me.FilterOn = True
End Function

Maintenant cela fonctionne nickel le filtre fait bien son boulot.
Un grand merci à vous tous avec mes excuses

[jojo5650]

J'ai, je pense cerner la cause du problème.
Avec cette réponse, je viens de poster un fichier qui filtre les auteurs sur la 1 ère lettre; le tout avec seulement 3 lignes de codes vba pas 4.

Essaye cette solution, tout en sachant que je n'ai encodé que 2 auteurs , Alphnose daudet et JK rolling

Pas besoin des usines à gaz ou de filtres compliqué comme précédemment proposé.

jojo5650