Discussion :

[patmar83]

Bonjour,

J'ai une liste déroulante avec deux colonnes sur laquelle je fais des sélections pour ouvrir d'autres formulaires

Actuellement le tri initial est effectué sur la première colonne (il s'agit d'un code article).

Pour des facilités de lecture, j'aurais besoin d'avoir à l'écran ma liste mais triée sur la seconde colonne, il s'agit d'un libellé.

Comment cela est-il possible ?

Merci

[fgiambelluco]

Bonjour
Si le contenu de la liste est gérée par une requète, il suffit de mettre l'ordre de tri désiré dans la requète.

[patmar83]

Effectivement la cle du tri se trouve dans la requête mais je voudrai automatiser le chagement par un bouton , il faut donc que je modifie suivant mon choix le "order by"

[fgiambelluco]

Re
A mon avis le simple c"est de recréer la propriété RowSource et de faire un Requery

[patmar83]

j'ai trouvé une solution, qui peut paraître peu professionnelle mais qui fonctionne

Je crée deux bouton, un pour chaque colonne de la liste et j'attribue sur évènement, clic du bouton le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande6_Click()
Dim dbscurrent As Database
Dim qrytri As QueryDef
Set dbscurrent = CurrentDb
Set qrytri = dbscurrent.QueryDefs("r_categorie")
qrytri.sql = "SELECT [TBLCategories].[IDCategories], [TBLCategories].[Categorie] FROM TBLCategories ORDER BY [Categorie]"
DoCmd.Requery "Lstcategorie"
 
End Sub

Pour l'autre bouton je modifie le order by en mettant le nom de l'autre champ

[fgiambelluco]

Bonjour
A priori tu modifies la requête associée à la liste déroulante (r_categorie).
Tu peux aussi modifier directement la propriété RowSource (contenu) de la liste déroulante
Cela devrait donner ceci

Code :

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

1
2
Me.Lstcategorie.RowSource = "SELECT [TBLCategories].[IDCategories], [TBLCategories].[Categorie] FROM TBLCategories ORDER BY [Categorie]"
Me.Lstcategorie.Requery