{"id":55000179,"date":"2013-12-01T00:00:00","date_gmt":"2020-01-24T15:58:44","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=179"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"ListViewSteuerelement_Drag_and_Drop_Teil_I","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/ListViewSteuerelement_Drag_and_Drop_Teil_I.html","title":{"rendered":"ListView-Steuerelement: Drag and Drop, Teil I"},"content":{"rendered":"

ListView-Steuerelemente unterstützen im Gegensatz zum Listenfeld sogar den Einsatz von Drag and Drop. Damit können Sie nicht nur Einträge von einem ListView-Steuerelement zum nächsten ziehen, sondern auch die Reihenfolge der Einträge eines ListView-Steuerelements einstellen. Im ersten Teil dieser Mini-Artikelreihe zeigen wir, wie Sie Datensätze zwischen zwei ListView-Steuerelementen hin- und herziehen.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1212_ListView.mdb<\/b>.<\/p>\n

Von ListView zu ListView per Drag and Drop<\/h2>\n

Einträge von einem ListView-Steuerelement zum nächsten Ziehen und fort fallenlassen – und umgekehrt Wozu soll das gut sein Nun: Beispielsweise können Sie so die Zuordnung von Elementen in einer m:n-Beziehung verwalten. Das Hauptformular zeigt dann die Datensätze der einen Seite der Beziehung an, die beiden ListView-Steuerelemente die diesem Datensatz zugeordneten und die nicht zugeordneten Datensätze der anderen Seite der Beziehung.<\/p>\n

Die bisher in den Beispielen zum ListView-Steuerelement verwendeten Tabellen der Südsturm-Beispieldatenbank enthalten leider nur eine einzige m:n-Beziehung (zwischen den Bestellungen und den Artikeln). Diese ist leider nicht für dieses Beispiel geeignet, da ja hier noch einige weitere Daten wie Menge, Einzelpreis et cetera verwaltet werden müssen.<\/p>\n

Also fingieren wir einfach ein geeignetes Beispiel. Die Tabelle tblArtikel <\/b>enthält bislang ein Fremdschlüsselfeld, mit dem der Lieferant des Artikels eingestellt werden kann. Der Nachteil dieser Verknüpfung ist, dass Sie für jeden Artikel nur einen einzigen Lieferanten bestimmen können. In der Praxis gibt es jedoch meist noch weitere Lieferanten, die herangezogen werden, wenn der erste Lieferant nicht liefern kann oder ein anderer Lieferant einen günstigeren Preis anbietet.<\/p>\n

Wir benötigen also eine Tabelle, mit der Sie einem Artikel einen oder mehrere Lieferanten zuordnen können. Diese sieht wie in Bild 1 aus und enthält neben dem Primärschlüsselfeld noch zwei weitere Felder namens ArtikelID <\/b>und LieferantID<\/b>. Für diese beden Felder legen Sie außerdem einen zusammengesetzten Schlüssel fest, dessen Eigenschaft Eindeutig <\/b>den Wert Ja <\/b>erhält. Damit stellen Sie sicher, dass jeder Lieferant jedem Artikel nur einmal zugeordnet werden kann.<\/p>\n

\"Tabelle<\/a><\/p>\n

Bild 1: Tabelle zur Herstellung einer m:n-Beziehung<\/p>\n

Nun müssen Sie noch festlegen, dass die beiden Felder nur die Primärschlüsselwerte der Tabellen tblArtikel <\/b>und tblLieferanten <\/b>annehmen können. Dazu öffnen Sie das Beziehungen-Fenster von Access und fügen die drei Tabellen tblArtikel<\/b>, tblLieferanten <\/b>und tblArtikelLieferanten <\/b>hinzu. Ziehen Sie das Feld ArtikelID <\/b>der Tabelle tblArtikel <\/b>auf das gleichnamige Feld der Tabelle tblArtikelLieferanten<\/b>. Erledigen Sie das Gleiche für das Feld LieferantID<\/b>.<\/p>\n

Anschließend legen Sie die Beziehungseigenschaften fest (siehe Bild 2). Aktivieren Sie die Optionen Mit Referentieller Integrität <\/b>und Löschweitergabe an verwandte Datensätze<\/b>. Damit stellen Sie erstens sicher, dass die Fremdschlüsselfelder ArtikelID <\/b>und LieferantID <\/b>nur Werte aufnehmen können, die im Primärschlüsselfeld der jeweils verknüpften Tabelle enthalten sind. Außerdem werden Datensätze in der Tabelle tblArtikelLieferanten <\/b>automatisch gelöscht, wenn ein verknüpfter Datensatz der Tabellen tblArtikel <\/b>oder tblLieferanten <\/b>entfernt wird.<\/p>\n

\"Festlegen<\/a><\/p>\n

Bild 2: Festlegen der Beziehungen zwischen den Tabellen der m:n-Verknüpfung<\/p>\n

Aber ist das überhaupt in Ordnung Was geschieht, wenn ich alle Datensätze der Tabelle tblLieferanten <\/b>lösche, die einem Artikel zugeordnet sind – diese besitzt dann ja keinen Lieferanten mehr Kein Problem: Das Fremdschlüsselfeld LieferantID <\/b>der Tabelle tblArtikel <\/b>legt ja den standardmäßig zu verwendenden Lieferanten fest.<\/p>\n

Die entsprechende Verknüpfung ist nicht mit Löschweitergabe ausgestattet. Der Versuch, einen Lieferanten zu löschen, der noch über das Fremdschlüsselfeld der Tabelle tblArtikel <\/b>mit einem Artikel verknüpft ist, führt zu einem Fehler.<\/p>\n

Erste Daten hinzufügen<\/h2>\n

Die Tabelle tblArtikelLieferanten <\/b>soll alle möglichen Lieferanten eines Artikels anzeigen. In der Tabelle tblArtikel <\/b>gibt es bereits ein Fremdschlüsselfeld LieferantID<\/b>, welches den aktuellen Lieferanten festlegen. Natürlich soll dieser Lieferant auch in der Tabelle tblArtikelLieferanten <\/b>auftauchen.<\/p>\n

Wie erledigen wir diese Aufgabe Alle entsprechenden Kombinationen aus ArtikelID <\/b>und LieferantID <\/b>manuell in die Tabelle übertragen Natürlich nicht! Diese Aufgabe erledigen wir mit einem Einzeiler über den Direktbereich. Dieser sieht wie folgt aus:<\/p>\n

CurrentDb.Execute \"INSERT INTO tblArtikelLieferanten(ArtikelID, LieferantID) SELECT ArtikelID, LieferantID FROM tblArtikel\", dbFailOnError<\/pre>\n
Sie lösen hiermit eine Aktionsabfrage aus, die für jeden Datensatz der Tabelle tblArtikel <\/b>die Inhalte der Felder ArtikelID <\/b>und LieferantID <\/b>in die entsprechenden Felder der Tabelle tblArtikelLieferanten <\/b>einträgt. Das Resultat sieht später wie in Bild 3 aus.<\/p>\n
\"Die<\/a><\/p>\n
Bild 3: Die Tabelle tblArtikelLieferanten mit den Standardlieferanten eines jeden Artikels<\/p>\n
Formular aufbauen<\/h2>\n
Das Formular soll zunächst jeweils einen Datensatz der Tabelle tblArtikel <\/b>anzeigen. Dazu erstellen Sie ein neues Formular in der Entwurfsansicht und stellen die Eigenschaft Datenherkunft <\/b>auf die Tabelle tblArtikel <\/b>ein. Anschließend ziehen Sie die beiden Felder ArtikelID <\/b>und Artikelname <\/b>sowie LieferantID <\/b>in den Detailbereich des Formulars und speichern es unter dem Namen frmArtikelLieferanten<\/b> (siehe Bild 4).<\/p>\n
\"Das<\/a><\/p>\n
Bild 4: Das Formular zeigt einige Daten der Tabelle tblArtikel an.<\/p>\n
Danach legen Sie zwei ListView-Steuerelemente namens lvwLieferantenZugeordnet <\/b>und lvwLieferantenNichtZugeordnet <\/b>an (siehe Bild 5). Die Einstellung der Eigenschaften dieser beiden Steuerelemente nehmen wir wiederum per VBA beim Laden des Formulars vor.<\/p>\n
\"Formular<\/a><\/p>\n
Bild 5: Formular mit den beiden ListView-Steuerelementen<\/p>\n
Die dazu notwendige Prozedur wird durch das Ereignis Beim Laden <\/b>ausgelöst. Hinterlegen Sie für die entsprechende Eigenschaft den Wert [Ereignisprozedur] <\/b>und klicken Sie auf die Schaltfläche mit den drei Punkten neben der Eigenschaft, um die Ereignisprozedur anzulegen. Ergänzen Sie diese im nun erscheinenden VBA-Editor wie in Listing 1.<\/p>\n
Dim <\/span>WithEvents objLvwLieferantenZugeordnet As <\/span>MSComctlLib.ListView\r\nDim <\/span>WithEvents objLvwLieferantenNichtZugeordnet As <\/span>MSComctlLib.ListView\r\nPrivate Sub <\/span>Form_Load()\r\n     Set<\/span> objLvwLieferantenZugeordnet = Me!lvwLieferantenZugeordnet.Object\r\n     Set<\/span> objLvwLieferantenNichtZugeordnet = Me!lvwLieferantenNichtZugeordnet.Object\r\n     With<\/span> objLvwLieferantenZugeordnet\r\n         .View = lvwReport\r\n         .Appearance = ccFlat\r\n         .BorderStyle = ccNone\r\n         .FlatScrollBar = True<\/span>\r\n         .ColumnHeaders.Clear\r\n         .ColumnHeaders.Add , , \"Lieferant zugeordnet\", Me!lvwLieferantenZugeordnet.Width\r\n     End With<\/span>\r\n     With<\/span> objLvwLieferantenNichtZugeordnet\r\n         .View = lvwReport\r\n         .Appearance = ccFlat\r\n         .BorderStyle = ccNone\r\n         .FlatScrollBar = True<\/span>\r\n         .ColumnHeaders.Clear\r\n         .ColumnHeaders.Add , , \"Lieferant nicht zugeordnet\", Me!lvwLieferantenNichtZugeordnet.Width\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Einrichten der beiden ListView-Steuerelemente<\/p>\n
Im Kopf des Moduls Form_frmArtikelLieferanten <\/b>deklarieren Sie zunächst zwei Objektvariablen für die beiden ListView-Steuerelemente mit dem Schlüsselwort WithEvents<\/b>. Dies ist nötig, damit wir auf die Ereignisse dieser Nicht-Standard-Steuerelemente von Access zugreifen können.<\/p>\n
Die folgende Prozedur weist diesen Variablen die entsprechenden Steuerelemente zu. Danach stellt sie einige Eigenschaften ein, die das Aussehen beeinflussen. Außerdem fügt sie jedem Steuerelement eine überschrift hinzu und stellt die Breite so ein, dass die einzige Spalte die komplette Breite des Steuerelements ausfüllt.<\/p>\n
Datenherkunft für die ListView-Steuerelemente<\/h2>\n
Anschließend benötigen wir zwei Abfragen, welche die Daten für die beiden ListView-Steuerelemente liefern. Die Abfrage für das ListView-Steuerelement lvwLieferantenZugeordnet <\/b>ist die einfachere der beiden Abfragen. Sie enthält die beiden Tabellen tblArtikelLieferanten <\/b>und tblLieferanten<\/b>. Die Tabelle tblLieferanten <\/b>steuert das Feld Firma <\/b>bei, die Tabelle tblArtikelLieferanten <\/b>die beiden Felder LieferantID <\/b>und ArtikelID<\/b>. Das Feld LieferantID <\/b>dient später zum Füllen der Key<\/b>-Eigenschaft der ListView<\/b>-Elemente, das Feld Firma <\/b>liefert den in der einzigen Spalte anzuzeigenden Wert und das Feld ArtikelID <\/b>hilft dabei, die zum aktuell im Formular angezeigten Artikel gehörenden Datensätze dieser Abfrage zu filtern (siehe Bild 6).<\/p>\n
\"Datenherkunft<\/a><\/p>\n
Bild 6: Datenherkunft für das erste ListView-Steuerelement zur Anzeige der zugeordneten Lieferanten<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t