Wenn Sie ein Abonnement des Magazins 'Access im Unternehmen' besitzen, können Sie sich anmelden und den kompletten Artikel lesen.
Anderenfalls können Sie das Abonnement hier im Shop erwerben.
Listenfeld: Reihenfolge mehrerer Einträge ändern
Wir haben bereits in mehreren Beiträgen beschrieben, wie Sie die individuelle Reihenfolge von Elementen einer Tabelle über den Inhalt eines Feldes etwa namens »ReihenfolgeID« einstellen können – zum Beispiel in Listenfeldern oder Unterformularen in der Datenblattansicht. Dort haben wir die Reihenfolge dann durch Markieren der Einträge und anschließendes Betätigen etwa von Schaltflächen mit Beschriftungen wie »Ganz nach oben«, »Nach oben«, »Nach unten« oder »Ganz nach unten« geändert. Im vorliegenden Beitrag schauen wir uns nun an, wie wir im Listenfeld die Reihenfolge für mehrere Einträge gleichzeitig ändern können.
Mehrfach-Reihenfolge im Listenfeld
Listenfelder haben gegenüber der Datenblattansicht den großen Vorteil, dass Sie damit nicht nur zusammenhängende Einträge markieren können, sondern sogar Einträge, die beliebig im Listenfeld verteilt sind. Die einzige Voraussetzung dafür ist, dass Sie für die Eigenschaft Mehrfachauswahl des Listenfeldes den Wert Einzeln oder Erweitert auswählen. Welchen Sie nutzen, hängt von den Anforderungen und den Gewohnheiten der Benutzer ab – für die hier vorgestellte Lösung funktionieren beide gleich gut.
Entwurf des Beispielformulars
Das Beispielformular bauen wir wie in Bild 1 auf. Wir fügen ein Listenfeld namens lstKategorien ein sowie vier Schaltflächen namens cmdTop, cmdUp, cmdDown und cmdBottom.
Bild 1: Entwurf des Formulars frmMehrreihenfolgeListBox
Außerdem hinterlegen wir als Datensatzherkunft für das Listenfeld die Tabelle tblKategorien, deren Entwurf wie in Bild 2 aussieht. Genau genommen verwenden wir sogar eine Abfrage auf Basis dieser Tabelle, welche die Datensätze nach dem Feld ReihenfolgeID sortiert:
Bild 2: Entwurf der Tabelle tblKategorienSELECT tblKategorien.KategorieID, tblKategorien.Kategoriename, tblKategorien.ReihenfolgeID
FROM tblKategorien ORDER BY tblKategorien.ReihenfolgeID;
Die Eigenschaft Spaltenanzahl des Listenfeldes stellen wir auf 3 ein, die Eigenschaft Spaltenbreiten auf 0cm;5cm. Dadurch erscheinen nur das zweite und das dritte Feld der Datensatzherkunft im Listenfeld, also die Felder Kategoriename und ReihenfolgeID.
Definition des Änderns der Reihenfolge
Bevor wir uns an die Programmierung begeben, müssen wir noch herausfinden, wie die Reihenfolge überhaupt geändert werden soll. Bei einem einzelnen Element, dessen Reihenfolge verschoben werden soll, ist das kein Problem: Hier ermitteln wir die ReihenfolgeID des zu verschiebenden Elements und den des Zielelements und nehmen entsprechende Änderungen an den Inhalten dieses Felds für die betroffenen Datensätze vor.
Bei mehreren gleichzeitig zu verschiebenden Datensätzen, die darüberhinaus noch nicht einmal zusammenhängen müssen, ist allerdings zuvor zu definieren, welcher Datensatz wo landet. Wenn Sie beispielsweise den zweiten und den dritten Eintrag markieren und die Schaltfläche Ganz nach oben betätigen, ist die Aufgabe klar: Dann sollen der zweite und der dritte Datensatz die erste und die zweite Position einnehmen und der erste auf die dritte Position verschoben werden:
Vorher: Nachher:
Eintrag 1 Eintrag 2
Eintrag 2 Eintrag 3
Eintrag 3 Eintrag 1
... ...
Gleiches gilt, wenn diese beiden Datensätze etwa mit der Schaltfläche Nach unten um eine Position nach unten verschoben werden sollen: Dann landen der zweite und der dritte Eintrag auf der dritten und vierten Position und der vierte Eintrag wird nach oben auf die zweite Position verschoben:
Vorher: Nachher:
Eintrag 1 Eintrag 1
Eintrag 2 Eintrag 4
Eintrag 3 Eintrag 2
Eintrag 4 Eintrag 3
... ...
Was aber, wenn der Benutzer etwa den zweiten und den vierten Eintrag verschiebt? Dann gibt es zwei Möglichkeiten:
- Die Einträge werden in dem Raster, in dem sie sich gerade befinden, nach oben verschoben.
- Die zu verschiebenden Einträge werden zu einem Block zusammengefasst und an die Zielposition verschoben.
Beides lässt sich wieder besser am Beispiel erläutern. Angenommen, wir wollen den zweiten und den vierten Eintrag nach der ersten Methode um eine Position nach oben verschieben, sieht das so aus:
Vorher: Nachher:
Eintrag 1 Eintrag 2
Eintrag 2 Eintrag 1
Eintrag 3 Eintrag 4
Eintrag 4 Eintrag 3
Die Einträge werden also nach oben verschoben, behalten aber die Abstände zueinander bei. Oder wir verschieben einfach alle markierten Elemente an die Zielposition und alle verdrängten Elemente nach unten:
Vorher: Nachher:
Eintrag 1 Eintrag 2
Eintrag 2 Eintrag 4
Eintrag 3 Eintrag 1
Eintrag 4 Eintrag 3
Da die zweite Methode einfacher zu programmieren ist, werden wir diese verwenden. Auch, weil uns kein Anwendungsfall einfällt, bei dem man nach der erstgenannten Methode verfahren sollte.
Code für Formular und Listenfeld
Im Klassenmodul des Formulars legen wir zunächst drei Konstanten an, die wichtige Daten aufnehmen, die an vielen Stellen verwendet werden – zum Beispiel den Namen der Quelltabelle, des Primärschlüsselfeldes dieser Tabelle und des Reihenfolge-Feldes.
Auf diese Weise brauchen Sie diese Bezeichnungen nur an einer Stelle zu ändern, wenn Sie die Reihenfolge-Funktionen einmal in ein anderes Formular übernehmen wollen:
Const m_Table As String = "tblKategorien"
Const m_PKField As String = "KategorieID"
Const m_Orderfield As String = "ReihenfolgeID"
Außerdem deklarieren wir eine Variable namens m_ListBox, in der wie einen Verweis auf das Listenfeld speichern, das die Datensätze in der Reihenfolge anzeigen soll:
Dim m_ListBox As ListBox
Diese Variable füllen wir gleich beim Laden des Formulars in der folgenden Prozedur mit einem Verweis auf das gewünschte Listenfeld:
Private Sub Form_Load()
Set m_ListBox = Me!lstKategorien
FillOrderID
End Sub
Hier rufen wir auch gleich die Prozedur FillOrderID auf. Diese sorgt dafür, dass die Werte des Feldes ReihenfolgeID aktualisiert werden, so dass diese durchnummeriert sind.
ReihenfolgeID aktualisieren
Die Prozedur FillOrder sieht wie in Listing 1 aus. Diese Prozedur greift die Inhalte der Konstanten m_PKField, m_Orderfield und m_Table auf und stellt damit ein Recordset zusammen, das die Datensätze der angegebenen Tabelle, hier tblKategorien, mit den interessanten Feldern KategorieID und ReihenfolgeID enthält. Dieses Recordset durchläuft die Prozedur in einer Do While-Schleife und aktualisiert dort den Wert des Feldes aus m_Orderfield, hier ReihenfolgeID, mit dem Wert der Eigenschaft AbsolutePosition des Recordsets und addiert noch den Wert 1 hinzu. Dadurch werden die Datensätze der Tabelle mit Werten für das Feld ReihenfolgeID durchnummeriert.
Public Sub FillOrderID()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CodeDb
Set rst = db.OpenRecordset("SELECT " & m_PKField & ", " & m_Orderfield & " FROM " & m_Table & " ORDER BY " _
& m_Orderfield, dbOpenDynaset)
Do While Not rst.EOF
rst.Edit
rst(m_Orderfield) = rst.AbsolutePosition + 1
rst.Update
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub
Listing 1: Prozedur zum Wiederherstellen der Werte des Feldes ReihenfolgeID
Das Ergebnis sieht dann wie in Bild 3 aus.
Bild 3: Die Tabelle tblKategorien mit Werten im Feld ReihenfolgeIDSchaltflächen mit Code versehen
Die vier Schaltflächen versehen wir mit jeweils einer Prozedur, welche die Reihenfolge der aktuell markierten Einträge aktualisiert. Die Prozedur für die oberste Schaltfläche cmdTop lautet wie folgt:
Private Sub cmdTop_Click()
Dim lngTarget As Long
Dim lngMove() As Long
lngMove = GetMove
lngTarget = DMin(m_Orderfield, m_Table)
InterchangeOrder lngTarget, lngMove
RequeryControls lngMove
End Sub
Hier rufen wir als Erstes die Funktion GetMove auf. Diese ist dafür verantwortlich, ein Array zusammenzustellen, dass alle Primärschlüsselwerte der zu verschiebenden Einträge des Listenfeldes aufnimmt (siehe Listing 2). Die Funktion durchläuft dazu eine For Each-Schleife über alle ausgewählten Elemente des Listenfeldes (ItemsSelected), das wir mit m_ListBox referenziert haben. Der 0-basierte Index des jeweils durchlaufenen Elements wird in der Variablen var gespeichert. Darin wird zuerst das Array lngMove auf eine Anzahl von Einträgen entsprechend dem Wert der Variablen i erweitert. Dann weisen wir dem Element mit dem Index i den Wert der ersten Spalte des Listenfeldes zu (ItemData(var)). Schließlich erhöhen wir den Wert der Variablen i um eins, bevor wir den nächsten ausgewählten Eintrag untersuchen.
Private Function GetMove() As Long()
Dim lngMove() As Long
Dim i As Integer
Dim var As Variant
For Each var In m_ListBox.ItemsSelected
ReDim Preserve lngMove(i)
lngMove(i) = m_ListBox.ItemData(var)
i = i + 1
Next var
GetMove = lngMove
End Function
Listing 2: Die Prozedur GetMove
Die nächste Anweisung ermittelt mit der DMin-Funktion den kleinsten Wert des Feldes aus m_Orderfield (hier ReihenfolgeID) der Tabelle aus m_Table (hier tblKategorien) und speichert diesen in der Variablen lngTarget. Das ist in diesem Fall das Ziel beim Verschieben des Elements. Danach folgt der Aufruf der Prozedur InterchangeOrder mit lngTarget und dem Array lngMove als Parameter. Diese schauen wir uns weiter unten an. Die Prozedur stellt die ReihenfolgeID-Werte für die betroffenen Elemente neu ein.
Schließlich ruft die Prozedur noch eine weitere Routine namens RequeryControls auf. Diese aktualisiert zuerst den Inhalt des Listenfeldes, wodurch die Elemente nach dem Ändern der Werte des Feldes ReihenfolgeID durch die vorgegebene Sortierung gegebenenfalls neu angeordnet werden. Dann ruft sie die Prozedur SelectEntries auf, die dafür sorgt, dass die vor dem Verschieben markierten Einträge erneut markiert werden. Durch das Requery gehen die Markierungen nämlich verloren. Schließlich sorgt die Prozedur ActivateControls dafür, dass die Schaltflächen entsprechend der aktuell ausgewählten Elemente aktiviert oder deaktiviert werden. Wenn nämlich das erste Element markiert ist, sollen die Schaltflächen Ganz nach oben und Nach oben deaktiviert werden. Wenn das letzte Element markiert ist, sollen die Schaltflächen Nach unten und Ganz nach unten deaktiviert sein:
Private Sub RequeryControls(lngMove() As Long)
m_ListBox.Requery
SelectEntries lngMove()
ActivateControls
End Sub
Schaltfläche »Nach oben«
Bevor wir uns die hier erwähnten Prozeduren ansehen, werfen wir noch einen Blick auf den Code der übrigen Schaltflächen. Zunächst die Schaltfläche, mit der die aktuell markierten Einträge um eine Position nach oben verschoben werden sollen:
Private Sub cmdUp_Click()
Dim lngTarget As Long, lngTargetMove As Long
Dim lngMove() As Long
lngMove = GetMove
lngTargetMove = DLookup(m_Orderfield, m_Table, _
m_PKField & "=" & lngMove(0))
lngTarget = DMax(m_Orderfield, m_Table, m_Orderfield _
& "<" & lngTargetMove)
InterchangeOrder lngTarget, lngMove
RequeryControls lngMove
End Sub
Der Unterschied ist, dass wir den Wert für lngTarget, also für die Zielposition, auf etwas aufwendigere Weise ermitteln, und zwar mit zwei Domänenfunktionen. Die erste DLookup-Funktion ermittelt den Wert des Feldes ReihenfolgeID für den Datensatz der Tabelle tblKategorien, der dem ersten markierten Datensatz entspricht. Wenn also die Datensätze mit den Primärschlüsselwerten 2 und 3 markiert sind, die in diesem Fall auch die Positionen 2 und 3 innehaben, dann ist der mit dem Primärschlüsselwert 2 der aus lngMove(0), also der erste Wert des Arrays. Für diesen ermittelt die DLookup-Funktion dann den Wert des Feldes ReihenfolgeID, hier auch 2, und schreibt ihn in die Variable lngTargetMove. Die folgende DMax-Funktion ermittelt dann den größten Wert des Feldes ReihenfolgeID, der kleiner als der Wert aus lngTargetMove ist. Damit ist dann die Ziel-Reihenfolgenposition ermittelt und in der Variablen lngTarget gespeichert. Mit lngTarget und lngMove() wird dann wiederum die Prozedur InterchangeOrder aufgerufen und dann die Prozedur RequeryControls.
Schaltfläche »Ganz nach unten«
Dies war die Leseprobe dieses Artikels.
Melden Sie sich an, um auf den vollständigen Artikel zuzugreifen.