{"id":55000666,"date":"2009-06-01T00:00:00","date_gmt":"2020-05-22T22:23:26","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=666"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Drag_and_Drop_in_der_Datenblattansicht","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Drag_and_Drop_in_der_Datenblattansicht\/","title":{"rendered":"Drag and Drop in der Datenblattansicht"},"content":{"rendered":"

\"\"<\/p>\n

Im Beitrag Reihenfolge manuell anpassen (s. Shortlink 652) haben wir verschiedene Möglichkeiten für das Anpassen der Reihenfolge von Daten nach dem Inhalt eines speziellen ReihenfolgeID-Felds erläutert. Der vorliegende Beitrag setzt noch eins drauf: Er zeigt, wie Sie die Reihenfolge von Datensätzen in der Datenblattansicht eines Formulars per Drag and Drop anpassen können.<\/b><\/p>\n

„Mit den Techniken aus dem Reihenfolge-Artikel kann ich zwar einfach per Schaltfläche Datensätze in der Datenblattansicht nach oben und unten verschieben, aber noch einfacher wäre das doch per Drag and Drop. Und das ListView-Steuerelement, mit dem dies ginge, kommt für mich nicht infrage, weil die Anwendung im Mehrbenutzerbetrieb laufen soll und man so nur mit viel Aufwand die Anzeige aktueller Daten sicherstellen kann.“<\/p>\n

Bild 1 zeigt, was der Leser mit dieser Aussage meint: Er möchte einen Datensatz mit der Maus anklicken und diesen dann bei gedrückter Maustaste an eine andere Position im Datenblatt ziehen, wodurch dieser sich dann ober- oder unterhalb des Zieldatensatzes einordnet – und zwar darüber, wenn der Datensatz nach oben gezogen wird, und darunter, wenn er nach unten gezogen wird.<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Drag and Drop in der Datenblattansicht<\/span><\/b><\/p>\n

Hausgemachtes Drag and Drop<\/b><\/p>\n

Welchen Weg geht man, um dieses von Access in keiner Weise unterstützte Verhalten nachzubilden Eine Internetrecherche war wenig hilfreich: Dort gab es bestenfalls Informationen darüber, wie man per Drag and Drop den Inhalt eines Textfeldes in ein anderes verschiebt, aber nicht viel mehr.<\/p>\n

Bevor wir Hirnschmalz investieren, nehmen wir erstmal, was der oben erwähnte Beitrag Reihenfolge manuell anpassen <\/b>liefert, und bauen das Beispielformular zusammen.<\/p>\n

Als Tabelle mit zu sortierenden Daten dient die Tabelle tblPersonen<\/b>, die lediglich die Felder ID <\/b>(Primärschlüssel), Vorname<\/b>, Nachname <\/b>(beides Textfelder) und ReihenfolgeID <\/b>(Zahlenfeld) enthält.<\/p>\n

Außerdem fügen Sie aus der Beispieldatenbank des oben genannten Beitrags die Abfrage qryOrder <\/b>und das Modul mdlOrder <\/b>zu der Datenbank hinzu, die Drag and Drop in der Datenblattansicht ermöglichen soll. Die Abfrage qryOrder <\/b>passen Sie wie in Bild 2 an, damit sie sich auf die relevanten Felder der Tabelle tblPersonen <\/b>bezieht und als Grundlage der Routinen des Moduls mdlOrder <\/b>dienen kann.<\/p>\n

\"pic002.png\"<\/p>\n

Bild 2: Diese Abfrage liefert die Grundlage für das Sortieren der Datensätze.<\/span><\/b><\/p>\n

Das Formular frmDragAndDrop <\/b>der Beispieldatenbank zu diesem Beitrag statten Sie nicht etwa mit der Tabelle tblPersonen <\/b>als Datenherkunft aus, sondern mit einer Abfrage, die zwar alle Felder der Tabelle tblPersonen <\/b>enthält, diese aber in aufsteigender Reihenfolge nach dem Feld ReihenfolgeID <\/b>sortiert:<\/p>\n

SELECT ID, Vorname, Nachname, ReihenfolgeID\r\nFROM tblPersonen ORDER BY ReihenfolgeID;<\/pre>\n
Ereignisreich<\/b><\/p>\n
Schauen wir nun, was Access so an Einstiegspunkten für Drag and Drop in Formularen und speziell in der Datenblattansicht bietet. Da die Datenblattansicht im Prinzip komplett mit Steuerelementen bedeckt ist, konzentrieren wir uns auf die Ereigniseigenschaften der Steuerelemente. Für den Nachbau der Drag-and-Drop-Funktionalität brauchen wir mindestens zwei Ereignisse, die beim Anklicken und beim Loslassen der linken Maustaste ausgelöst werden. Wahrscheinlich brauchen wir auch noch das Ereignis, das beim Bewegen des Mauszeigers reagiert.<\/p>\n
Bestenfalls soll es so laufen: Der Benutzer klickt auf die linke Maustaste, während sich der Mauszeiger auf dem zu verschiebenden Datensatz befindet. Dies löst die Ereignisprozedur Bei Maustaste ab <\/b>aus und ist ein guter Zeitpunkt, um sich den betroffenen Datensatz zu merken. Dann zieht der Benutzer den Mauszeiger bei gedrückter Maustaste auf den Zieldatensatz und lässt die Maustaste wieder los. Hier tritt das Ereignis Bei Maustaste auf <\/b>auf den Plan: Eine prima Gelegenheit, um den Datensatz zu ermitteln, auf dem sich der Mauszeiger aktuell befindet.<\/p>\n
Zwischendurch kann man noch die Ereignisprozedur bemühen, die durch das Ereignis Bei Mausbewegung <\/b>ausgelöst wird und, falls die linke Maustaste angeklickt ist, ein alternatives Mauszeigersymbol zur Verdeutlichung des Drag-and-Drop-Vorgangs einblendet.<\/p>\n
So weit die Theorie – fangen wir also mit ein paar Fingerübungen an und sorgen dafür, dass der Mauszeiger sich beim Ziehen eines Datensatzes in ein anderes Symbol verwandelt. Diese Funktion soll in einer Routine namens MouseMove <\/b>untergebracht werden, die von den entsprechenden Ereignisprozeduren aller im Datenblatt enthaltenen Steuerelemente aufgerufen werden kann. Der Aufruf sieht im Beispiel des Textfelds txtID <\/b>mit dem Steuerelementinhalt ID <\/b>so aus:<\/p>\n
Private Sub txtID_MouseMove(button As Integer, µ\r\n    Shift As Integer, X As Single, Y As Single)\r\n    MouseMove button\r\n    End Sub<\/pre>\n
Die eigentliche Routine verwendet eine Funktion des Access-Entwicklers Terry Kreft <\/b>(http:\/\/www.mvps.org\/access\/api\/api0044.htm<\/b>), die als Parameter eine Konstante für das gewünschte Aussehen des Mauszeigers erwartet – und das je nachdem, ob gerade die linke Maustaste gedrückt ist oder nicht. Diese Information liefert die als Parameter übergebene Variable intButton<\/b>, wobei der Wert 1 <\/b>für die linke Maustaste, 2 <\/b>für die rechte und 0 <\/b>für gar keine gedrückte Maustaste steht:<\/p>\n
Private Sub MouseMove(intButton As Integer)\r\n    If intButton = 1 Then\r\n        MouseCursor IDC_MouseCursor.HAND\r\n    Else\r\n        MouseCursor IDC_MouseCursor.ARROW\r\n    End If\r\n    End Sub<\/pre>\n
<\/p>\n
Die Funktion MouseCursor <\/b>finden Sie übrigens im Modul mdlCustomMouseIcon <\/b>der Beispieldatenbank. Damit der Mauszeiger beim Drag and Drop in allen Steuerelementen umgewandelt wird, legen Sie entsprechende Aufrufe in der Ereignisprozedur Bei Mausbewegung <\/b>der einzelnen Steuerelemente an.<\/p>\n
Draggen, das ist gar nicht schwer …<\/b><\/p>\n
Auch für die Ereignisprozeduren Bei Maustaste ab <\/b>und Bei Maustaste auf <\/b>legen Sie je einen Aufruf der nachfolgend vorgestellten Funktionen MouseUp <\/b>und MouseDown <\/b>an, die im Beispiel des Textfelds txtID <\/b>so aussehen:<\/p>\n
Private Sub txtID_MouseDown(button As Integer, µ\r\n    Shift As Integer, X As Single, Y As Single)\r\n    MouseDown\r\n    End Sub\r\nPrivate Sub txtID_MouseUp(button As Integer, µ\r\n    Shift As Integer, X As Single, Y As Single)\r\n    MouseUp\r\n    End Sub<\/pre>\n
Schließlich benötigen wir noch zwei Variablen, in denen wir die Primärschlüsselwerte des zu verschiebenden und des Zieldatensatzes speichern können und die im vorliegenden Fall als Long<\/b>-Variablen ausgelegt werden (falls Sie beispielsweise ein Textfeld als Primärschlüsselfeld verwenden, müssen Sie die Variablen und den nachfolgend vorgestellten Code entsprechend anpassen):<\/p>\n
Dim lngDragID As Long\r\nDim lngDropID As Long<\/pre>\n
Der Rest ist doch einfach: Die beiden Routinen MouseUp <\/b>und MouseDown <\/b>sollen sich einfach die Start- und die Ziel-ReihenfolgeID <\/b>merken und die Reihenfolge mit der Funktion InterchangeOrder <\/b>aus dem Modul mdlOrder <\/b>(siehe Beitrag Reihenfolge manuell anpassen<\/b>, Shortlink 652) entsprechend vertauschen, was ja wohl so funktioniert:<\/p>\n
Private Sub MouseDown()\r\n    lngDragID = Nz(Me.ReihenfolgeID)\r\n    End Sub\r\nPrivate Sub MouseUp()\r\n    lngDropID = Nz(Me.ReihenfolgeID)\r\n    InterchangeOrder lngDrag, lngDrop\r\n    Me.Requery\r\n    End Sub<\/pre>\n
… Droppen dafür umso mehr!<\/b><\/p>\n
So, schnell ausprobieren und – nichts passiert! Was ist denn da schiefgelaufen Nun, das ist ganz einfach: Access verschiebt beim Loslassen der linken Maustaste einfach nicht den Fokus auf den Zieldatensatz und so können wir diesen auch nicht identifizieren. Um es kurz zu machen: Es gibt keine wirklich triviale Lösung, um den unter dem Mauszeiger befindlichen Datensatz zu identifizieren, wenn dieser nicht der gleiche ist, den man bereits angeklickt hat. Es gibt zum Beispiel die folgenden beiden Möglichkeiten, dies zu erledigen:<\/p>\n