Quantcast
Channel: Microsoft Access Forum
Viewing all articles
Browse latest Browse all 880

Gruppierung per VBA auflösen und Sortierung festlegen

$
0
0
Hallo alle zusammen

Meine Frage bezieht sich in Access auf die Auflösung von Gruppierungen in VBA.

Mein Bericht hat folgende Gruppierung:

Gruppieren nach: t_K-daten.k-daten-kundennr
   Grupieren nach a-artikel-kategorie
      sortieren nach a-artikel-text

Beispiel Daten:

Food
  Brot
  Salzstangen
  Weinbeeren
Werkzeug
  Hammer
  Zange


Diese Ausgabe funktioniert.
Nun möchte ich aber diesen Bericht per vba ändern, so dass alle Artikel ohne die Kategorie aufgelistet werden.


Also so:

  Brot
  Salzstangen
  Hammer
  Weinbeeren
  Zange


Dazu habe ich folgenden Code geschrieben: Meine Frage bezieht sich auf Case 3, ich will keine Gruppierung, nur nach Artikel sortiert.


Private Sub Sortierung(vSortierung)
    'Gruppierung Sortierung
    '1 Gruppiert Kategorie & Sortiert Artikel
    '2 Gruppiert Kategorie & Sortiert Eingabereihenfolge (ID)
    '3 Keine Gruppierung, Sortiert nach Artikel
    '4 Keine Gruppierung, Sortiert nach Eingabereihenfolge
    
    'GroupLevel0 = t_k-daten.k-daten-kundennr
    'GroupLevel1 = a-artikel-preis
    'GroupLevel2 = a-artikel-text

    Select Case vSortierung
        Case 1
            Me.GroupLevel(2).ControlSource = "a-artikel-text"
        Case 2
            Me.GroupLevel(2).ControlSource = "b-positionen-id"
        Case 3
            Me.Section(acGroupLevel2Header).Visible = False
            Me.GroupLevel(2).ControlSource = "a-artikel-text"
        Case 4
            Me.Section(acGroupLevel2Header).Visible = False
            Me.GroupLevel(2).ControlSource = "b-positionen-id"
    End Select

End Sub


Jetzt wird wohl die Gruppierung aufgelöst, aber die Artikel werden zuerst nach der Guppe und erst dann nach dem Artikel sortiert. Also so:

  Brot
  Salzstangen
  Weinbeeren
  Hammer
  Zange

Der Hammer müsste nach Brot kommen...

Was mache ich falsch? Oder was muss ich tun, damit mir nicht gruppiert wird, sondern nur nach Artikel sortiert?

Vielen Dank für Hinweise

Viewing all articles
Browse latest Browse all 880


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>