![\"Hinzufügen](\"..\/tl_files\/images\/pic_184_001.png\")
<\/a><\/p>\nBild 1: Hinzufügen eines Feldes für die Definition einer individuellen Reihenfolge<\/p>\n
Nun weisen Sie allen Datensätzen einen der Beliebtheit entsprechenden Zahlenwert zu und sortieren diese nach dem Feld ReihenfolgeID<\/b>. Das Feld ReihenfolgeID <\/b>erhält einen numerischen Datentyp und sollte den gleichen Wertebereich wie das Primärschlüsselfeld der Tabelle enthalten. Das ist grundsätzlich die Lösung für eine individuelle Sortierung. Allerdings ist diese nicht besonders komfortabel: Wer will schon manuell die Zahlenwerte für die Reihenfolge von Datensätzen eintragen<\/p>\n
Wenn Sie beispielsweise den zehnten Eintrag einer Liste an die erste Stelle verschieben möchten, legen Sie für das Feld Reihenfolge <\/b>des zu verschiebenden Datensatzes den Wert 1 <\/b>ein. Der Datensatz, der bislang den Wert 1 <\/b>im Feld Reihenfolge<\/b> enthielt, bekommt die 2<\/b>, der mit der 2 <\/b>die 3 <\/b>und so weiter.<\/p>\n
Wenn Sie einen eindeutigen Index für das Feld ReihenfolgeID<\/b> festgelegt haben, wird es noch komplizierter – Sie müssen dann für das zu verschiebende Element temporär einen neuen Wert festlegen (zum Beispiel 999<\/b> oder einfach einen Wert, der um eins größer als der bislang größte Wert ist), dann dem neunten Datensatz den Wert 10<\/b>, dem achten den Wert 9 <\/b>und so weiter zuweisen, bevor der zehnte Datensatz den Wert 1 <\/b>im Feld ReihenfolgeID <\/b>erhält (siehe Bild 2).<\/p>\n
Bild 2: änderungen im Feld ReihenfolgeID beim Verschieben des zehnten Eintrags an die erste Position<\/p>\n Was aber ist nun der Unterschied zwischen dem Reihenfolge-Feld und anderen Feldern, nach denen Sie Datensätze sortieren – beispielsweise Preis, Gewicht et cetera Ganz klar: Das Reihenfolge-Feld hat, genau wie in vielen Fällen das Primärschlüsselfeld einer Tabelle, nur eine einzige Aufgabe – und die dient nicht dem Speichern von Geschäftsdaten. Sondern – in diesem Fall – dem Festhalten einer allein vom Benutzer definierten Reihenfolge. Im Gegensatz dazu hat das Primärschlüsselfeld meist einzig und allein die Aufgabe, einen Datensatz eindeutig zu kennzeichnen. Manchmal hat der Primärschlüsselwert auch noch andere Aufgaben und dient beispielsweise als Kundennummer oder Artikelnummer.<\/p>\n Zum Sortieren der Datensätze nach den Werten des Feldes ReihenfolgeID <\/b>benötigen Sie eine Abfrage. Diese heißt qryKundenNachReihenfolgeID <\/b>und enthält zu Beispielzwecken nur einige wenige Felder der als Datenherkunft dienenden Tabelle – darunter natürlich das Feld ReihenfolgeID <\/b>und, zur fixen eindeutigen Identifizierung, das Feld KundeID<\/b>. Für das Feld ReihenfolgeID <\/b>legen Sie die aufsteigende Sortierung fest (siehe Bild 3). Auf diese Weise sortiert die Tabelle das Ergebnis der Abfrage allein nach dem Wert des Feldes ReihenfolgeID<\/b>.<\/p>\n Bild 3: Abfrage zur Sortierung der Kunden nach dem Wert des Feldes ReihenfolgeID<\/p>\n Wie bereits erwähnt, werden Sie die Reihenfolge nicht durch manuelles Anpassen der Werte des Feldes ReihenfolgeID <\/b>einstellen wollen. Deshalb erstellen Sie nun ein Formular, das die Datensätze der Tabelle tblKunden <\/b>in einem Listenfeld anzeigt und einige Steuerelemente enthält, um die Position des aktuell markierten Datensatzes anzupassen. Später zeigen wir noch die Anpassung der Reihenfolge für die in einem Unterformular in der Datenblattansicht angezeigten Daten an.<\/p>\n Das Listenfeld im Formular frmReihenfolgeImListenfeld <\/b>enthält die Abfrage qryKundenNachReihenfolgeID <\/b>als Datenherkunft. Listenfelder sollen normalerweise nicht die Werte des Primärschlüsselwertes anzeigen, aber in diesem Fall schon – dies erleichtert die Prüfung, ob die nachfolgend hinzugefügten Schaltflächen zum Anpassen der Reihenfolge funktionieren. Geben Sie dazu den Wert 2 <\/b>für die Eigenschaft Spaltenanzahl <\/b>und 1cm <\/b>für die Eigenschaft Spaltenbreiten <\/b>ein (siehe Bild 4). Dadurch wird die erste Spalte mit einer Breite von einem Zentimeter angezeigt, die zweite Spalte nimmt die restliche Breite ein. Wie ändern wir nun die Reihenfolge Es gibt mehrere Möglichkeiten. Wenn Sie für andere Benutzer programmieren, sollten Sie eine offensichtliche Variante verwenden – also beispielsweise entsprechende Schaltflächen. Das Betätigen dieser Schaltflächen wirkt sich immer auf den jeweils markierten Datensatz aus. Die Schaltflächen sollen die folgenden Funktionen ermöglichen:<\/p>\n Bild 4: Listenfeld mit den nach dem Feld ReihenfolgeID sortierten Datensätzen in der Entwurfsansicht<\/p>\n Später soll das Formular wie in Bild 5 aussehen. Unten rechts sehen Sie noch eine Schaltfläche mit einer wichtigen Funktion – dem initialen Festlegen der ReihenfolgeID oder zum Zurücksetzen dieses Feldes.<\/p>\n Bild 5: Formular mit den Schaltflächen zum individuellen Einstellen der Reihenfolge<\/p>\n Wenn Sie den Daten erst nachträglich das Feld ReihenfolgeID <\/b>hinzugefügt haben, müssen Sie dieses noch füllen. Dies soll die Schaltfläche cmdZuruecksetzen <\/b>erledigen, wenn der Benutzer sie anklickt. Dazu legen Sie eine entsprechende Ereignisprozedur an (Schaltfläche markieren, Eigenschaft Beim Klicken <\/b>auf [Ereignisprozedur] <\/b>einstellen und auf die Schaltfläche mit den drei Punkten klicken) und ergänzen diese wie folgt:<\/p>\n Die durch die einzige Anweisung dieser Prozedur aufgerufene Routine sieht wie in Listing 1 aus. Die Prozedur deklariert ein Database<\/b>– und ein Recordset<\/b>-Objekt. Das Database<\/b>-Objekt db <\/b>wird mit einem Verweis auf die aktuelle Datenbank gefüllt, rst <\/b>nimmt ein Recordset mit allen Datensätzen der Abfrage qryKundenNachReihenfolgeID <\/b>auf. Anschließend durchläuft eine Do While<\/b>-Schleife alle Datensätze dieses Recordsets. Dabei wird der jeweils aktuelle Datensatz zum Bearbeiten vorbereitet, der Wert des Feldes ReihenfolgeID <\/b>angepasst und der Datensatz gespeichert. Welchen Wert erhält das Feld ReihenfolgeID<\/b> Den Wert der Eigenschaft AbsolutePosition<\/b>, also der Position des Datensatzzeigers, plus eins – weil AbsolutePosition immer mit 0 <\/b>beginnt, wir aber eine Nummerierung von 1 <\/b>beginnend brauchen.<\/p>\n Listing 1: Zurücksetzen des Feldes ReihenfolgeID<\/p>\n Wir schauen uns nun die für die zweite Schaltfläche notwendige Funktion an. Ein Klick auf diese Schaltfläche soll den aktuellen Datensatz um eine Position nach oben verschieben. Dazu führt die Prozedur folgende Schritte durch – bezogen auf Bild 6, wo der Datensatz mit dem Wert 7<\/b> im Feld KundeID <\/b>(ReihenfolgeID <\/b>ist auch 7<\/b>) mit dem darüber liegenden Datensatz vertauscht werden soll:<\/p>\n Bild 6: Drei Schritte zum ändern der Reihenfolge zweier Elemente<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nSortieren der Datensätze nach der Reihenfolge<\/h2>\n
<\/a><\/p>\nReihenfolge komfortabel einstellen<\/h2>\n
<\/a><\/p>\n\n
<\/a><\/p>\nEintragen der ReihenfolgeID<\/h2>\n
Private Sub <\/span>cmdZuruecksetzen_Click()\r\n ReihenfolgeZuruecksetzen\r\nEnd Sub<\/span> <\/pre>\nPublic Sub <\/span>ReihenfolgeZuruecksetzen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryKundenNachReihenfolgeID ORDER BY KundeID\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n rst.Edit\r\n rst!ReihenfolgeID = rst.AbsolutePosition + 1\r\n rst.Update\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nDatensätze verschieben<\/h2>\n
<\/a><\/p>\n\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t