<\/p>\n
Wenn Sie die Daten zweier Tabellen mit einer einfachen Verknüpfungstabelle zu einer m:n-Beziehung verbunden haben, können Sie die Daten auf verschiedenste Arten verwalten. Wir stellen eine nicht so oft verwendete, aber dennoch sehr ergonomische Variante vor. Dabei erfolgt die Zuordnung ausschließlich über das Aktivieren oder Deaktivieren eines Kontrollkästchens für den gewünschten Eintrag.<\/b><\/p>\n
Ziel dieses Beitrags<\/p>\n
Übliche Ausprägungen der m:n-Beziehung sehen ein Haupt- und ein Unterformular vor, wobei das Hauptformular einen Datensatz der m-Seite der Beziehung anzeigt und das Unterformular die damit verknüpften Datensätze der n-Seite. Neue verknüpfte Datensätze lassen sich beispielsweise per Kombinationsfeld in einem neuen Datensatz im Unterformular hinzufügen, wie es auch im Bestellformular der Nordwind-Datenbank der Fall ist.<\/p>\n
Hier ist gleichzeitig die Bearbeitung weiterer in der Verknüpfungstabelle enthaltener Daten möglich. Eine andere Möglichkeit zur Darstellung und Bearbeitung einer m:n-Beziehung ist die Verwendung zweier Listenfelder in einem Formular, das selbst an die m-Seite der Verknüpfung gebunden ist. Dabei zeigt das erste Listenfeld alle verknüpften und das zweite Listenfeld die übrigen Datensätze der n-Seite an<\/p>\n
In unserem Beispiel möchten wir eine Darstellung erzielen, bei dem das Hauptformular den Datensatz der m-Seite und das Unterformular alle Datensätze der n-Seite anzeigt – unabhängig davon, ob diese dem aktuellen Datensatz des Hauptformulars zugeordnet sind oder nicht. Diesen Zustand markiert ein Kontrollkästchen, über das der Benutzer gleichzeitig neue Verknüpfungen herstellen als auch bestehende löschen kann. Bild 1 zeigt, wie das am Beispiel von Fahrzeugen und deren Ausstattungsmerkmalen aussehen soll.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_03\/mnPerKombifeld-web-images\/pic001.png\")
<\/p>\n
Bild 1: Verwaltung der Daten einer m:n-Beziehung per Kontrollkästchen<\/span><\/b><\/p>\n Beispiel<\/b><\/p>\n Als Beispiel verwenden wir Fahrzeuge und deren Ausstattungen. Das Datenmodell haben wir so einfach gehalten wie möglich (siehe Bild 2). Die beiden Tabellen tblFahrzeuge <\/b>und tblAusstattungen <\/b>sind dabei über die Tabelle tblFahrzeugeAusstattungen <\/b>miteinander verknüpft.<\/p>\n Bild 2: Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n Diese Tabelle enthält neben dem Primärschlüsselfeld FahrzeugeAusstattungenID <\/b>zwei Fremdschlüsselfelder, die mit den beiden Tabellen tblFahrzeuge <\/b>und tblAusstattungen <\/b>verknüpft sind. Da jedes Fahrzeug jede Ausstattung nur einmal enthalten soll, legen Sie für die beiden Fremdschlüsselfelder einen zusammengesetzten eindeutigen Index fest (siehe Bild 3).<\/p>\n Bild 3: Eindeutiger Index für die Kombination aus Fahrzeug und Ausstattung<\/span><\/b><\/p>\n Unterformular zur Darstellung der n-Seite der Beziehung<\/b><\/p>\n Das Unterformular soll nur zwei Felder anzeigen: die Bezeichnung eines jeden Ausstattungsmerkmals (Feld Ausstattung<\/b>) und ein Kontrollkästchen, das anzeigt, ob das Fahrzeug aus dem Hauptformular diese Ausstattung besitzt (ohne entsprechendes Feld). Außerdem benötigen wir das Feld AusstattungID<\/b>, um den Ausstattungs-Datensatz eindeutig zu identifizieren. Um ein wenig Arbeit zu sparen, weisen Sie der Eigenschaft Datenherkunft eines neuen Formulars namens sfmFahrzeugeAusstattungen <\/b>die Tabelle tblAusstattungen <\/b>zu. Ziehen Sie aus der Feldliste die beiden Felder AusstattungID <\/b>und Ausstattung <\/b>in den Detailbereich des Formularentwurfs.<\/p>\n Fehlt noch das Kontrollkästchen: Dieses erstellen Sie zunächst als neues, ungebundenes Steuerelement, benennen es in IstAusstattung <\/b>um und stellen die Eigenschaft Steuerelementinhalt <\/b>auf lstAusstattung <\/b>ein – auch wenn dieses Feld zum aktuellen Zeitpunkt noch gar nicht in der Datenherkunft des Formulars existiert. Im Entwurf sieht das Unterformular nun wie in Bild 4 aus. Bevor Sie das Unterformular speichern und schließen, leeren Sie die Eigenschaft Datenherkunft<\/b> wieder – wir kümmern uns später um die Daten für das Formular. Außerdem stellen Sie unbedingt die Eigenschaft Standardansicht <\/b>auf den Wert Datenblatt <\/b>ein, damit die Ausstattungen schön tabellarisch angezeigt werden.<\/p>\n Bild 4: Das Unterformular mit einem gebundenen Feld, das in der Datenherkunft nicht existiert.<\/span><\/b><\/p>\n Hauptformular zur Anzeige der Fahrzeuge<\/b><\/p>\n Das Hauptformular soll frmFahrzeugeAusstattungen <\/b>heißen und die Tabelle tblFahrzeuge <\/b>als Datenherkunft verwenden. Aus dieser Tabelle fügen Sie dem Formular alle Felder hinzu. Außerdem soll das Formular natürlich das Unterformular mit den verknüpften Ausstattungsmerkmalen anzeigen, wozu Sie das soeben erstellte Formular als Unterformular hinzufügen. Dazu ziehen Sie es am einfachsten aus dem Datenbankfenster beziehungsweise Navigationsbereich in den Detailbereich des Hauptformulars, sodass sich die Konstellation aus Bild 5 ergibt.<\/p>\n Bild 5: Haupt- und Unterformular in der Entwurfsansicht<\/span><\/b><\/p>\n <\/p>\n Ausstattungen per temporärem Recordset<\/b><\/p>\n Nun ist es an der Zeit, auch das Unterformular an eine Datenherkunft zu binden beziehungsweise ihm die entsprechenden Daten hinzuzufügen. Dabei greifen wir auf eine im Beitrag Temporäre Datensatzgruppen <\/b>(www.access-im-unternehmen.de\/711<\/b>) vorgestellte Technik zu, die allerdings leider erst ab Access 2002 funktioniert.<\/p>\n Normalerweise wird ein Unterformular, dessen Daten über ein Fremdschlüsselfeld mit denen des Hauptformulars verknüpft sind, beim Anzeigen eines neuen Datensatzes automatisch aktualisiert. Dazu stellt man die Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>auf die Namen der Steuerelemente mit dem Primär- und dem Fremdschlüsselfeld der beiden beteiligten Formulare ein. Hier ist die Verwendung dieser Eigenschaften nicht möglich, und das Unterformular besitzt ohnehin keine feste Datenherkunft.<\/p>\n Also müssen wir uns selbst darum kümmern, dass das Unterformular beim Anzeigen eines Datensatzes im Hauptformular mit den gewünschten Daten gefüllt wird.<\/p>\n Wie aber sehen diese Daten aus Wir benötigen zumindest alle Datensätze der Tabelle tblAusstattungen<\/b>, unabhängig davon, ob diese dem aktuellen Fahrzeug über die Verknüpfungstabelle tblFahrzeugeAusstattungen <\/b>zugewiesen wurden. Normalerweise könnte man dies über eine Abfrage realisieren, welche die beiden Tabellen tblFahrzeugeAusstattungen <\/b>und tblAusstattungen <\/b>enthält und deren Beziehungseigenschaften so eingestellt sind, dass alle Datensätze der Tabelle tblAusstattungen <\/b>angezeigt werden, aber nur die Daten der verknüpften Datensätze der Tabelle tblFahrzeugeAusstattungen<\/b>. Leider soll das Unterformular die Datensätze aber nach der FahrzeugID <\/b>des Hauptformulars filtern, wodurch nicht mehr alle Datensätze der Tabelle tblAusstattungen <\/b>angezeigt werden.<\/p>\n Daher arbeiten wir mit einem temporären Recordset, das wir bei jeder Anzeige eines Datensatzes der Tabelle tblFahrzeuge im Hauptformular neu erstellen und dem Unterformular zuweisen. Die dazu notwendige Prozedur sieht wie in Listing 1 aus.<\/p>\n Listing 1: Unterformular mit temporärem Recordset füllen<\/p>\n Die Prozedur erstellt zunächst ein temporäres Recordset namens rstTemp<\/b>, das später als Datenherkunft des Unterformulars dienen wird, sowie ein Recordset mit allen Datensätzen der Tabelle tblAusstattungen<\/b>. Das temporäre Recordset statten wir mit den drei im Unterformular angezeigten Feldern AusstattungID<\/b>, Ausstattung <\/b>und IstAusstattung <\/b>aus.<\/p>\n Danach öffnet die Prozedur das Recordset rstAusstattungen <\/b>und durchläuft alle enthaltenen Datensätze. Dabei werden die Felder AusstattungID <\/b>und Ausstattung <\/b>mit den in der Tabelle tblAusstattungen <\/b>enthaltenen Daten gefüllt. Das Feld IstAusstattung <\/b>erfährt eine Sonderbehandlung: Wenn das Hauptformular einen neuen Datensatz anzeigt, wird sein Wert für alle Ausstattungsdatensätze auf False <\/b>eingestellt.<\/p>\n Für bestehende Fahrzeug-Datensätze prüft die Prozedur mit einer DLookup<\/b>-Anweisung, ob in der Tabelle tblFahrzeugeAusstattungen <\/b>bereits ein Datensatz vorliegt, der das Fahrzeug des Hauptformulars und das aktuell untersuchte Ausstattungsmerkmal verknüpft und stellt IstAusstattung <\/b>gegebenenfalls auf True <\/b>ein. Schließlich weist die Prozedur dem Unterformular das Recordset zu.<\/p>\n Die Anzeige funktioniert nun bereits: Wenn Sie zuvor ein paar Datensätze zur Tabelle tblFahrzeugeAusstattungen <\/b>hinzugefügt haben, sehen Sie im Unterformular bereits in paar aktivierte Kontrollkästchen.<\/p>\n Finetuning<\/b><\/p>\n Allerdings bietet das Unterformular noch nicht das erwartete Bild: Erstens enthält die Spalte mit den Kontrollkästchen noch die Überschrift IstAusstattung, was nicht schön aussieht, und die Spalte AusstattungID sollte am besten gleich ganz verschwinden.<\/p>\n Kein Problem: In der Prozedur, die beim Laden des Unterformulars ausgelöst wird, kümmern wir uns erstens um die Sichtbarkeit des Steuerelements AusstattungID <\/b>und weisen anschließend der Spalte IstAusstattung ein Leerzeichen als Beschriftung zu. Die Sichtbarkeit (beziehungsweise Unsichtbarkeit) von Feldern in der Datenblattansicht regeln Sie über die Eigenschaft ColumnHidden<\/b>.<\/p>\n Die Beschriftung könnten wir eigentlich über den Text des zum Kontrollkästchen gehörenden Bezeichnungsfeldes einstellen, aber dieses verschwindet, wenn man eine leere Zeichenkette oder auch nur eines oder mehrere Leerzeichen einträgt – und wenn ein Feld kein Bezeichnungsfeld enthält, zeigt Access als Spaltenüberschrift den jeweiligen Feldnamen an. Also weisen wir der Caption<\/b>-Eigenschaft per VBA ein Leerzeichen zu:<\/p>\n Hinzufügen und Entfernen von Ausstattungsmerkmalen<\/b><\/p>\n Aktuell können wir noch keine änderungen über die Kontrollkästchen vornehmen – zumindest wirken sich diese noch nicht auf die zugrunde liegende Tabelle tblFahrzeugeAusstattungen <\/b>aus. <\/p>\n Dies holen wir nach, indem wir eine Prozedur anlegen, die gleich nach dem ändern des Wertes des Kontrollkästchens IstAusstattung <\/b>ausgelöst wird. Diese sieht wie in Listing 2 aus und führt in Abhängigkeit des Wertes des Kontrollkästchens eine von zwei SQL-Aktionsabfragen aus. Wenn das Kontrollkästchen den Wert True <\/b>aufweist, dann legt die Prozedur einen neuen Datensatz in der Tabelle tblFahrzeugeAusstattungen <\/b>an, der die FahrzeugID <\/b>des aktuell im Hauptformular angezeigten Datensatzes und die AusstattungID <\/b>des zum Kontrollkästchen gehörenden Datensatzes enthält.<\/p>\n Listing 2: Neue Ausstattungen hinzufügen und entfernte Ausstattungen löschen<\/p>\n Hat der Benutzer das Häkchen aus dem Kontrollkästchen entfernt, löscht die entsprechende Aktionsabfrage den Datensatz aus der Tabelle tblFahrzeugeAusstattungen<\/b>, welcher der aktuellen FahrzeugID <\/b>und AusstattungID <\/b>entspricht.<\/p>\n Fehlt nur noch eine kleine Absicherung für den Fall, dass der Benutzer Ausstattungen hinzufügen möchte, obwohl das Hauptformular einen neuen, noch nicht gespeicherten Datensatz anzeigt: Diese Möglichkeit fängt das Ereignis Vor Aktualisierung <\/b>des Kontrollkästchens ab (s. Listing 3). Dort prüfen wir mit der Eigenschaft NewRecord <\/b>des Hauptformulars, ob dieses gerade einen frischen, noch nicht gespeicherten Datensatz anzeigt. Ist dies der Fall, erscheint eine entsprechende Meldung und die Aktualisierung des Kontrollkästchens wird rückgängig gemacht.<\/p>\n Listing 3: Diese Routine verhindert die Auswahl von Ausstattungen für nicht angelegte Fahrzeuge.<\/p>\n Enthaltene Beispieldateien:<\/p>\n mnPerKombifeld.mdb<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_03\/mnPerKombifeld-web-images\/pic002.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_03\/mnPerKombifeld-web-images\/pic004.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_03\/mnPerKombifeld-web-images\/pic003.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_03\/mnPerKombifeld-web-images\/pic005.png\")
<\/p>\nPrivate Sub Form_Current()\r\n Dim cnn As ADODB.Connection\r\n Dim rstAusstattungen As ADODB.Recordset\r\n Dim rstTemp As ADODB.Recordset\r\n Dim fld As ADODB.Field\r\n Set cnn = CurrentProject.Connection\r\n Set rstTemp = New ADODB.Recordset\r\n Set rstAusstattungen = New ADODB.Recordset\r\n rstTemp.CursorLocation = adUseClient\r\n rstTemp.LockType = adLockOptimistic\r\n rstTemp.Fields.Append "AusstattungID", adInteger\r\n rstTemp.Fields.Append "Ausstattung", adVarWChar, 255\r\n rstTemp.Fields.Append "IstAusstattung", adBoolean, False\r\n rstTemp.Open\r\n rstAusstattungen.Open "SELECT\r\n tblAusstattungen.AusstattungID,\r\n tblAusstattungen.Ausstattung\r\n FROM tblAusstattungen", cnn\r\n Do While Not rstAusstattungen.EOF\r\n rstTemp.AddNew\r\n rstTemp("AusstattungID") = _\r\n rstAusstattungen!AusstattungID\r\n If Me.NewRecord Then\r\n rstTemp("IstAusstattung") = False\r\n Else\r\n rstTemp("IstAusstattung") = Not _\r\n IsNull(DLookup("FahrzeugID", _\r\n "tblFahrzeugeAusstattungen", _\r\n "FahrzeugID = " & Me!FahrzeugID _\r\n & " AND AusstattungID = " _\r\n & rstAusstattungen!AusstattungID))\r\n End If\r\n rstTemp("Ausstattung") = rstAusstattungen!Ausstattung\r\n rstTemp.Update\r\n rstAusstattungen.MoveNext\r\n Loop\r\n Set Me!sfmFahrzeugeAusstattungen.Form.Recordset = rstTemp\r\n Set rstAusstattungen = Nothing\r\n Set cnn = Nothing\r\nEnd Sub<\/pre>\nPrivate Sub Form_Load()\r\n Me!AusstattungID.ColumnHidden _\r\n = True\r\n Me!lblIstAusstattung.Caption _\r\n = " "\r\nEnd Sub<\/pre>\n
Private Sub IstAusstattung_AfterUpdate()\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n If Me!IstAusstattung Then\r\n db.Execute "INSERT INTO tblFahrzeugeAusstattungen(FahrzeugID, AusstattungID) VALUES(" _\r\n & Me.Parent!FahrzeugID & ", " & Me!AusstattungID & ")", dbFailOnError\r\n Else\r\n db.Execute "DELETE FROM tblFahrzeugeAusstattungen WHERE FahrzeugID = " _\r\n & Me.Parent!FahrzeugID & " AND AusstattungID = " & Me!AusstattungID, dbFailOnError\r\n End If\r\n Me.Dirty = False\r\nEnd Sub<\/pre>\nPrivate Sub IstAusstattung_BeforeUpdate(Cancel As Integer)\r\n If Me.Parent.NewRecord = True Then\r\n MsgBox "Bitte legen Sie zunächst einen Datensatz im Hauptformular an.", _\r\n vbOKOnly + vbExclamation, "Kein Datensatz"\r\n Me.Undo\r\n Cancel = True\r\n End If\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n