<\/p>\n
Das Auswählen von Listenfeldeinträgen mit Ein- oder Mehrfachauswahl macht dieses Steuerelement in vielen Fällen zu einer guten Alternative für Unterformulare. Allein das Auslesen der markierten Informationen bereitet den Entwicklern hier und da Probleme. Und schließlich möchten Sie vielleicht auch einmal die ausgewählten Einträge speichern und wiederherstellen – wie dies alles funktioniert, erfahren Sie in diesem Beitrag.<\/b><\/p>\n<\/p><\/div>\n Warum sollten Sie Ihren Anwendern überhaupt eine Mehrfachauswahl per Listenfeld anbietenund diese dann auch noch im gleichen Steuerelement reproduzieren Der beste Grund ist immer ein Beispiel, das einen Anlass liefert. In diesem Beitrag ist das ein kleines Formular, mit dem der Benutzer die Ausstattung eines Fahrzeugs eingeben können soll. Möglichkeiten, dies in der Benutzeroberfläche darzustellen, gibt es genug:<\/p>\n Oft eingesetzt, aber schon vom Datenmodellentwurf her völlig falsch ist die Variante, die einzelnen Eigenschaften als Felder des Fahrzeug-Datensatzes zu speichern und im Formular passende Ja\/Nein-Felder anzuzeigen. Eine Aufteilung der Objekte Fahrzeug und Ausstattungsmerkmal auf zwei per m:n-Beziehung verknüpfte Tabellen ist zwingend erforderlich, um folgende Versionen zu realisieren:<\/p>\n Die ersten beiden Varianten sollten bekannt sein (falls nicht: Listenfelder von A-Z, Shortlink 87, und m:n-Beziehungen in Haupt- und Unterformular, Shortlink 452, helfen weiter), Letztere nicht unbedingt. Das liegt vor allem daran, dass es keine offensichtliche Möglichkeit gibt, einmal zugeordnete Datensätze beim nächsten Aufruf automatisch wieder im Listenfeld anzuzeigen.<\/p>\n Dies holt der vorliegende Beitrag nach und fügt Ihrem Repertoire an Darstellungsmöglichkeiten von m:n-Beziehungen eine weitere Alternative hinzu. Eines vorweg: Diese Variante ist nicht unbedingt für riesige Datenmengen geeignet. Das ergibt sich nicht nur aus der Tatsache, dass die Einträge möglichst ohne viel Scrollen sichtbar sein sollen, sondern auch aus der Art der Wiederherstellung der Anzeige – dazu jedoch später mehr.<\/p>\n Beispieltabellen<\/b><\/p>\n Als Beispiel dient oben genannte Fahrzeug-Ausstattungsmerkmal-Beziehung, die sich wie in Bild 1 darstellt und auf drei Tabellen aufteilt.<\/p>\n Bild 1: Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n<\/p><\/div>\n Die Anzeige erfolgt in einem Formular namens frmFahrzeuge<\/b>, dessen Eigenschaft Datenherkunft <\/b>die Tabelle tblFahrzeuge <\/b>als Wert aufweist. Für dieses Beispiel reicht die Anzeige der beiden Felder FahrzeugID <\/b>und Fahrzeug <\/b>völlig aus.<\/p>\n Viel interessanter ist das Listenfeld mit den Ausstattungsmerkmalen: Zunächst statten Sie es einmal mit der Tabelle tblAusstattungen <\/b>als Datensatzherkunft aus – mehr brauchen Sie nicht. Das Listenfeld soll das Feld AusstattungID<\/b> als gebundene Spalte verwenden und den Inhalt des Feldes Ausstattung <\/b>anzeigen. Dazu stellen Sie die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf 2 <\/b>beziehungsweise 0cm <\/b>ein.<\/p>\n Mehrfachauswahl<\/b><\/p>\n Der Benutzer soll mehrere Einträge des Listenfeldes auswählen können, also stellen Sie die Eigenschaft Mehrfachauswahl <\/b>auf Einzeln <\/b>ein. Der Unterschied zur Einstellung Erweitert <\/b>ist der, dass sich mit Einzeln <\/b>die Einträge ganz einfach durch einen Klick aus- und abwählen lassen.<\/p>\n Die Einstellung Erweitert <\/b>hingegen erfordert das Drücken der Umschalt- oder der Steuerungstaste, um mit der Maus mehrere Einträge zu markieren. Dafür können Sie so aber auch mehrere Einträge gleichzeitig auswählen (Umschalt-Taste drücken, ersten Eintrag auswählen, zweiten Eintrag auswählen führt zur Markierung der gewählten und aller dazwischen liegenden Einträge).<\/p>\n <\/p>\n Im vorliegenden Beispiel, das mit einer überschaubaren Menge von Einträgen aufwartet, scheint die Einstellung Einzeln <\/b>für die Eigenschaft Mehrfachauswahl <\/b>sinnvoller.<\/p>\n Damit können Sie die Mehrfachauswahl nun schon ausprobieren – mehr aber auch nicht: Nach dem Wechseln zum nächsten und zum Zurückspringen auf den aktuellen Datensatz empfängt Sie das Listenfeld wieder ohne ausgewählte Einträge.<\/p>\n Es fehlen nun also noch zwei wichtige Schritte: Im ersten werden markierte Einträge in der Tabelle tblFahrzeugeAusstattungen <\/b>gespeichert (und für deaktivierte wieder entfernt) und im zweiten die vorhandenen Einträge der Tabelle tblFahrzeugeAusstattungen <\/b>ausgelesen und in Form markierter Einträge im Listenfeld mit den Ausstattungen dargestellt.<\/p>\n Markierung von Listenfeldelementen Access speichert änderungen in einem Datensatz des Formulars zur Anzeige von Fahrzeugen und Ausstattungen beim Datensatzwechsel, soweit es sich um Inhalte von gebundenen Feldern handelt. Das ist beim Listenfeld nur sehr bedingt der Fall: Sie können es zwar an ein Feld binden, aber dies ist nur sinnvoll, wenn das Listenfeld Daten aus einer per 1:n-Beziehung verknüpften Tabelle anzeigen soll.<\/p>\n Im vorliegenden Fall geht es aber um eine m:n-Beziehung, und das Listenfeld enthält nicht nur einen, sondern unter Umständen auch keinen oder mehrere markierte Einträge. Und was noch viel wichtiger ist: Das Listenfeld ist noch nicht einmal gebunden. Und das ist ein entscheidender Faktor: Wenn das Listenfeld nicht gebunden ist, merkt das Formular beim Datensatzwechsel auch nicht, ob sich an den im Listenfeld markierten Einträgen etwas geändert hat, und ignoriert seinen Inhalt einfach.<\/p>\n Wie also stellen Sie fest, ob der Benutzer Einträge des Listenfeldes markiert oder deren Markierung aufgehoben hat Es stehen zwei Möglichkeiten zur Auswahl: Entweder Sie stellen per Code direkt beim ändern des Listenfeldes die Eigenschaft Dirty <\/b>auf True<\/b>, sodass das Formular vor dem Datensatzwechsel das Ereignis Nach Aktualisierung <\/b>auslöst, oder Sie fangen jede einzelne änderung im Listenfeld ab und reagieren mit dem Hinzufügen oder Löschen eines Datensatzes in der Tabelle tblFahrzeugeAusstattungen<\/b>.<\/p>\n Dieser Beitrag stellt die zweite Möglichkeit vor und nimmt das Ereignis Beim Klicken <\/b>des Listenfeldes zum Anlass, die Tabelle tblFahrzeugeAusstattungen <\/b>zu bearbeiten.<\/p>\n Ein Klick auf einen Eintrag des Listenfeldes trifft entweder einen nicht markierten Eintrag und markiert diesen, oder er trifft einen markierten Eintrag und hebt dessen Markierung auf (beim Klick auf den leeren Bereich, soweit vorhanden, geschieht nichts).<\/p>\n Das Auswählen eines Eintrags bedeutet hier, dass der Benutzer das aktuell ausgewählte Fahrzeug mit dem angeklickten Ausstattungsmerkmal verknüpfen möchte. Das bedeutet, dass der Verknüpfungstabelle tblFahrzeugeAusstattungen <\/b>ein Eintrag hinzugefügt werden muss – und zwar derjenige mit der FahrzeugID <\/b>des aktuell angezeigten Datensatzes und der AusstattungID <\/b>des im Listenfeld angeklickten Eintrags. Die FahrzeugID <\/b>ist schnell aus dem gebundenen Feld ausgelesen, die AusstattungID <\/b>aus dem Listenfeld weniger schnell: Dummerweise liefert Me!lstAusstattungen <\/b>nämlich bei der Einstellung Einzeln <\/b>für die Eigenschaft Mehrfachauswahl <\/b>lediglich den Wert Null <\/b>zurück. Also holen Sie sich den Wert für AusstattungID<\/b>, indem Sie zunächst den Index des angeklickten Eintrags ermitteln und über die Eigenschaft ItemData <\/b>den Wert des gebundenen Felds.<\/p>\n Die Routine aus Listing 1 ermittelt zunächst, ob der Benutzer den Listenfeldeintrag aus- oder abgewählt hat, und fügt dann entweder einen passenden Eintrag zur Tabelle tblFahrzeugeAusstattungen <\/b>hinzu oder entfernt ihn. Damit in neuen Datensätzen, die noch nicht bearbeitet wurden, keine Fehler auftreten, erscheint beim Anklicken eine passende Meldung und der markierte Listenfeldeintrag wird wieder in den Ausgangszustand zurückversetzt.<\/p>\n Listing 1: Beim Anklicken eines Listenfeldeintrags soll dieser nicht nur markiert, sondern es soll auch ein passender Eintrag zur Tabelle tblFahrzeugeAusstattungen hinzugefügt werden.<\/p>\n Vorhandene Einträge markieren<\/b><\/p>\n Das Markieren von Einträgen auf Basis der Verknüpfungstabelle ist schon etwas schwieriger: Immerhin bietet das Listenfeld keine Möglichkeit, etwa gezielt den Datensatz mit der AusstattungID 12 <\/b>zu markieren. Sie können einen Eintrag nur über seinen Index markieren, und zwar durch Setzen der Eigenschaft .Selected(<Index>) <\/b>auf den Wert True<\/b>.<\/p>\n Dies macht sich die Routine aus Listing 2 zu Nutze, die das Formular beim Anzeigen eines neuen Datensatzes auslöst. Sie prüft zunächst, ob ein bestehender oder ein neuer Fahrzeugdatensatz angezeigt wird, und hebt eventuell vom zuvor angezeigten Fahrzeugdatensatz übrig gebliebene Markierungen auf. Dann öffnet sie ein Recordset<\/b>-Objekt mit den nach dem aktuell angezeigten Fahrzeug gefilterten Daten der Abfrage qryFahrzeugeAusstattungen<\/b>. In zwei ineinander verschachtelten Schleifen – der äußeren über alle Listenelemente, der inneren über alle Datensätze des Recordsets – prüft die Routine schließlich, welche der Listenelemente im Recordset enthalten sind und somit markiert werden müssen. Für alle übrigen hebt die Routine die Markierung auf.<\/p>\n\n\n
\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/Listenfelder_3-web-images\/pic001_opt.jpeg\")
\n <\/div>\n\n
speichern<\/b><\/p>\n\nPrivate Sub lstAusstattungen_Click()\r\n Dim db As DAO.Database\r\n Dim lngAktuelleAusstattung As Long\r\n Set db = CurrentDb\r\n If IsNull(Me!FahrzeugID) Then\r\n MsgBox \"Bitte bearbeiten Sie zunächst den Hauptdatensatz.\"\r\n Me!lstAusstattungen.Selected(Me!lstAusstattungen.ListIndex) = False\r\n Exit Sub\r\n End If\r\n DoCmd.RunCommand acCmdSaveRecord\r\n lngAktuelleAusstattung = Me!lstAusstattungen.ItemData(Me!lstAusstattungen.ListIndex)\r\n If Me!lstAusstattungen.Selected(Me!lstAusstattungen.ListIndex) = True Then\r\n db.Execute \"INSERT INTO tblFahrzeugeAusstattungen(FahrzeugID, AusstattungID) VALUES(\" _
& Me!FahrzeugID & \", \" & lngAktuelleAusstattung & \")\", dbFailOnError\r\n Else\r\n db.Execute \"DELETE FROM tblFahrzeugeAusstattungen WHERE FahrzeugID = \" & Me!FahrzeugID _
& \" AND AusstattungID = \" & lngAktuelleAusstattung\r\n End If\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n<\/p><\/div>\n