[fr-users] Re: Base de donnée avec tri alphabétique par bouton

Bonjour


"A. Warmé" wrote
>  il y a un module dans cette base, avec 
> des boutons de A, B, jusqu'à Z, ce qui permet en cliquant sur la lettre 
> C, par exemple, de ne conserver que les noms de clients commençant par C.

Ci-joint un exemple "vite fait" reposant sur une macro associée à
chaque bouton (la même macro).

Son principe est simple : elle "remonte" de l'événement appelant
(le clic sur le bouton) au "parent", c'est-à-dire le bouton sur lequel
on a cliqué et son parent "à lui", c'est-à-dire le formulaire.

Les boutons sont nommés "BtnA", "BtnB", etc. Il suffit donc d'extraire
le dernier caractère à droite et de l'utiliser dans l'instruction SQL
pour filtrer puis recharger le formulaire.

Je n'ai dessiné que quelques boutons. Il reste à les aligner et compléter
en suivant le même principe de nommage. Une solution rapide est de
copier un bouton puis de coller puis simplement renommer et changer
l'étiquette (l'association de la macro est gardée par le copier-coller).

Répertoire.odb
<http://nabble.documentfoundation.org/file/n4049476/R%C3%A9pertoire.odb>  

Ci-dessous la macro:

option explicit

Sub PysFiltrer(PysEvent)

dim PysParent as object

PysParent = PysEvent.Source.Model.Parent

select case PysEvent.Source.Model.Name
        case "BtnTout"
                PysParent.Command = "SELECT * FROM ""Clients"" ORDER BY ""Nom"" ASC,
""Prénom"" ASC"
        case else
                PysParent.Command = "SELECT * FROM ""Clients"" WHERE ""Nom"" LIKE '" &
right(PysEvent.Source.Model.Name,1) & "%'" & _
                                                        "ORDER BY ""Nom"" ASC, ""Prénom"" ASC"
end select

PysParent.reload

End Sub


Cordialement
Pierre-Yves



--
View this message in context: 
http://nabble.documentfoundation.org/Base-de-donnee-avec-tri-alphabetique-par-bouton-tp4049398p4049476.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés