![\"Vorbereitung](\"..\/tl_files\/images\/pic_188_001.png\")
<\/a><\/p>\nBild 1: Vorbereitung der Tabelle tblKunden<\/p>\n
Dieses Feld müssen wir noch initial füllen, was wir gleich beim öffnen des Formulars erledigen. Damit ist auch sichergestellt, dass zwischenzeitlich hinzugefügte Felder oder entfernte Felder berücksichtigt werden.<\/p>\n
Beispielformular<\/h2>\n
Das Beispielformular heißt frmListView-Drag-Drop-Rei-hen-folge<\/b>. Fügen Sie diesem zunächst ein einfaches ListView<\/b>-Steuerelement hinzu (Steuer-ele-mente|ActiveX-Steuerelemente<\/b>, dort Microsoft List-View Control 6.0 (SP6) <\/b>auswählen). Benennen Sie dieses Steuerelement mit lvwKunden<\/b>.<\/p>\n
Nun sorgen Sie dafür, dass das ListView<\/b>-Steuerelement beim Laden des Formulars mit den gewünschten Daten gefüllt wird – allerdings nicht, ohne den Wert des Feldes ReihenfolgeID <\/b>zuvor anzupassen.<\/p>\n
Doch zunächst zu der Prozedur, die beim Laden des Formulars ausgelöst wird. Diese legen Sie durch Auswählen des Eintrags [Ereignisprozedur] <\/b>für die Eigenschaft Beim Laden <\/b>des Formulars und anschließendes Anklicken der Schaltfläche mit den drei Punkten (…<\/b>) an.<\/p>\n
Die nun erscheinende Prozedur, die gleichzeitig mit dem Klassenmodul Form_frmListViewDragDropReihenfolge<\/b> angelegt wird, füllen Sie wie in Listing 1 abgebildet. Damit die dort verwendete Variable objLvwKunden<\/b>, mit der die Prozedur auf das ListView<\/b>-Steuerelement verweist, bekannt ist, deklarieren Sie diese in einer eigenen Zeile im Kopf des Moduls – also gleich unter den beiden Option …<\/b>-Zeilen:<\/p>\n Listing 1: Einrichten und Füllen des ListView-Steuerelements<\/p>\n Das Schlüsselwort WithEvents <\/b>verwenden wir, damit wir im Klassenmodul des Formulars ganz einfach Ereignisprozeduren anlegen können, die durch das ListView-Steuerelement ausgelöst werden. Dies ist für die Programmierung der Drag-and-Drop-Funktionalität wichtig.<\/p>\n Die Prozedur ruft zunächst die Prozedur ReihenfolgeAktualisieren <\/b>auf, die sich um das Füllen des Feldes ReihenfolgeID <\/b>kümmert – mehr dazu weiter unten.<\/p>\n Danach füllt sie die Variable objLvwKunden <\/b>mit einem Verweis auf das entsprechende Steuerelement. Anschließend stellt es einige Eigenschaften dieses Steuerelements ein. Dies könnten Sie auch über den Eigenschaften-Dialog des Steuerelements durchführen, aber wir erledigen das per Code.<\/p>\n Neben einigen optischen Einstellungen sorgt die Methode Add <\/b>der ColumnHeaders<\/b>-Auflistung für das Anlegen einer einzigen Spalte, welche später die Werte des Feldes Firma <\/b>der Kundendatensätze aufnehmen soll. Da dies die einzige Spalte ist, stellt die Prozedur die Spaltenbreite auf die Breite des Steuerelements ein. Schließlich folgen zwei Einstellungen, die für die Programmierbarkeit von Drag and Drop wichtig sind: OLEDragMode <\/b>und OLEDropMode<\/b>.<\/p>\n Den Abschluss macht ein Aufruf der Prozedur KundenFuellen<\/b>, die schließlich die Kundennamen in das ListView<\/b>-Steuerelement füllt.<\/p>\n Die Prozedur ReihenfolgeAktualisieren <\/b>aus Listing 2 verwendet die Abfrage qryKundenNachReihenfolgeID <\/b>als Basis eines Recordsets. Die Prozedur durchläuft alle Datensätze dieser Abfrage in einer Do While<\/b>-Schleife und bearbeitet dabei den jeweils aktuelle Datensatz, indem sie den Wert des Feldes ReihenfolgeID <\/b>auf einen Wert einstellt, welcher der Eigenschaft AbsolutePosition <\/b>des aktuellen Recordsets plus eins entspricht. Der Wert 1 <\/b>wird deshalb addiert, weil AbsolutePosition <\/b>für den ersten Datensatz den Wert 0 <\/b>liefert, die Werte des Feldes ReihenfolgeID <\/b>jedoch mit 1 <\/b>beginnen sollen.<\/p>\n Listing 2: Einstellen der ReihenfolgeID der enthaltenen Datensätze<\/p>\n Zum Einstellen dieses Wertes versetzt die Prozedur den Datensatz mit der Edit<\/b>-Methode in den Bearbeitungsmodus, ändert den Wert des Feldes ReihenfolgeID <\/b>und speichert die änderung mit der Update<\/b>-Methode. Die MoveNext<\/b>-Methode verschiebt den Datensatzzeiger auf den nächsten Datensatz. Dieser Vorgang wird solange wiederholt, bis die Eigenschaft EOF <\/b>des Recordset<\/b>-Objekts den Wert True <\/b>annimmt – der Datensatzzeiger befindet sich somit hinter dem letzten Datensatz.<\/p>\n Interessant ist die Abfrage qryKundenNachReihenfolgeID<\/b>, welche festlegt, in welcher Reihenfolge die Kundendatensätze tatsächlich nummeriert werden. Die Abfrage finden Sie in Bild 2. Sie basiert auf der Tabelle tblKunden <\/b>und enthält drei Felder, von denen nur das Feld ReihenfolgeID <\/b>angezeigt wird. Das zweite und das dritte Feld dienen der korrekten Sortierung vor dem Aktualisieren der Reihenfolge.<\/p>\n Bild 2: Abfrage zum Einstellen der ReihenfolgeID der Kundendatensätze<\/p>\n Wichtig ist, dass diese Abfrage die Reihenfolge der vorhandenen Kundendatensätze nicht durcheinander bringt und dass neue Datensätze hinten eingereiht werden.<\/p>\n Daher sortiert die Abfrage die Datensätze zunächst nach dem Feld ReihenfolgeID <\/b>und erst danach nach dem Feld KundeID<\/b>. Würde man dies so belassen, würde die Abfrage jedoch zuerst die neu hinzugefügten Datensätze liefern. Diese weisen nämlich den Wert Null <\/b>im Feld ReihenfolgeID <\/b>auf und sind in der Reihenfolge vor den mit Zahlenwerten gefüllten Feldern zu finden.<\/p>\n Also müssen wir dafür sorgen, dass der Wert Null <\/b>durch einen Wert ersetzt wird, der größer als die bisher vergebenen Werte im Feld ReihenfolgeID <\/b>ist. Da die Sortierung per Drag and Drop ohnehin nur für eine überschaubare Anzahl Datensätze sinnvoll ist, gehen wir davon aus, dass der Wert 999.999 <\/b>ausreichend ist. Der folgende Ausdruck prüft, ob ReihenfolgeID leer ist (also den Wert Null <\/b>enthält) und fügt in diesem Fall den Wert 999.999 <\/b>ein:<\/p>\n Das Ergebnis der Nz<\/b>-Funktion wird in der Abfrage aber dummerweise als String interpretiert. Sie können sich dies in der Abfrage qryKundenNachReihenfolgeIDFalsch <\/b>ansehen, die das Ergebnis aus Bild 3 liefert.<\/p>\n Bild 3: Fehlerhafte Interpretation der Ergebnisse von Nz<\/p>\n Zumindest erfolgt dort die Sortierung so, als ob es sich bei dem Feld um ein Textfeld handelt – 10 <\/b>landet so beispielsweise vor 2<\/b>.<\/p>\n Dies lässt sich allerdings beheben, indem wir das Ergebnis der Nz<\/b>-Funktion noch mit der CLng<\/b>-Funktion in einen Long<\/b>-Wert konvertieren.<\/p>\n Zuletzt ruft die Prozedur Form_Load <\/b>die Routine KundenFuellen<\/b> auf (siehe Listing 3). Diese erzeugt ein Recordset auf Basis der Tabelle tblKunden<\/b>, wobei die Reihenfolge durch das soeben frisch gefüllte Feld ReihenfolgeID <\/b>festgelegt wird.<\/p>\n Listing 3: Einlesen der Datensätze und Einfügen in das ListView-Steuerelement<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>Form_Load()\r\n Call<\/span> ReihenfolgeAktualisieren\r\n Set<\/span> objLvwKunden = Me!lvwKunden.Object\r\n With<\/span> objLvwKunden\r\n .View = lvwReport\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .FlatScrollBar = False<\/span>\r\n .ColumnHeaders.Clear\r\n .ColumnHeaders.Add , , \"Kunde\", Me!lvwKunden.Width\r\n .OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual\r\n End With<\/span>\r\n KundenFuellen\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents objLvwKunden As <\/span>MSComctlLib.ListView<\/pre>\nReihenfolge aktualisieren<\/h2>\n
Public Sub <\/span>ReihenfolgeAktualisieren()\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\", 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>\n<\/a><\/p>\nReihenfolge: ZLong(Nz([ReihenfolgeID];999999))<\/pre>\n
<\/a><\/p>\nEintragen der ListView-Werte<\/h2>\n
Private Sub <\/span>KundenFuellen()\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 tblKunden ORDER BY ReihenfolgeID\", dbOpenDynaset)\r\n objLvwKunden.ListItems.Clear\r\n Do While<\/span> Not<\/span> rst.EOF\r\n objLvwKunden.ListItems.Add , \"a\" & rst!KundeID, rst!Firma\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\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