![\"Tabellen](\"..\/tl_files\/images\/pic_676_001.png\")
<\/a><\/p>\nBild 1: Tabellen für unser Beispiel im Datenmodell<\/p>\n
Über die Verknüpfungstabelle tblBuecherKategorien <\/b>verknüpften wir die Tabellen tblBuecher <\/b>und tblKategorien <\/b>so, dass jedem Buch mehrere Kategorien zugeordnet werden können und andersherum jede Kategorie mehreren Büchern.<\/p>\n
Dazu können wir beliebige Kombinationen aus Büchern und Kategorien in der Tabelle tblBuecherKategorien <\/b>hinterlegen.<\/p>\nFormulare zur Anzeige der Bücher<\/h2>\n
Um jeweils ein Buch anzuzeigen, dem wir dann über zwei Listenfelder Kategorien hinzufügen oder diese entfernen, erstellen wir ein neues Formular. Für dieses stellen wir die Eigenschaft Datensatzquelle <\/b>auf die Tabelle tblBuecher<\/b> ein.<\/p>\n
Dadurch können wir aus der Feldliste die gewünschten Felder, in diesem Fall nur die beiden Felder BuchID <\/b>und Buchtitel<\/b>, in den Entwurf des Formulars ziehen (siehe Bild 2).<\/p>\n
Bild 2: Erstellen des Formulars zur Anzeigen von Büchern<\/p>\n Damit kommen wir gleich zu den Listenfeldern. Wir fügen zwei Listenfelder zum Formular hinzu und ordnen diese so an, dass sich die Beschriftung der Listenfelder sich jeweils über diesen befindet (siehe Bild 3).<\/p>\n Bild 3: Hinzufügen der Listenfelder<\/p>\n Um die Arbeit zum Ausrichten gering zu halten, erledigen wir dies zuerst mit nur einem Listenfeld: Wir fügen dieses hinzu, verschieben das Bezeichnungsfeld über das Listenfeld und richten es dann genau aus.<\/p>\n Mit dieser Vorarbeit brauchen wir das Listenfeld nur noch zu kopieren und erneut einzufügen, um uns die Arbeit beim zweiten Listenfeld zu sparen.<\/p>\n Für die Bezeichnungsfelder der Listenfelder hinterlegen wir beispielsweise die Texte Zugeordnete Kategorien <\/b>und Weitere Kategorien<\/b>.<\/p>\n Entsprechend vergeben wir als Namen die Werte lstZugeordneteKategorien <\/b>und lstWeitereKategorien<\/b>.<\/p>\n Wir weisen dem ersten Listenfeld nun die Abfrage hinzu, die nur die Kategorien anzeigt, die über die Tabelle tblBuecherKategorien <\/b>mit dem aktuell angezeigten Buch verknüpft sind. Diese Abfrage erstellen wir zunächst als gespeicherte Abfrage.<\/p>\n Diese weisen wir die beiden Tabellen tblBuecherKategorien <\/b>und tblKategorien <\/b>als Datenquelle zu.<\/p>\n Aus der Tabelle tblKategorien <\/b>ziehen wir die beiden Felder KategorieID <\/b>und Kategorie <\/b>in das Entwurfsraster.<\/p>\n Aus der Tabelle tblBuecherKategorien <\/b>fügen wir schließlich noch das Feld BuchID <\/b>hinzu.<\/p>\n Das Feld BuchID <\/b>soll lediglich als Kriterium für die Abfrage dienen, daher blenden wir diese durch Deaktivieren der Zeile Anzeigen <\/b>für dieses Feld aus.<\/p>\n Als Kriterium tragen wir für dieses Feld einen Ausdruck ein, der auf das Feld BuchID <\/b>des Formulars frmBuecherUndKategorienPerListenfeld <\/b>verweist (siehe Bild 4).<\/p>\n Bild 4: Abfrage zum Ermitteln der zugeordneten Bücher<\/p>\n Schließlich sorgen wir noch für eine aufsteigende Sortierung für das Feld Kategorie<\/b>.<\/p>\n Diese Abfrage stellen wir nun als Wert der Eigenschaft Datensatzherkunft <\/b>des Listenfeldes lstZugeordneteKategorien <\/b>ein.<\/p>\n Damit das erste Feld KategorieID <\/b>nicht angezeigt, sondern nur als gebundene Spalte verwendet wird und nur das zweite Feld Kategorie <\/b>angezeigt wird, stellen wir die Eigenschaften Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein (siehe Bild 5).<\/p>\n Bild 5: Einstellen der Listenfeldeigenschaften<\/p>\n Wechseln wir nun in die Formularansicht, zeigt das Listenfeld lstZugeordneteKategorien <\/b>direkt den richtigen Wert an (siehe Bild 6). Allerdings nur für den ersten Datensatz: Wenn wir weitere Bücher durchlaufen, ändert sich dieser Wert nicht.<\/p>\n Bild 6: Die zugeordnete Kategorie wird korrekt angezeigt.<\/p>\n Wir müssen also wohl mit ein wenig VBA-Code nachhelfen.<\/p>\n Damit wollen wir Datensatzherkunft des Listenfeldes aktualisieren, sobald der Benutzer den Datensatz im Formular wechselt.<\/p>\n Die Prozedur wird dazu durch das Ereignis Beim Anzeigen <\/b>des Formulars ausgelöst.<\/p>\n Um diese anzulegen, wechseln wir in die Entwurfsansicht des Formulars und aktivieren das Eigenschaftenblatt mit der Seite Ereignisse<\/b>. Hier wählen wir für den Eintrag Beim Anzeigen <\/b>den Wert [Ereignisprozedur] <\/b>aus und klicken auf die Schaltfläche mit den drei Punkten (siehe Bild 7).<\/p>\n Bild 7: Anlegen einer Ereignisprozedur<\/p>\n Damit öffnet sich der VBA-Editor und wir können in der bereits automatisch angelegten Prozedur Form_Current <\/b>die Anweisung hinzufügen, die das Aktualisieren des Listenfeldes beim Anzeigen eines jeden Datensatzes bewirkt (siehe Bild 8).<\/p>\n Bild 8: Die neue Ereignisprozedur<\/p>\n Nach der Eingabe des Schlüsselwortes Me<\/b>, das sich auf die Klasse des aktuellen Formulars bezieht und alle Eigenschaften und Methoden dieses Formulars bereitstellt, und eines Punkts erscheint eine Liste aller verfügbaren Elemente per IntelliSense.<\/p>\n Geben wir hier die ersten Buchstaben des Namens des Listenfeldes ein, also lst<\/b>, können wir dieses direkt auswählen.<\/p>\n Die Eingabe eines weiteren Punktes und des Buchstaben R <\/b>liefert die Methode Requery<\/b>, die wie ebenfalls auswählen. <\/p>\n Diese vollständige Anweisung lautet:<\/p>\n Damit sind wir bereits fertig und können den VBA-Editor wieder schließen und das Formular in der Formularansicht öffnen. Nun können wir durch die Datensätze navigieren und bekommen jeweils die richtige Kategorie im Listenfeld angezeigt.<\/p>\n Nun wollen wir auch noch das Listenfeld der weiteren Kategorien füllen, also mit allen Kategorien, die dem Buch noch nicht zugeordnet sind.<\/p>\n Dazu müssen wir im Detail zuerst alle Kategorien ermitteln, die bereits zugeordnet sind, und diese Menge von der Menge aller Kategorien entfernen.<\/p>\n Das Ermitteln aller zugeordneten Kategorien haben wir oben bereits erledigt. Um diese Menge von einer Liste aller Kategorien zu entfernen, legen wir eine neue Abfrage in der Entwurfsansicht an und speichern diese unter dem Namen qryWeitereKategorien<\/b>.<\/p>\n Dann fügen wir diesmal nur die Tabelle tblKategorien <\/b>hinzu und ziehen die Felder KategorieID <\/b>und Kategorie<\/b> in das Entwurfsraster.<\/p>\n Diesmal fügen wir dem Feld KategorieID <\/b>ein Kriterium hinzu. Dieses soll nur die Werte des Feldes Kategorie-ID <\/b>liefern, die nicht in der Abfrage qryZugeordneteKategorien <\/b>für den jeweiligen Datensatz der Tabelle tblBuecher <\/b>enthalten sind.<\/p>\n Das Kriterium formulieren wie so:<\/p>\n Auch hier legen wir wieder eine aufsteigende Sortierung nach dem Feld Kategorie <\/b>hinzu.<\/p>\n Die fertige Abfrage sieht in der Entwurfsansicht nun wie in Bild 9 aus.<\/p>\n Bild 9: Abfrage zum Ermitteln aller nicht zugeordneten Kategorien<\/p>\n Nun öffnen wir wieder das Formular frmBuecherUndKategorienPerListenfeld <\/b>in der Entwurfsansicht.<\/p>\n Hier legen wir für das rechte Listenfeld lstWeitereKategorien <\/b>die Abfrage qryWeitereKategorien <\/b>als Datensatzquelle <\/b>fest.<\/p>\n Damit die Spalten korrekt angezeigt werden, stellen wir die Eigenschaften Spaltenanzahl <\/b>auf 2 <\/b>und Spaltenbreiten <\/b>auf 0cm <\/b>ein.<\/p>\n Schließlich müssen wir auch hier dafür sorgen, dass das Listenfeld beim Anzeigen eines jeden Datensatzes aktualisiert wird. Dazu erweitern wir die Ereignisprozedur Beim Anzeigen <\/b>wie folgt:<\/p>\n So können wir nun durch die Datensätze navigieren und sehen in beiden Listenfeldern die entsprechenden Kategorien.<\/p>\n Jetzt wird es spannend: Wir wollen dafür sorgen, dass der Benutzer Kategorien zu einem Buch hinzufügen und diese auch wieder entfernen kann.<\/p>\n Dazu gibt es üblicherweise verschiedene Methoden, die mit offensichtlichen Schaltflächen aufgerufen werden können:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nListenfelder zum Formular hinzufügen<\/h2>\n
<\/a><\/p>\nDatensatzherkunft für die zugeordneten Kategorien<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nMe.lstZugeordneteKategorien.Requery<\/pre>\n
Datensatzherkunft für die weiteren Kategorien<\/h2>\n
Nicht In (SELECT KategorieID FROM [qryZugeordneteKategorien])<\/pre>\n
<\/a><\/p>\nEinstellen der Datensatzherkunft für das Listenfeld lstWeitereKategorien<\/h2>\n
Private Sub <\/span>Form_Current()\r\n Me.lstZugeordneteKategorien.Requery\r\n Me.lstWeitereKategorien.Requery\r\nEnd Sub<\/span><\/pre>\nKategorien zuordnen und entfernen<\/h2>\n
\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