Hallo zusammen,
Da ich auf dem Gebiet Access nicht besonders bewandert bin, auch aufgrund meines Alters, möchte ich ein Problem ansprechen das mich seit Tagen beschäftigt.
Habe hier kürzlich einen ähnlichen Beitrag gelesen, der hat mich aber auch nicht zum Ziel geführt.
Ich weiß aber das es hier gute Experten gibt die evtl. bereit sind mir den entscheidenden Tip zu geben.
Im Netz habe ich bereits einige Seiten dazu gefunden, aber leider nicht für mich brauchbar.
Soweit die Vorgeschichte.
In einer ziemlich umfangreichen DB, welche für mich sehr unterschiedliche Dinge beinhaltet, möchte ich folgendes:
In einem Haupt Frm mit einem Unter Frm werden Daten erfasst.
Diese mache ich übersichtlich in div. Endlos Frm, mittels den jeweiligen Abfragen. Alles perfekt.
In meinen div. Endlos Frm habe ich versch. Filter Möglichkeiten.
Auch perfekt.
Jetzt zum Problem. Möchte ein bestimmtes Feld mit VBA per BTN sortieren.
Das Feld ist ,,Felddatentyp Zahl", Feldgrösse Double.
Das Feld hat den Namen KM.
Mein Endziel ist, im Formularkopf meines Endlos Frm einen BTN anlegen der die aktuell gelisteten, oder schon gefilterten DS per VBA aufsteigend sortiert. Einen 2. BTN der die Sortierung wieder aufhebt.
-
Natürlich könnte ich eine eigene Abfage dazu in ein eigens dafür gebautes FRM einbinden, das wär aber zu aufwendig glaube ich.
PS:
Ich habe bereits eine Reihe funktionierender BTN, die alles mögliche erzeugen, aber mit dieser genannten Sortierfunktion
breche ich mir die Ohren, oder denke zu umständlich.
Ist das simpel möglich, ohne ein IT Studium zu belegen zu müssen?
Die hauseigenen Sortierfunktionen in der Menüleiste sind nicht brauchbar in meinem Fall. Zu umständlich.
Wer von den geschätzten Experten kann oder möchte mir kurz helfen?
Gruss Nicolo
Hallo,
neben der Filter-Eigenschaft hat ein Formular auch eine OrderBy-Eigenschaft. Dieser kannst Du die Felder zuweisen, nach denen Du sortieren willst, absteigend oder aufsteigend läßt sich mit ASC oder DESC hinter dem Feldnamen bewerkstelligen.
https://learn.microsoft.com/de-de/office/vba/api/access.form.orderby
Passend zu FilterOn gibt es auch ein OrderByOn:
https://learn.microsoft.com/de-de/office/vba/api/access.form.orderbyon
Dein Button muß diese Eigenschaften einfach entsprechend befüllen.
Gruß
Christian
Hallo Christian,
soweit war ich schon.
Analog zu den Einstellungen bei einem VBA Filter habe ich OrderByOn mit Angabe des Feldes angelegt.
Me.OrderbyOn = "KM"
Me.OrderbyOn = True
Ergebnis = Laufzeitfehler 13 Typen unverträglich
Hallo,
neee... :)
"OrderBy" bekommt die Felder, "OrderByOn" True oder False, um es anzuwenden.
Gruß
Christian
Private Sub btn_sortKM_Click()
Me.OrderBy = "KM DESC"
Me.OrderByOn = True
End Sub
Vielen lieben Dank Christian.