Discussion :

[syldudu]

Bonjour,

Je possède une zone de liste (lstResults) avec 12 colonnes et un combobox (cmbTri) contenant les titres des 12 champs.
Je souhaite trié alphabétiquement ma zone de liste selon le champs choisi par le combobox.

Ma zone de liste est alimentée par une requête en vba.

si je rajoute au code "ORDER BY cmbTri" plus rien ne s'affiche. Pourquoi et comment y remédier?

merci de vos réponses

[Faw]

Salut, peut-être

Code :

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

"ORDER BY " & cmbTri

[Invité]

salut

De plus met des quotes '

Code :

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

1
2
 
ORDER BY '" & me.cmbTri.value & "'

car c'est du texte

Stared

[syldudu]

Hélas cela ne fonctionne pas.

Voila mon code:

Code :

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

SQL = "SELECT Enrg, Fournisseur, Essence, Nature, Facturation, Prix, Volume, Total, [N° Facture], [N° Interne],Mois, Année FROM [Détail achat mois-année] ORDER BY '" & cmbTri & "' Where [Détail achat mois-année]![Enrg] <> 0 "

[Faw]

1_ le where se met avant le tri
2_ je ne pense pas qu'il faille encadrer la variable avec des ''

[syldudu]

Merci faw le tri s'effectue bien si je supprime le code suivant:

Code :

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

1
2
3
4
5
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "[Détail achat mois-année]", SQLWhere) & " / " & DCount("*", "[Détail achat mois-année]")

comment puis-je faire pour l'adapter à mon nouveau code, svp?