Base de donnée avec tri alphabétique par bouton

fr-users
#1

Bonsoir à tous,

du temps où j'étais en activité, j'avais créé un fichier client à partir d'un des modules de la base de données Access, Les Comptoirs.

Pour ceux qui ne connaissent pas, 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.
Je me demande si l'on peut trouver une application comparable sous Base de Libre Office et où. De préférence gratuite.

Merci pour vos (r)enseignements.

Bonne soirée et cordialement
AW

#2

Bonsoir
Ce qui est certain c'est que c'est possible, je l'ai fait (en python).
Le problème c'est que je ne m'en sert plus et que je ne sais plus dans quelle application je l'avais fait.
Je vais essayer de retrouver ça
JT

#3

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épertoire.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

#4

Suite...

Autre version avec des boutons "bascule" permettant de gérer
l'état "enfoncé" (et mieux voir quel est le filtre courant.

Répertoire.odb
<http://nabble.documentfoundation.org/file/n4049480/Répertoire.odb>

Cordialement
Pierre-Yves

#5

Bonjour,

je vous remercie vivement pour ce travail.
Je vais examiner de près et me permettrai de revenir vers vous si je patauge.

Cordialement et bonne fin de semaine
Alain