Discussion :

[Razorback]

Bonjour,

J'ai créé un formulaire avec différentes colonnes. Je me retrouve donc avec différents champs (dans la section "en-tete") et les différents enregistrements dans la section "détail" du formulaire.
Je voulais savoir s'il était possible en VB de trier selon la date en cliquant sur l'étiquette correspondante.
De plus, est-il possible de faire la même chose par ordre alphabétique sur d'autres étiquettes ?

Je vous remercie.

[Invité]

Bonjour
Pourquoi vouloir le faire sur l'étiquette?
Tu te positionnes sur un enregistrement dans ta section "Détail", Clic droit et dans le menu contextuel tu as toutes les possibilités.
Ou alors dans le ruban tu as les icônes de tris et filtres.

[Razorback]

Salut,

En fait, ce formulaire est destiné à un utilisateur pour lequel je dois faciliter au maximum les manipulations. Donc un clic droit puis une élaboration d'un filtre serait trop compliqué par rapport à un simple clic sur une étiquette pour classer les dates du plus ancien au plus récent...

En fait, je voudrais récupérer ce que fait la manipulation du filtre mais dans un code pour qu'à chaque clic ou double-clic, le classement s'opère.

Merci quand même. A+

[Invité]

Tri croissant

Code :

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

1
2
 
    DoCmd.RunCommand acCmdSortAscending

Tri décroisssant

Code :

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

1
2
 
    DoCmd.RunCommand acCmdSortDescending

[Razorback]

Re,

Merci pour le code, mais si je le mets sur mon étiquette, que je fais mes sélections sur mes listes déroulantes, que je clique sur mon bouton rechercher, et enfin que je clique sur cette étiquette pour classer par date, j'obtiens une erreur... Erreur 2046 (la commande ou l'action Tri croissant n'est pas disponible pour l'instant).

La seule solution pour ne pas avoir l'erreur, c'est de cliquer dans un de mes enregistrements (dans "Détail") puis de cliquer sur l'étiquette.

[Invité]

Effectivement mais tu peux peut être dans ton code, avant la ligne que je t'ai indiqué redonner le focus sur ta zone.

[Invité]

Tu peux même faire comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub MonÉtiquette_Click()
    Me.MaZone.SetFocus
    If Me.OrderBy = "MaSource.MaZone" Then
    DoCmd.RunCommand acCmdSortDescending
Else
  DoCmd.RunCommand acCmdSortAscending
End If
 
End Sub

Comme cela en cliquant sur ton étiquette tu pourras alterner le tri.

[Razorback]

Re,

Merci pour ton aide, mais j'ai peur de ne pas trop comprendre par quoi je dois remplacer les "Ma_source" et les "Ma_zone".

Ma_source correspond à mon champ ?
Ma_zone correspond à mon étiquette ?

Est-ce bien çà ?

Merci et encore désolé

[Invité]

Ma source correspond au nom de la source de ton formulaire (table ou requête)

Ma zone correspond au nom de la zone dans la section "Détail" (sous ton étiquette)

[Razorback]

Ok merci pour ces détails. Ça fonctionne pour le tri du plus ancien au plus récent.

Cependant, tu dis que je peux alterner le tri...et c'est là que survient mon nouveau problème. Je pense que normallement, quand je reclique sur cette étiquette, le tri devrait s'inverser. Moi rien ne se passe...

Est-ce normal ? Encore merci GAYOT

[Invité]

As tu regardé l'exemple joint?

[Razorback]

Je viens de regarder. Bon, en fait, c'est normal alors. Dès que le tri est fait, un nouveau clic ne fait rien de plus. J'avais compris que si je recliquais, le tri s'inversait.

Merci beaucoup.

[Invité]

Non. Sur mon exemple il s'inverse.

[Razorback]

Euh...alors là, je comprends pas...

Moi j'ouvre ton formulaire, l'ordre est N°2, N°1, N°3.
Je clique sur l'intitulé de la colonne "CodePrest". Résultat : cette colonne se classe par ordre alphabétique (soit N°3, N°1, N°2).

Et là, si je reclique sur "CodePrest", rien ne se passe.

Où est le problème ?

[Invité]

Je n'ai fait le code que sur "CodePrest". D'ailleurs j'ai mis l'étiquette en relief.
Clique une fois sur cette étiquette, puis une autre fois.

[Razorback]

Ben c'est bien ce que je fais pourtant...J'ai bien vu que tu avais mis cette étiquette en relief.
C'est bizarre.

[Invité]

D'autant plus qu'ici ça marche bien.

[Invité]

J'ai fait une petite modif .Essaie comme cela

[Razorback]

Ben toujours rien. Je comprends pas, çà ne fonctionne pas chez moi.
J'ai bien vu que tu avais rajouté "Do events" mais rien ne se passe.

[Invité]

J'ai fait cela sur Access Xp. J'essaierai ce soir sur Access 2007. Dès fois que se soit ce qui bloque.
A +