collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 53
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14038
  • stats Beiträge insgesamt: 67221
  • stats Themen insgesamt: 9067
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: filter aufheben und absteigend nach ID sortieren  (Gelesen 280 mal)

Offline Carl

  • Access-Profi
  • **
  • Beiträge: 376
filter aufheben und absteigend nach ID sortieren
« am: April 02, 2018, 10:41:30 »
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:

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:

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
 

Offline Josef P.

  • Access-Profi
  • **
  • Beiträge: 237
    • Code-Bibliothek für Access-Entwickler
Re: filter aufheben und absteigend nach ID sortieren
« Antwort #1 am: April 02, 2018, 11:32:06 »
Hallo!

Ich versuche es einmal mit Hilfe zur Selbsthilfe.

Zitat
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
« Letzte Änderung: April 02, 2018, 12:03:34 von Josef P. »
 
Folgende Mitglieder bedankten sich: PhilS, Carl

Offline Carl

  • Access-Profi
  • **
  • Beiträge: 376
Re: filter aufheben und absteigend nach ID sortieren
« Antwort #2 am: April 02, 2018, 13:50:51 »
Der Punkt war es. Ich habs hin bekommen mit:

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