Listenfels mit Klick auf Bezeichnungsfeld sortieren

24/02/2009 - 11:36 von Peter Wilker | Report spam
Hallo

Noch eine Frage.

Ich habe ein Listenfeld, das ich mit einem Klick auf das
Bezeichnungsfeld aufsteigend und mit dem nàchsten Klick absteigend
sortieren möchte.
Dazu habe ich den Rowsource für das Listenfeld in eine Funktion
(AntrSort) gestellt und den 'Order BY' Teil in das Klickereignis des
Bezeichnungsfeldes gebracht.

Code:

Dim txt_Change As String

txt_Change = "desc"

AntrSort "ORDER BY RV_Main.Re_steller " & txt_Change

'Aufruf und übergabe


Wie erreiche ich die wechselseitige Sortierung?


Besten Dank

Hans-Peter Wilker
 

Lesen sie die antworten

#1 Henry Habermacher
24/02/2009 - 11:52 | Warnen spam
Hallo Peter

Peter Wilker wrote:
Dim txt_Change As String

txt_Change = "desc"

AntrSort "ORDER BY RV_Main.Re_steller " & txt_Change

'Aufruf und übergabe


Wie erreiche ich die wechselseitige Sortierung?




Hàngt halt ein bisschen davon ab, was AntrSort macht. Das verheimlichst Du
uns nàmlich. Ich gehe mal davon aus, dass dieses den SQL String des
Listenfeldes àndert.

Dim txt_Change As String
If left(Me!ListenFeld.ControlSource) = "desc" Then
txt_Change = "asc"
Else
txt_Change = "desc"
End If
AntrSort "ORDER BY RV_Main.Re_steller " & txt_Change

HTH
Henry

Die NEK1 verpasst? Kein Problem. Details in FAQ
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen