Discussion :

[uloaccess]

Bonjour,
Access 2k3
Ne pouvant pas avoir des entêtes de zone de liste qui me permettent de faire des tris (croissants comme décroissants) par colonne, j'ai crée des boutons de commande qui le font. J'ai défini alors 5 requêtes (r1 à r5) pour les 5 boutons de commandes sur chaque colonne dans mon unique zone de liste.
Ces boutons de commande remplacent alors les entêtes des colonne.
Le but est que pour chaque clic sur un bouton de commande, un tri s'effectue.
Mon problème est que je n'arrive pas a executer cela.

[cafeine]

Hello, donne nous le code que tu as mis en place pour ces boutons ...

[uloaccess]

Salut,

Code :

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

DoCmd.OpenQuery "r1"

[pgz]

Bonjour,

Ils sont où tes boutons? Arrives-tu à avoir 5 évènement différents, un sur click de chaque bouton?

A+

pgz

[uloaccess]

Il se trouve que mon code m'ouvre la requête dans un tableau. (Ce qui est normal, je pense
Mais c'est dans le formulaire actif, au niveau de ma zone de liste que j'aimerai que le tri s'effectue. (un peu comme le volet droit de l'explorateur de windows quand on fait un affichage par detail) .
Meici

[keita]

salut
essai ça pour voir:
tu as besoin d'un formulaire et d'un sous-formulaire
La source de ton sous-formulaire doit etre une requete reposant sur ta table.Du genre:
SELECT Chp1, chp2, chp3, chp4, chp5 FROM NomDeTable
Sur le formulaire:
un seul bouton de commande, 1 groupe d'options (cadre0) et 2 options avec opt1 pour croissant et opt2 pour decroissant.
Valeur par defaut de cadre0=0
Derriere le bouton de commande:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim StrSQL as string
StrSQL="SELECT Chp1, chp2, chp3, chp4, chp5 " & _
                 "FROM NomDeTable " & _
                 "ORDER BY " & NomDeZoneDeListe 
Select case Cadre0.value
  case 0 
          StrSQL=StrSQL & "Asc."   ' pour croissant
  case 1
     StrSQL=StrSQL & "Desc."      ' pour décroissant
end select
Me!NomDuSousFormulaire.Form.RecordSource=StrSQL

esperons que ça marche.

[Faw]

Le ssform est sûrement plus ergonomique mais tout dépend de
ton contexte.
Avec une ListBox et les 5 boutons, tu peux te servir de la Value des boutons pour basculer d'un tri
Asc à Desc et inversement. Tu crées une Sub qui récupère
les arguments de tri passés par les Private Sub des boutons.

Un exemple avec Bascule25 et la colonne Champ1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Bascule25_Click()
If Me.Bascule25.Value = -1 Then 'Bouton enfoncé
ArgTri = "Champ1" & " " & "DESC"
Else 'Bouton relâché
ArgTri = "Champ1" & " " & "ASC"
End If
Tri (ArgTri)
End Sub
 
Sub Tri(ArgTri As String)
Dim sql As String
sql = "SELECT Champ1, Champ2,...  FROM Source ORDER BY " & _
ArgTri
Me.ListeX.RowSource = sql
Me.ListeX.Requery
End Sub

Une alternative parmi d'autres...

[pgz]

Bonjour,

Tu vas pouvoir te rapprocher d'Illight.

http://www.developpez.net/forums/viewtopic.php?t=413986

Bonne chance,

pgz

[uloaccess]

Slt,
Youpiiiiiii
Voici ma methode (après vos sugestions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Bascule1_Click()
Dim sqlasc As String
Dim sqldes As String
sqlasc = "SELECT Champ1, Champ2, Champ3 FROM table ORDER BY Champ1 ASC;"
sqldes = "SELECT Champ1, Champ2, Champ3 FROM table ORDER BY Champ1 DESC;"
 
If Me.Bascule1.Value = -1 Then
    Me.MaListe.RowSource = sqlasc
    Me.MaListe.Requery
Else
    Me.MaListe.RowSource = sqldes
    Me.MaListe.Requery
End If
 
End Sub

Merci à tous pour vos suggestions [/code]