Discussion :

[Chagui]

Bonjour,

Je souhaite pouvoir trier dynamiquement mes sous formulaires. J'ai trouvé un code fourni par microsoft et qui m'interesse pas mal a vrai dire :

voici le lien : ICI

et le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Form_Click ()
Dim sControlSource As String
Dim sOrderBy As String
Dim SqlString As String
 
sCOntrolSource = Me(Screen.ActiveControl.Name).ControlSource
SqlString = "SELECT * FROM Commandes"
sOrderBy = " ORDER BY [" & sCOntrolSource & "];"
Me.Source = SqlString & sOrderBy
End Sub

J'ai suivi les instructions comme indiqué. Je me retrouve avec un message d'erreur : "membre de méthode ou de données introuvable" sur Me.Source

Je ne suis pas sur de bien comprendre à quoi correspond Me.source. Est-ce un controle qui doit etre présent dans le sous form ou sur le form principal...

Si j'ai bien compris l'explication de microsoft, C'est en cliquant sur une colonne dans le sous formulaire qu'elle ce triera automatiquement..; non ??


merci pou votre aide

[EDIT]

Microsoft dit dans son article : "Pour effectuer cette opération, il est nécessaire de modifier la propriété
source de ce sous-formulaire en fonction du champ sélectionné."

mais je crois que cette propriété source n'est pas trouvé... [/EDIT]

[LedZeppII]

Bonjour Shagui,

Le lien que tu cites s'applique à Access 2.0

Le nom de la propriété a vraisemblablement changé.
Ça doit être RecordSource maintenant.

A+

[Chagui]

bonsoir LedZeppII,

Ah mince je n'avais pas du tout fait attention à ça...

Je testerai demain.. Mais Il y a peut être d'autres possibilités pour trier des ous formulaires de façon dynamique ?? Tu en penses quoi ??

[LedZeppII]

Tu peux te servir des propriétés OrderBy et OrderByOn du formulaire.

Le code que tu as posté devient alors :

Code :

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

1
2
3
4
5
6
7
Sub Form_Click ()
Dim sControlSource As String
 
sCOntrolSource = Me(Screen.ActiveControl.Name).ControlSource
Me.OrderBy = "[" & sCOntrolSource & "]"
Me.OrderByOn = True
End Sub

A+

[Chagui]

OK Ok !!!

merci LedZeppII, je vais aller me renseigner sur ces propriétés. Penses qu'avec ce code si je clic sur la première colonne de mon sous formulaire et sélectionne la 2eme et 3eme, le trie s'effectuera sur les trois colonnes ou l'évènement sur clic ne prend pas en charge la sélection... c'est peut être complètement différent...

[LedZeppII]

Non, ce code ne prend en charge qu'une colonne à la fois.

Si on veut prendre en compte plusieurs colonnes, il faut un peu plus de code.
Notamment pour vérifier qu'on ne va pas trier 10 fois sur la même colonne.
Sans contrôle ça donnerait :

Code :

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

1
2
3
4
5
If Len(Me.OrderBy) = 0 Then
   Me.OrderBy = "[" & sCOntrolSource & "]"
Else
   Me.OrderBy = Me.OrderBy & ", [" & sCOntrolSource & "]"
Endif

Il faut aussi prévoir un moyen d'enlever le tri, pour pouvoir en choisir un autre.

Code :

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

Me.OrderBy = ""

A+