Discussion :

[Orakle]

Bonjour,

j'ai une zone de liste qui possède 14 champs que j'aimerais pouvoir trier aléatoirement ou cumulés, de manière croissante ou décroissante.

J'ai créer une petite Sub et je passe le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RefreshSort()
SQL2 = SQL & " ORDER BY "
If Me.BbcAnnee Then
    SQL2 = SQL2 & "[SUIVI_N°_SERIE].[ANNEE]"
Else
    SQL2 = SQL2 & "[SUIVI_N°_SERIE].[ANNEE] DESC"
End If
SQL1 = SQL2 & ";"
Me.LstResults.RowSource = SQL1
Me.LstResults.Requery
End Sub

Tout se passe pas trop mal tant que je n'ai pas un tri avec un champ supplémentaire (bloc If), car je ne sais pas comment insérer la virgule nécessaire à la bonne lecture du SQL.

Comme pour exemple :

Code :

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

SELECT SUIVI_N°_SERIE.*FROM SUIVI_N°_SERIE ORDER BY SUIVI_N°_SERIE.ANNEE, SUIVI_N°_SERIE.MOIS DESC;

Dois-je changer de méthode, ou que dois-je ajouter à la mienne ?

Merci

[argyronet]

Bonjour,

Ta clause SQL doit être opérationnelle dans le QBE en créant une requête SQL Test pour vérifier qu'elle est sans erreurs.
Une fois cela fait, tu l'affectes à la propriété RowSource tel que tu l'as fait en respectant la syntaxe (, et "" notamment).

Argy

[Orakle]

Bonjour,

la réponse est un peu trop généraliste et finalement c'est ce que je fais déjà.
Mon SQL est correcte, mais dès que j'ajoute un tri ou que je l'enlève, là les ennuies commencent.
Par contre en bossant dessus, j'arrive progressivement à quelque chose, mais ne sachant pas coder de manière simple, celui-ci s'alourdit à vue d'œil.
Sachant que je dois répéter l'opération 14 fois, je vais me retrouver avec une vraie usine à gaz.

[Jeannot45]

En fait chaque fois que tu ajoutes ou retires un champ, il faut regénérer la clause ORDER BY de ton SQL

Pour l'exemple : Listes multifonctions

Bonne continuation