filter aufheben und absteigend nach ID sortieren

[Carl]

Hallo, mal ne Frage.

Ich habe ein Formular mit dem UFO "UFfrmworkorderUFO", das durch verschiedene Filter gefiltert wird. Nun gibt es einen Knopf, der alle Filter wieder aufhebt. Der funktioniert so:

Code [Auswählen] Erweitern


Private Sub alleanzeigen_Click()
    Me!UFfrmworkorderUFO.Form.Filter = ""
    Me!UFfrmworkorderUFO.Form.FilterOn = False
End Sub


Jetzt möchte ich aber, dass der Knopf zusätzlich nach seinem Klicken die aktuellsten DS oben anzeigt. Also nach der ID absteigend sortiert.

Der Code hier geht aber nicht:

Code [Auswählen] Erweitern


Private Sub alleanzeigen_Click()
    Me!UFfrmworkorderUFO.Form.Filter = ""
    Me!UFfrmworkorderUFO.Form.FilterOn = False
    Me!SetOrderBy(ID,UFfrmworkorderUFO)
End Sub


Wir würdet Ihr das machen?

Carl

[Josef P.]

Hallo!

Ich versuche es einmal mit Hilfe zur Selbsthilfe.

Der Code hier geht aber nicht

Es sollte aber eine Fehlermeldung kommen, die auf die Ursache von "geht nicht" hinweist.

Was ist SetOrderBy?
Ich vermute, dass das eine Prozedur im Formular ist. Wegen dem Me davor wird sie sogar als Public deklariert sein.

Fragestellungen, die zu lösen sind:
Wie ruft man eine eine Prozedur mit Parameter auf, wenn kein Rückgabewert genutzt wird?
Wann verwendet man Me! und wann Me. ?

mfg
Josef

[Carl]

Der Punkt war es. Ich habs hin bekommen mit:

Code [Auswählen] Erweitern


Private Sub Befehl133_Click()
    Me!UFfrmworkorderUFO.Form.Filter = ""
    Me!UFfrmworkorderUFO.Form.FilterOn = False
    Me.Form.OrderBy = " [ID] DESC"
    Me.Form.OrderByOn = True
End Sub


Danke,
Carl