Quellcode 2: Aufruf der Routine zum Füllen der beiden ListView-Steuerelemente<\/b><\/p>\nPrivate Sub Form_Current()\r\n Dim strSQLEmpfaenger As String\r\n Dim strSQLKeinEmpfaenger As String\r\n If Not IsNull(Me.Publikation) Then\r\n strSQLEmpfaenger = \"SELECT tblEmpfaenger.EmpfaengerID, tblEmpfaenger.Empfaenger \" _ & \"FROM tblEmpfaenger INNER JOIN tblVerteiler ON tblEmpfaenger.EmpfaengerID = \" _ & \" tblVerteiler.EmpfaengerID WHERE tblVerteiler.PublikationID = \" _ & Me.PublikationID & \" ORDER BY tblEmpfaenger.Empfaenger\"\r\n strSQLKeinEmpfaenger = \"SELECT tblEmpfaenger.EmpfaengerID, tblEmpfaenger.Empfaenger \" _ & \"FROM tblEmpfaenger WHERE tblEmpfaenger.EmpfaengerID NOT IN \" _ & \"(SELECT tblEmpfaenger.EmpfaengerID FROM tblEmpfaenger INNER JOIN tblVerteiler \" _ & \"ON tblEmpfaenger.EmpfaengerID = tblVerteiler.EmpfaengerID WHERE \" _ & \" tblVerteiler.PublikationID = \" & Me.PublikationID _ & \") ORDER BY tblEmpfaenger.Empfaenger\"\r\n ListeAktualisieren Me.lvwZugeordnet.Object, strSQLEmpfaenger\r\n ListeAktualisieren Me.lvwNichtZugeordnet.Object, strSQLKeinEmpfaenger\r\n End If\r\nEnd Sub<\/pre>\nBevor überhaupt irgendein Eintrag von links nach rechts und umgekehrt gezogen werden kann, müssen erst einmal überhaupt Einträge da sein – dementsprechend folgt nun die Beschreibung des Aufbaus des Formulars.<\/p>\n
Das Formular selbst ist an die Tabelle tblPublikationen gebunden. Bei jedem Wechsel des im Formular angezeigten Publikations-Datensatzes sollen auch die beiden ListViews aktualisiert werden. Die Routine wird daher logischerweise durch die Ereigniseigenschaft Beim Anzeigen aufgerufen.<\/p>\n
Die beiden ListViews sind fast identisch aufgebaut, was sich auch auf das Füllen mit Daten auswirkt: Die dazu benötigte Routine sieht für beide Steuerelemente fast identisch aus. So identisch, dass man daraus eine einzige parametrisierte Routine machen kann. Als Parameter übergibt die aufrufende Prozedur nur einen Verweis auf das jeweilige Listenfeld sowie den SQL-Ausdruck, der die einzufügenden Datensätze festlegt.<\/p>\n
Die Routine ListeAktualisieren ist für das Anlegen der Elemente der ListViews verantwortlich (s. Quellcode 1). Sie öffnet eine auf der übergebenen SQL-Anweisung basierende Datensatzgruppe und durchläuft diese. Dabei fügt sie je Datensatz ein Element zum angegebenen ListView hinzu. Das erste im SQL-Ausdruck angegebene Feld dient als Teil der Key-Eigenschaft des Elements, das zweite als angezeigter Text. Die beim Anzeigen des aktuellen Datensatzes im Formular ausgelöste Prozedur Form_Current ruft diese Routine zweimal mit verschiedenen Parametern auf (s. Quellcode 2).<\/p>\n
Der erste dabei verwendete SQL-Ausdruck ermittelt alle Datensätze der verknüpften Tabellen tblEmpfaenger und tblVerteiler, bei denen die in der Tabelle tblVerteiler angegebene PublikationID mit der aktuell im Formular angezeigten übereinstimmt. <\/p>\n
Quellcode 3: Der Drag-and-Drop-Vorgang startet im ListView lvwNichtZugeordnet …<\/b><\/p>\nPrivate Sub lvwNichtZugeordnet_OLEStartDrag(Data As Object, AllowedEffects As Long)\r\n Dim objListItem As ListItem\r\n Dim strData As String\r\n Dim strDataItems() As String\r\n For Each objListItem In lvwNichtZugeordnet.ListItems\r\n If objListItem.Selected = True Then\r\n strData = strData & objListItem.Key & \"¦\" & objListItem.Text & \";\"\r\n End If\r\n Next\r\n Data.Clear\r\n Data.SetData strData, ccCFText\r\nEnd Sub<\/pre>\nDie zweite SQL-Anweisung verwendet fast die gleiche Anweisung wie die erste – allerdings nur als Unterabfrage. Damit ermittelt diese Abfrage alle Empfänger-Datensätze, die nicht durch die erste SQL-Anweisung erfasst werden und dementsprechend nicht über die Tabelle tblVerteiler mit der aktuell angezeigten Publikation verknüpft sind.<\/p>\n
Aufbau der ListView-Steuerelemente<\/h3>\n
Die beiden ListViews sind genau gleich aufgebaut. Die einzigen Unterschiede sind der Name und die angezeigte Spaltenüberschrift. Die Eigenschaften im Detail:<\/p>\n
Name: lvwEmpfaenger beziehungsweise lvwKeinEmpfaenger<\/li>\nView: 3 – lvwReport<\/li>\nSpaltenköpfe: je einer mit einer Breite von 2500 und der Beschriftung Empfänger beziehungsweise Kein Empfänger<\/li>\nMultiSelect: aktiviert<\/li>\nOLEDragMode: 1 – ccOLEDragAutomatic<\/li>\nOLEDropMode: 1 – ccOLEDropManual<\/li>\nMit diesen Einstellungen und den beiden beschriebenen Routinen können Sie nun bereits die Daten aus den drei Tabellen darstellen. Es fehlt also nur noch die Drag-and-Drop-Funktion …<\/p>\n
Beim Drag and Drop mit ungebundenen Steuerelementen, wie es die ListViews nun einmal sind, ist vor allem eines zu beachten: Neben dem Verschieben des Eintrags zwischen den Listen müssen auch die dahinter liegenden Datenbanktabellen aktualisiert werden. Für das Ziehen eines Eintrags von einem zum anderen ListView benötigen Sie nur zwei Ereignisprozeduren – vorausgesetzt, Sie verzichten auf jeglichen Schnickschnack:<\/p>\n
OLEStartDrag beim Quell-ListView<\/li>\nOLEDragDrop beim Ziel-ListView<\/li>\n<\/p>\n
Die OLEStartDrag-Prozedur (s. Quellcode 3) durchläuft in einer Schleife alle Elemente des ListViews und prüft, welche Elemente markiert sind. Alle markierten Elemente werden an eine String-Variable angehängt – und zwar in der Form <Key>¦<Text>;.<\/p>\n
Wozu das alles Ganz einfach: Die Parameterliste der Ereignisprozedur enthält ein Objekt namens Data, das zunächst mit der Clear-Methode geleert und dann über die SetData-Methode mit der soeben zusammengestellten Liste gefüllt wird. Dieses Objekt (OLE-DataObject) ist eine Art Zwischenablage für Drag-and-Drop-Operationen und wird im Ziel-Steuerelement ausgelesen.<\/p>\n
Quellcode 4: … und endet im ListView lvwZugeordnet.<\/b><\/p>\nPrivate Sub lvwZugeordnet_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, _ Shift As Integer, x As Single, y As Single)\r\n Dim strData As String\r\n Dim strDataItems() As String\r\n Dim strText As String\r\n Dim strKey As String\r\n Dim i As Integer\r\n strData = Data.GetData(ccCFText)\r\n If InStr(1, strData, \"¦\") <> 0 Then\r\n If Right(strData, 1) = \";\" Then\r\n strData = Left(strData, Len(strData) - 1)\r\n End If\r\n strDataItems = Split(strData, \";\")\r\n For i = 0 To UBound(strDataItems)\r\n strKey = Split(strDataItems(i), \"¦\")(0)\r\n strText = Split(strDataItems(i), \"¦\")(1)\r\n If IsNull(DLookup(\"EmpfaengerID\", \"tblVerteiler\", \"PublikationID = \" _ & Me.PublikationID & \" AND EmpfaengerID = \" & Mid(strKey, 2))) Then\r\n lvwZugeordnet.ListItems.Add , strKey, strText\r\n lvwNichtZugeordnet.ListItems.Remove strKey\r\n CurrentDb.Execute \"INSERT INTO tblVerteiler(PublikationID, EmpfaengerID) \" _ & \"VALUES(\" & Me.PublikationID & \", \" & Mid(strKey, 2) & \")\"\r\n End If\r\n Next i\r\n End If\r\nEnd Sub<\/pre>\nDies passiert dann in der OLEDragDrop-Ereignisprozedur des Ziel-ListViews (s. Quellcode 4): Hier taucht das Objekt Data erneut in der Parameterliste auf. Die GetData-Methode gibt den Inhalt dieses Objekts preis. In der String-Variablen strData angekommen, werden die Daten direkt weiterverarbeitet: Nach der Prüfung, ob mindestens ein „Pipe“-Zeichen (¦) in der übergebenen Zeichenkette enthalten ist, teilen die folgenden Anweisungen die Zeichenkette zunächst in die durch Semikola (;) getrennten Bestandteile auf und speichern sie in einem String-Array. Dieses wird in einer For Next-Schleife über alle Elemente durchlaufen, wobei die Split-Anweisung die Elemente vor und hinter dem „Pipe“-Zeichen in die Variablen strKey und strText extrahiert. Und damit lässt sich natürlich leicht ein neues Element zum ListView hinzufügen. Gleiches gilt auch andersherum: Nachdem die Add-Methode der ListItems-Auflistung des Ziel-ListViews das neue Element hinzugefügt hat, entfernt die Remove-Methode selbiges aus dem Ursprungs-ListView.<\/p>\n
Mit diesen beiden Routinen können Sie nun schon Elemente von rechts nach links, aber noch nicht von links nach rechts ziehen. Das lässt sich aber leicht nachholen: Legen Sie einfach die passenden Ereignisprozeduren für das jeweils andere ListView-Steuerelement an.<\/p>\n
Beim Probieren fällt allerdings eines auf: Nach ein paar Drag-and-Drop-Operationen und einem Wechsel zu einem anderen Publikations-Datensatz im Formular und wieder zurück enthält jedes ListView wieder die ursprünglichen Elemente. Das liegt daran, dass die Datenbankseite bisher außen vor gelassen wurde: Sie können zwar lustig Elemente zwischen den ListViews hin- und herschieben, aber die entsprechenden änderungen an der Verknüpfungstabelle tblVerteiler erfolgen nicht.<\/p>\n
Der Aufwand hierfür ist allerdings vergleichsweise gering: Für das Hinzufügen eines Kontakts zur Liste der Empfänger muss man schließlich nur einen Datensatz mit der PublikationID und der EmpfaengerID zur Tabelle tblVerteiler hinzufügen; zum Entfernen des Empfängers aus der Liste löscht man einfach den passenden Eintrag aus der Tabelle tblVerteiler.<\/p>\n
Ein Platz für die SQL-Anweisungen ist auch schnell gefunden: Da die änderungen jeweils für alle markierten Elemente vorzunehmen sind, gehört die entsprechende Anweisung selbstverständlich in eine der For Next-Schleifen, die alle zu bewegenden Elemente durchläuft. Soll ein Eintrag aus dem Verteiler entfernt werden, fügen Sie diese Anweisung in die Routine lvwNichtZugeordnet_OLEDragDrop ein (in einer Zeile):<\/p>\n
CurrentDb.Execute \"DELETE FROM tblVerteiler WHERE PublikationID = \" & Me.PublikationID & \" AND EmpfaengerID = \" & Mid(strKey, 2)<\/pre>\nDie entsprechende Anweisung in der Routine lvwZugeordnet_OLEDragDrop sieht so aus:<\/p>\n
CurrentDb.Execute \"INSERT INTO tblVerteiler(PublikationID, EmpfaengerID) VALUES(\" & Me.PublikationID & \", \" & Mid(strKey, 2) & \")\"<\/pre>\nNeben dem Bewegen von Elementen zwischen zwei ListView-Steuerelementen ist auch das Einstellen der Reihenfolge von Elementen ein häufig gefragtes Thema. Dazu ist zunächst ein Feld in der Herkunftstabelle vorzusehen, das einen die Reihenfolge festlegenden Wert enthält – typischerweise heißt dieses Feld dann auch Reihenfolge.<\/p>\n
Wichtig ist die überlegung, wann die änderungen der Reihenfolge im ListView in die zugrunde liegende Tabelle übertragen werden.<\/p>\n
Wenn man dies nach jeder änderung erledigt, ist schon eine Menge Code notwendig. Daher beschränkt sich dieses Beispiel auf das übertragen der änderungen der Reihenfolge auf das Schließen des Formulars – das heißt, dass dann einmalig alle Elemente des ListViews durchlaufen und ihre neue Reihenfolge im Feld Reihenfolge der entsprechenden Tabelle vermerkt wird.<\/p>\n
Beispielformular<\/h3>\n
Das Formular enthält ein ListView namens ctlListView, das mit Daten aus der Tabelle tblPersonen gefüllt werden soll. Diese Tabelle enthält vier Spalten inklusive der erwähnten Spalte namens Reihenfolge (siehe Bild 3).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{7ABDCF3B-B1F7-47F1-BFC7-E4042FC26D49}\/pic003.png\")
<\/p>\n
<\/b><\/p>\n
Bild 3: Diese Tabelle speichert Daten mit individueller Angabe der Reihenfolge.<\/span><\/b><\/p>\nDas ListView-Steuerelement im Formular zeigt die Daten wie gehabt in der Ansicht lvwReport an. OLEDragMode und OLEDropMode stellt man auf ccOLEDragAutomatic beziehungsweise ccOLEDropManual ein. Da die Elemente mit der Maus verschoben werden sollen, wäre es gut, wenn man die Elemente über die ganze Spalte „greifen“ könnte – dazu aktivieren Sie die Eigenschaft FullRowSelect. Das ListView soll zwei Spalten anzeigen, deren Köpfe die Texte Nachname und Vorname enthalten.<\/p>\n
Füllen des ListViews<\/h3>\n
Das Füllen des Steuerelements erfolgt beim öffnen des Formulars in der Ereignisprozedur Form_Load (s. Quellcode 7). Die Routine erzeugt für jeden Datensatz ein Element im ListView, wobei die Startreihenfolge über die im Feld Reihenfolge festgelegten Zahlenwerte festgelegt ist. Der Inhalt dieses Feldes ist interessanterweise nicht Bestandteil der Elemente des ListViews. Der Grund ist, dass ein ListItem mit seinem Index bereits die aktuelle Reihenfolgeposition enthält.<\/p>\n
Start Dragging<\/h3>\n
Der Drag-and-Drop-Vorgang beginnt mit dem Markieren eines Elements mit der Maus und dem anschließenden Bewegen des Mauszeigers. Dies erkennt das Steuerelement und löst die Ereignisprozedur OLEStartDrag aus (s. Quellcode 8). Die Routine verwendet die Eigenschaft SelectedItem, um das markierte Element zu ermitteln. Dessen Daten werden durch ein „Pipe“-Zeichen (¦) getrennt in eine String-Variable geschrieben und dem Data-Parameter der Ereignisprozedur übergeben.<\/p>\n
Quellcode 7: Das ListView wird beim öffnen des Formulars mit den Datensätzen der Tabelle tblPersonen gefüllt.<\/b><\/p>\nPrivate Sub Form_Load()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim objListitem As ListItem\r\n Set db = CurrentDb\r\n Set rst = CurrentDb.OpenRecordset(\"SELECT * FROM tblPersonen ORDER BY Reihenfolge\", _ dbOpenDynaset)\r\n Set objListView = Me.ctlListView.Object\r\n Do While Not rst.EOF\r\n Set objListitem = objListView.ListItems.Add(, \"a\" & rst!PersonID, rst!Nachname)\r\n objListitem.ListSubItems.Add , , rst!Vorname\r\n rst.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\nQuellcode 8: Ermitteln des markierten Elements und Zwischenspeichern seiner Daten<\/b><\/p>\nPrivate Sub ctlListView_OLEStartDrag(Data As Object, AllowedEffects As Long)\r\n Dim strKey As String\r\n Dim objListitem As ListItem\r\n Set objListitem = ctlListView.SelectedItem\r\n strKey = objListitem.Key & \"¦\" & objListitem.Text & \"¦\" & objListitem.ListSubItems(1).Text _ & \"¦\" & objListitem.Index ''& \"¦\" & objListitem.ListSubItems(2).Text\r\n Data.Clear\r\n Data.SetData strKey\r\nEnd Sub<\/pre>\nQuellcode 9: Diese Routine sorgt für das Markieren des Elements, über dem sich der Mauszeiger aktuell befindet.<\/b><\/p>\nPrivate Sub ctlListView_OLEDragOver(Data As Object, Effect As Long, Button As Integer, _ Shift As Integer, x As Single, y As Single, State As Integer)\r\n Set ctlListView.DropHighlight = ctlListView.HitTest(x, y)\r\nEnd Sub<\/pre>\nQuellcode 10: Diese Routine führt die eigentliche Drag-and-Drop-Operation durch.<\/b><\/p>\nPrivate Sub ctlListView_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, _ Shift As Integer, x As Single, y As Single)\r\n ''Deklaration aus Platzgründen nicht abgedruckt\r\n strData = Data.GetData(ccCFText)\r\n strKey = Split(strData, \"|\")(0)\r\n strNachname = Split(strData, \"|\")(1)\r\n strVorname = Split(strData, \"|\")(2)\r\n lngReihenfolgeAlt = CLng(Split(strData, \"|\")(3))\r\n lngIndex = ctlListView.HitTest(x, y).Index\r\n lngReihenfolgeNeu = CLng(ctlListView.HitTest(x, y).Index)\r\n If Not lngReihenfolgeNeu = lngReihenfolgeAlt Then\r\n ctlListView.ListItems.Remove strKey\r\n Set objListitem = ctlListView.ListItems.Add(lngIndex, strKey, strNachname)\r\n objListitem.ListSubItems.Add , , strVorname\r\n bolReihenfolgeGeaendert = True\r\n End If\r\nEnd Sub<\/pre>\nVon dort kann die Ereignisprozedur OLEDragDrop die Zeichenkette wieder auslesen – dazu später mehr. Erstmal tritt die Ereignisprozedur OLEDragOver auf den Plan. Diese wird regelmäßig während des Ziehens ausgelöst. Hier sorgt sie dafür, dass das Element, über dem sich der Mauszeiger aktuell befindet, markiert wird. So kann der Benutzer genau erkennen, wo das zu verschiebende Element landet (s. Quellcode 9).<\/p>\n
Drag and Drop vollenden<\/h3>\n
Das Loslassen der Maustaste beziehungsweise das „Droppen“ löst die Ereignisprozedur OLEDragDrop aus (s. Quellcode 10). Zu diesem Zeitpunkt sind nun alle für die Operation notwendigen Informationen bekannt – nämlich das zu verschiebende Element und das Element, dessen Position es einnehmen soll. Die Daten des zu verschiebenden Elements entnimmt die Routine dem Data-Parameter der Ereignisprozedur, unter anderem auch den Index der vorherigen und der Zielposition.<\/p>\n
Unter Umständen versucht der Benutzer, den Eintrag auf sich selbst zu ziehen – in dem Fall soll natürlich keine änderung der Reihenfolge vorgenommen werden. Anderenfalls entfernt die Routine das Ausgangselement und legt es an der gewünschten Stelle neu an. Außerdem wird die Boolean-Variable bolReihenfolgeGeaendert auf den Wert True gesetzt. Wozu diese Variable notwendig ist, erfahren Sie weiter unten.<\/p>\n
Quellcode 11: Speichern der neuen Reihenfolge in der zugrunde liegenden Tabelle der Datenbank<\/b><\/p>\nPrivate Sub Form_Close()\r\n Dim db As DAO.Database\r\n Dim objListitem As ListItem\r\n If bolReihenfolgeGeaendert = True Then\r\n Set db = CurrentDb\r\n For Each objListitem In ctlListView.ListItems\r\n db.Execute \"UPDATE tblPersonen SET Reihenfolge = \" _ & objListitem.Index & \" WHERE PersonID = \" _ & Mid(objListitem.Key, 2)\r\n Next objListitem\r\n End If\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nNeue Reihenfolge speichern<\/h3>\n
Fehlt noch der letzte Schritt: Die neue Reihenfolge soll beim Schließen des Formulars gespeichert werden.<\/p>\n
Damit dies nicht unnötig geschieht, also wenn etwa gar keine änderung der Reihenfolge vorgenommen wurde, gibt es die oben erwähnte Boolean-Variable bolReihenfolgeGeaendert. Diese wird nur bei einer änderung der Reihenfolge auf den Wert True gesetzt. Die Ereignisprozedur Form_Close fragt diese Variable beim Schließen des Formulars ab und speichert die neue Reihenfolge nur, wenn diese Variable den Wert True enthält.<\/p>\n
Das Speichern ist ein Rundumschlag: Da die Anwendung nicht nachvollzieht, welche Elemente ihre Reihenfolge verändert haben, muss die Reihenfolge aller Elemente auf den neuesten Stand gebracht werden.<\/p>\n
Dazu durchläuft die Routine in einer For Each-Schleife alle Elemente und führt jeweils eine SQL-Update-Anweisung aus.<\/p>\n
Reihenfolge über Spaltenköpfe festlegen<\/h3>\n
Natürlich wäre es praktisch, wenn man die Reihenfolge auch einmal entsprechend der alphabetischen Sortierung der Spalte festlegen könnte. Das Beispielformular enthält diese Funktion, die aus Platzgründen nicht mehr im Detail besprochen werden kann.<\/p>\n
Zu beachten ist hierbei: Wenn eine Sortierung nach einer Spalte aktiviert ist, bleiben die oben beschriebenen Drag-and-Drop-Funktionen wirkungslos – die Spaltensortierung wird jedes Mal direkt wiederhergestellt.<\/p>\n
Deshalb hat das Formular eine zusätzliche Schaltfläche zum Aufheben der aktiven Spaltensortierung (siehe Bild 4). Für weitere Informationen konsultieren Sie den Quellcode des Beispielformulars.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{7ABDCF3B-B1F7-47F1-BFC7-E4042FC26D49}\/pic004.png\")
<\/p>\n
Bild 4: Das Formular zum individuellen Sortieren von Daten im Einsatz<\/span><\/b><\/p>\n","protected":false},"excerpt":{"rendered":"Listenfelder sind eine schöne Einrichtung. Wie schade, dass sie kein Drag and Drop erlauben. Aber vielleicht haben Sie Glück und setzen Access 2002 oder höher ein oder besitzen ein passendes Ent-wicklerpaket: Dann können Sie nämlich das ListView-Steuerelement verwenden und mit diesem die gewünschte Drag and Drop-Funktion realisieren.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022006,662006,44000028,44000023],"tags":[],"class_list":["post-55000334","post","type-post","status-publish","format-standard","hentry","category-66022006","category-662006","category-Ergonomie_und_Benutzeroberflaeche","category-Mit_Formularen_arbeiten"],"yoast_head":"\n
Drag and Drop mit dem ListView-Steuerelement - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Drag and Drop mit dem ListView-Steuerelement\" \/>\n<meta property=\"og:description\" content=\"Listenfelder sind eine schöne Einrichtung. Wie schade, dass sie kein Drag and Drop erlauben. Aber vielleicht haben Sie Glück und setzen Access 2002 oder höher ein oder besitzen ein passendes Ent-wicklerpaket: Dann können Sie nämlich das ListView-Steuerelement verwenden und mit diesem die gewünschte Drag and Drop-Funktion realisieren.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:18:17+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg01.met.vgwort.de\/na\/23cbcd5762b246cfbe767d38a54240d1\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"14\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Drag and Drop mit dem ListView-Steuerelement\",\"datePublished\":\"2020-05-06T15:18:17+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/\"},\"wordCount\":2216,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/23cbcd5762b246cfbe767d38a54240d1\",\"articleSection\":[\"2\\\/2006\",\"2006\",\"Ergonomie und Benutzeroberfl\u00e4che\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/\",\"name\":\"Drag and Drop mit dem ListView-Steuerelement - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/23cbcd5762b246cfbe767d38a54240d1\",\"datePublished\":\"2020-05-06T15:18:17+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/23cbcd5762b246cfbe767d38a54240d1\",\"contentUrl\":\"http:\\\/\\\/vg01.met.vgwort.de\\\/na\\\/23cbcd5762b246cfbe767d38a54240d1\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Drag_and_Drop_mit_dem_ListViewSteuerelement\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Drag and Drop mit dem ListView-Steuerelement\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Drag and Drop mit dem ListView-Steuerelement - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/","og_locale":"de_DE","og_type":"article","og_title":"Drag and Drop mit dem ListView-Steuerelement","og_description":"Listenfelder sind eine schöne Einrichtung. Wie schade, dass sie kein Drag and Drop erlauben. Aber vielleicht haben Sie Glück und setzen Access 2002 oder höher ein oder besitzen ein passendes Ent-wicklerpaket: Dann können Sie nämlich das ListView-Steuerelement verwenden und mit diesem die gewünschte Drag and Drop-Funktion realisieren.","og_url":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:18:17+00:00","og_image":[{"url":"http:\/\/vg01.met.vgwort.de\/na\/23cbcd5762b246cfbe767d38a54240d1","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"14\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Drag and Drop mit dem ListView-Steuerelement","datePublished":"2020-05-06T15:18:17+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/"},"wordCount":2216,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/23cbcd5762b246cfbe767d38a54240d1","articleSection":["2\/2006","2006","Ergonomie und Benutzeroberfl\u00e4che","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/","url":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/","name":"Drag and Drop mit dem ListView-Steuerelement - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#primaryimage"},"thumbnailUrl":"http:\/\/vg01.met.vgwort.de\/na\/23cbcd5762b246cfbe767d38a54240d1","datePublished":"2020-05-06T15:18:17+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#primaryimage","url":"http:\/\/vg01.met.vgwort.de\/na\/23cbcd5762b246cfbe767d38a54240d1","contentUrl":"http:\/\/vg01.met.vgwort.de\/na\/23cbcd5762b246cfbe767d38a54240d1"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_mit_dem_ListViewSteuerelement\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Drag and Drop mit dem ListView-Steuerelement"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000334","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000334"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000334\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000334"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000334"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000334"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![](\"..\/fileadmin\/_temp_\/{7ABDCF3B-B1F7-47F1-BFC7-E4042FC26D49}\/pic001.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{7ABDCF3B-B1F7-47F1-BFC7-E4042FC26D49}\/pic002.png\")
<\/p>\n