<\/p>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_001.png\")
<\/p>\n
Bild 1: Beispiel für ein mehrwertiges Feld<\/span><\/b><\/p>\n In einem anderen Beitrag namens „Mehrwertige Felder mit Wertliste loswerden“ (www.access-im-unternehmen.de\/13) beschreiben wir, wie man die in Access 2010 eingeführten mehrwertige Felder durch m:n-Beziehungen ersetzt. Es fehlt dann allerdings die praktische Liste mit Kontrollkästchen, mit der man einen oder mehrere der zu verknüpfenden Elemente einfach markieren kann. Auf diese Weise lassen sich schnell die Kategorien zu einem Produkt oder auch die Ausstattungen für Fahrzeuge zusammenklicken. Da für uns das Motto „Wer A sagt, muss auch B sagen“ gilt, liefern wir also noch eine Möglichkeit hinterher, um die aus den mehrwertigen Feldern in eine m:n-Beziehung überführten Daten auf praktische Weise anzuzeigen.<\/b><\/p>\n Dabei verwenden wir die Beispiele, die wir in dem oben genannten Beitrag Mehrwertige Felder mit Wertliste loswerden <\/b>(www.access-im-unternehmen.de\/13<\/b>) verwendet haben. Wir beginnen wieder mit den Produkten und ihren Kategorien. In der Beispieldatenbank finden wir in der Tabelle tblProdukte <\/b>noch das Feld Kategorien<\/b>, das als mehrwertiges Feld mit einer Wertliste als Datensatzherkunft ausgestattet ist (siehe Bild 1).<\/p>\n Bild 1: Beispiel für ein mehrwertiges Feld<\/span><\/b><\/p>\n Wenn wir diese Tabelle als Datensatzquelle für ein Formular verwenden, alle Felder in den Detailbereich ziehen und dann noch das Feld Kategorien in ein Listenfeld umwandeln, erhalten wir eine Ansicht wie in Bild 2. Das ist sehr praktisch und eine schöne Alternative zu den übrigen Möglichkeiten, eine m:n-Beziehung abzubilden.<\/p>\n Bild 2: Beispiel für ein als Listenfeld abgebildetes mehrwertiges Feld<\/span><\/b><\/p>\n Nun haben wir allerdings das mehrwertige Feld durch eine m:n-Beziehung ersetzt, in der alle Kategorien in der Tabelle tblKategorien <\/b>gespeichert werden und in der die Verknüpfungstabelle tblProdukteKategorien <\/b>die Zuordnung von Produkten zu Kategorien aufnimmt (siehe Bild 3). Damit erhalten wir ein Datenmodell, das wir nicht nur komplett steuern können (das mehrwertige Feld wurde intern von Access verwaltet). Wir können ein solches Datenmodell auch zum SQL Server überführen. Dies wäre mit einem mehrwertigen Feld nicht möglich gewesen – hier würden zwar die für ein Produkt ausgewählten Kategorien übernommen werden, aber die Liste aller Kategorien und die Auswahlmöglichkeit fallen unter den Tisch.<\/p>\n Bild 3: Die aufgeteilten Daten eines mehrwertigen Feldes<\/span><\/b><\/p>\n Das Ziel dieses Beitrags ist es nun, die Daten im Formular so abzubilden, wie es zuvor beim mehrwertigen Feld in der Ausführung als Listenfeld mit Kontrollkästchen der Fall war.<\/p>\n In einem Listenfeld werden wir das nicht abbilden können, denn dieses erlaubt nicht die Verwendung von Kontrollkästchen. Hier könnten wir allenfalls alle für das aktuelle Produkt ausgewählten Kategorien markieren. Alternativ könnten wir auch noch das ListView<\/b>-Steuerelement nutzen, das ein Kontrollkästchen je Eintrag anzeigen kann. Aber wir wollen in diesem Fall mit Access-Bordmitteln auskommen.<\/p>\n Wie also können wir das erledigen? Die einzigen beiden Möglichkeiten, Datensätze inklusive Kontrollkästchen darzustellen, sind die Endlosansicht und die Datenblattansicht eines Formulars beziehungsweise Unterformulars.<\/p>\n Bei der Datenblattansicht werden allerdings zwingend die Spaltenüberschriften angezeigt. Da wir eine möglichst genaue Abbildung des mehrwertigen Listenfeldes erhalten wollen, fällt diese Variante also weg. Es bleibt noch die Verwendung der Endlosansicht. Diese bietet außerdem alle gestalterischen Möglichkeiten.<\/p>\n Bevor wir loslegen, müssen wir uns überlegen, wie wir die Darstellung erhalten. In einer herkömmlichen Konstellation aus Haupt- und Unterformular zur Darstellung einer m:n-Beziehung landet die m-Tabelle, in diesem Beispiel die Tabelle tblProdukte<\/b>, im Hauptformular. Im Unterformular bilden wir die Daten der Verknüpfungstabelle ab, gegebenenfalls erweitert um die Daten der n-Tabelle. Das Unterformular-Steuerelement wird so eingerichtet, dass das Unterformular immer nur die Datensätze der m:n-Tabelle anzeigt, die mit dem Datensatz im Hauptformular verknüpft sind.<\/p>\n Wir können üblicherweise mit Haupt- und Unterformular also immer nur alle verknüpften Datensätze der n-Tabelle anzeigen. Wir wollen aber alle Datensätze der n-Tabelle anzeigen und für diejenigen, die über die m:n-Verknüpfungstabelle dem aktuell angezeigten Datensatz der m-Tabelle zugeordnet sind, ein markiertes Kontrollkästchen hinzufügen. Das gelingt auf diesem zunächst eingeschlagenen Weg nicht.<\/p>\n Stattdessen müssen wir eine Darstellung finden, die alle Datensätze der n-Tabelle anzeigt, hier tblKategorien<\/b>, und die noch ein Kontrollkästchen hinzufügt, das die für den aktuellen Datensatz im Hauptformular selektierten Kategorien liefert. Wir haben es hin- und hergedreht und mit diversen Abfragetypen experimentiert. Wie haben keine praktikable Lösung gefunden. Also wählen wir einen völlig anderen Ansatz.<\/p>\n Die einfachere, weil sichtbare Lösung ist die Verwendung einer temporären Tabelle. Diese nennen wir tblKategorienSelektiert<\/b> und entwerfen sie wie in Bild 4. Neben den beiden Feldern KategorieID <\/b>und Kategorie <\/b>fügen wir dieser das Ja\/Nein<\/b>-Feld Zugeordnet <\/b>hinzu. Das Feld KategorieID <\/b>statten wir nicht mit der Autowert<\/b>-Funktion aus, da wir die Werte für dieses Feld später selbst eintragen wollen.<\/p>\n Bild 4: Temporäre Tabelle<\/span><\/b><\/p>\n Diese Tabelle fügen wir dem Unterformular hinzu und sorgen per Code dafür, dass diese beim Anzeigen eines Produkt-Datensatzes im Hauptformular jeweils geleert und neu gefüllt wird.<\/p>\n Dieses Endlosansicht legen wir in einem Unterformular an. Als Erstes erstellen wir das Hauptformular für unsere Lösung. Dieses verwendet die Tabelle tblProdukte<\/b> als Datensatzquelle. Aus der Tabelle ziehen wir die beiden Felder ProduktID <\/b>und Produktname <\/b>in den Detailbereich des Formulars (siehe Bild 5).<\/p>\n Bild 5: Anlegen des Hauptformulars<\/span><\/b><\/p>\n Nun erstellen wir das Unterformular namens sfmProdukteKategorien<\/b>. Diesem weisen wir die Tabelle tblKategorienSelektiert <\/b>als Datensatzquelle zu und ziehen die beiden Felder Zugeordnet <\/b>und Kategorie <\/b>in den Detailbereich des Formulars. <\/p>\n Die beiden Bezeichnungsfelder, die beim Hineinziehen der Felder in den Detailbereich automatisch angelegt wurden, entfernen wir. Dann ordnen wir die verbleibenden beiden Steuerelemente wie im mehrwertigen Listenfeld an (siehe Bild 6). Für das Textfeld Kategorie<\/b> stellen wir die Eigenschaft Horizontaler Anker <\/b>auf Beide <\/b>ein, damit es beim Verbreitern des Steuerelements angepasst wird.<\/p>\n Bild 6: Unterformular mit den Kategorien und der Möglichkeit zum Selektieren<\/span><\/b><\/p>\n Schließlich stellen wir noch die Eigenschaft Standardansicht <\/b>auf Endlosformular <\/b>ein. Damit die üblichen Elemente eines Formulars ausgeblendet werden, stellen wir außerdem die Eigenschaften Datensatzmarkierer <\/b>und Navigationsschaltflächen <\/b>auf Nein <\/b>ein. Die Eigenschaft Trennlinien <\/b>ist in neueren Access-Versionen ohnehin bereits deaktiviert.<\/p>\n Außerdem zeigt das Formular seine Datensätze aktuell noch mit alternierender Hintergrundfarbe an. Das ändern wir, indem wir den Detailbereich des Unterformulars markieren und dort im Bereich Format <\/b>die Eigenschaft Alternative Hintergrundfarbe <\/b>auf den gleichen Wert einstellen wie die Eigenschaft Hintergrundfarbe<\/b>.<\/p>\n Um die Optik perfekt zu machen, entfernen wir noch den Rahmen des Textfeldes. Dazu stellen wir die Eigenschaft Rahmenart <\/b>auf Transparent <\/b>ein.<\/p>\n Dieses Formular ziehen wir nun als Unterformular in das Formular frmProdukteKategorien<\/b>. Das Ergebnis sieht wie in Bild 7 aus. Die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements sollten unbedingt leer sein.<\/p>\n Bild 7: Einbau des Unterformulars<\/span><\/b><\/p>\n Wechseln wir nun in die Formularansicht, erhalten wir schon einmal einen Einblick, wie das Formular später aussehen könnte (siehe Bild 8). Allerdings ist das Unterformular noch leer. Dies ändern wir allerdings jetzt.<\/p>\n Bild 8: Das noch leere Unterformular in der Formularansicht<\/span><\/b><\/p>\n Dazu hinterlegen wir für das Ereignis Beim Anzeigen<\/b> des Hauptformulars die Ereignisprozedur aus Listing 1.<\/p>\n Listing 1: Füllen der Datensatzquelle des Unterformulars<\/span><\/b><\/p>\n Diese Prozedur leert zunächst mit einer DELETE<\/b>-Abfrage die Tabelle tblKategorienSelektiert<\/b>, da sich in der Regel noch Daten vom zuvor angezeigten Datensatz darin befinden.<\/p>\n Dann fügt sie alle Einträge der Tabelle tblKategorien <\/b>zur Tabelle tblKategorienSelektiert <\/b>hinzu und sortiert die Kategorien dabei direkt alphabetisch. Dazu nutzen wir eine INSERT INTO<\/b>-Abfrage, welche eine entsprechende SELECT<\/b>-Anweisung auf Basis der Tabelle tblKategorien<\/b> als Quelle verwendet.<\/p>\n Im letzten Schritt füllen wir noch das Feld Zugeordnet<\/b>. Dazu verwenden wir eine UPDATE<\/b>-Abfrage, in der wir das Feld Zugeordnet <\/b>für die Datensätze auf -1 <\/b>einstellen, deren Kategorie in der Tabelle tblProdukteKategorien <\/b>dem aktuellen Produkt aus dem Hauptformular zugewiesen ist.<\/p>\n Schließlich aktualisiert die Prozedur noch die Anzeige im Unterformular.<\/p>\n Das Ergebnis sieht bereits sehr gut aus (siehe Bild 9). Allerdings wird noch ein neuer, leerer Datensatz angezeigt. Dies verhindern wir, indem wir für das Unterformular die Eigenschaft Anfügen zulassen <\/b>auf Nein <\/b>einstellen.<\/p>\n Bild 9: Markierte Kategorien im Unterformular<\/span><\/b><\/p>\n Wir können nun sogar bereits Kategorien hinzufügen oder abwählen. Allerdings werden die Änderungen nicht gespeichert – bei Wechsel zu einem anderen Datensatz und zurück finden wir wieder die zuvor markierten Einträge vor.<\/p>\n Das ist auch logisch: Wir haben keinen Mechanismus vorgesehen, der Änderungen speichert – außer der, durch den Änderungen automatisch in der als Datensatzquelle verwendeten Tabelle gespeichert werden. Da diese aber bei jedem Datensatzwechseln geleert und neu gefüllt wird, sind die Änderungen nicht persistent.<\/p>\n Das ändern wir nun, indem wir ein Ereignis für das Kontrollkästchen-Steuerelement im Unterformular hinzufügen. Hier testen wir erst einmal, ob wir alle relevanten Daten erhalten:<\/p>\n Die Ausgabe liefert den aktuellen Wert, die Kategorie und das Produkt. Die gewonnenen Informationen müssen wir nun noch in der Tabelle tblProdukteKategorien<\/b> hinterlegen. Dazu passen wir die Prozedur wie in Listing 2 an.<\/p>\n Listing 2: Aktualisieren der Tabelle tblProdukteKategorien<\/span><\/b><\/p>\n Die Prozedur prüft, ob das Feld Zugeordnet <\/b>auf True <\/b>oder False <\/b>eingestellt wurde. Im Fall von True <\/b>soll ein neuer Datensatz zur Tabelle tblProdukteKategorien <\/b>hinzugefügt werden, der die KategorieID <\/b>der soeben aktivierten Kategorie und die ProduktID <\/b>des im Hauptformular angezeigten Produkts enthält. Das erledigt die Prozedur mit der entsprechenden INSERT INTO<\/b>-Anweisung.<\/p>\n Wenn das Feld Zugeordnet <\/b>nun den Wert False <\/b>enthält, soll der passende Datensatz aus der Tabelle tblProdukteKategorien <\/b>entfernt werden. Dazu verwendet die Prozedur eine DELETE<\/b>-Anweisung, die den Datensatz mit den entsprechenden Daten in den Feldern ProduktID <\/b>und KategorieID <\/b>löscht.<\/p>\n Die Lösung läuft damit soweit problemlos. Nach dem Öffnen des Formulars und beim Anzeigen eines anderen Datensatz zeigt es die richtigen zugeordneten Kategorien an. Das Aus- und Abwählen von Kategorien wird korrekt in der Datenbank gespeichert.<\/p>\n Nur beim Hinzufügen eines Datensatzes gibt es einen Fehler (siehe Bild 10). Dieser rührt daher, dass es bei Anzeigen eines neuen, leeren Datensatzes im Hauptformular noch keinen Wert im Feld ProduktID <\/b>gibt. Dies beheben wir, indem wir in der fehlerhaften Anweisung den Ausdruck Me!ProduktID <\/b>durch Nz(Me!ProduktID, 0) <\/b>ersetzen:<\/p>\n Bild 10: Fehler beim Hinzufügen eines neuen Datensatzes im Hauptformular<\/span><\/b><\/p>\n Und wenn wir eine Kategorie für einen neuen, noch leeren Datensatz hinzufügen wollen, erhalten wir ebenfalls einen Fehler. Dieser wird in der Prozedur Zugeordnet_AfterUpdate <\/b>ausgelöst und resultiert ebenfalls daraus, dass noch keine ProduktID <\/b>vorliegt. Dadurch soll eine Abfrage wie die folgende ausgeführt werden:<\/p>\n Hier wollen wir schlicht verhindern, dass der Benutzer eine Kategorie zuweisen kann, bevor er einen Datensatz im Hauptformular hinzugefügt hat.<\/p>\n Dazu fügen wir eine weitere Ereignisprozedur zum Kontrollkästchen Zugeordnet <\/b>hinzu, und zwar für das Ereignis Vor Aktualisierung<\/b>. Die Prozedur aus Listing 3 prüft, ob das Hauptformular einen neuen, leeren Datensatz enthält. In diesem Fall gibt sie eine Meldung aus, macht die Änderung rückgängig und setzt den Fokus auf ein Feld im Hauptformular. Außerdem wird der Parameter Cancel <\/b>auf True <\/b>eingestellt, damit der Aktualisierungsvorgang abgebrochen und das Ereignis Nach Aktualisierung <\/b>gar nicht erst ausgelöst wird.<\/p>\n Listing 3: Meldung, wenn der Benutzer versucht, eine Kategorie zu einem noch nicht vorhandenen Produkt hinzuzufügen<\/span><\/b><\/p>\n Bisher ist es noch möglich, den Text der Kategorien im Unterformular zu verändern. Auch, wenn sich dies nicht auf die tatsächlich gespeicherten Kategorien auswirkt, wollen wir dies verhindern. Dazu stellen wir die Eigenschaften Aktiviert <\/b>des Textfeldes Kategorie <\/b>auf Nein <\/b>und Gesperrt <\/b>auf Ja <\/b>ein.<\/p>\n Nun ist diese Vorgehensweise nicht nur geeignet, um mehrwertige Listenfelder abzulösen, sondern generell für alle m:n-Beziehungen, für die man sich eine solche Darstellung wünscht. Voraussetzung aus Performance-Sicht ist allerdings, dass nicht allzu viele Datensätze in der verknüpften Liste stecken, da diese bei jedem Datensatzwechsel neu gelesen werden. Wir wollen die Lösung einsetzen für die drei Tabellen tblFahrzeuge<\/b>, tblFahrzeugeAusstattungen <\/b>und tblAusstattungen<\/b> (siehe Bild 11).<\/p>\n Bild 11: Eine weitere m:n-Beziehung, um die Lösung anzupassen<\/span><\/b><\/p>\n Welche Schritte sind also zu tun, wenn wir dieses Unterformular schnell zu einem Formular in einer anderen Anwendung einfügen wollen?<\/p>\n Bild 12: Die neue Tabelle tblAusstattungenSelektiert<\/span><\/b><\/p>\n Listing 4: Aktualisieren der Daten im Unterformular<\/span><\/b><\/p>\n Listing 5: Aktionen, die beim Zuordnen und Abwählen von Ausstattungen ausgeführt werden<\/span><\/b><\/p>\n<\/ul>\n Danach sieht das Formular wie in Bild 13 aus und wir können damit die Ausstattungen zu den einzelnen Fahrzeugen hinzufügen und wieder entfernen.<\/p>\n<\/p>\n![\"Beispiel](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_002.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_003.png\")
<\/p>\nÜberlegungen zur Darstellung der zugeordneten Datei<\/h2>\n
Alle Kategorien plus Markierung der zugeordneten Kategorien<\/h2>\n
![\"Temporäre](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_005.png\")
<\/p>\nHauptformular erstellen<\/h2>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_004.png\")
<\/p>\nUnterformular erstellen<\/h2>\n
![\"Unterformular](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_006.png\")
<\/p>\n![\"Einbau](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_007.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_008.png\")
<\/p>\nUnterformular füllen<\/h2>\n
Private Sub <\/span>Form_Current()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblKategorienSelektiert\", dbFailOnError\r\n db.Execute \"INSERT INTO tblKategorienSelektiert(KategorieID, Kategorie) SELECT KategorieID, Kategorie \" _\r\n & \"FROM tblKategorien ORDER BY Kategorie ASC\", dbFailOnError\r\n db.Execute \"UPDATE tblKategorienSelektiert SET Zugeordnet = -1 WHERE KategorieID IN (SELECT KategorieID \" _\r\n & \"FROM tblProdukteKategorien WHERE ProduktID = \" & Me.ProduktID & \")\", dbFailOnError\r\n Me.sfmProdukteKategorien.Form.Requery\r\nEnd Sub<\/span><\/pre>\n![\"Markierte](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_009.png\")
<\/p>\nSpeichern von Änderungen<\/h2>\n
Private Sub <\/span>Zugeordnet_AfterUpdate()\r\n Debug.Print<\/span> Me.Zugeordnet, Me.KategorieID, _\r\n Me.Parent.ProduktID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Zugeordnet_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSQL As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Me.Zugeordnet = True<\/span> Then<\/span>\r\n strSQL = \"INSERT INTO tblProdukteKategorien(ProduktID, KategorieID) VALUES(\" & Me.Parent.ProduktID _\r\n & \", \" & Me!KategorieID & \")\"\r\n Else<\/span>\r\n strSQL = \"DELETE FROM tblProdukteKategorien WHERE ProduktID = \" & Me.Parent.ProduktID _\r\n & \" AND KategorieID = \" & Me.KategorieID\r\n End If<\/span>\r\n db.Execute strSQL, dbFailOnError\r\nEnd Sub<\/span><\/pre>\nProblem neuer Datensatz<\/h2>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_010.png\")
<\/p>\ndb.Execute \"UPDATE tblKategorienSelektiert SET Zugeordnet = -1 WHERE KategorieID IN (SELECT KategorieID FROM tblProdukteKategorien WHERE ProduktID = \" & Nz(Me!ProduktID, 0) & \")\", dbFailOnError<\/pre>\n
INSERT INTO tblProdukteKategorien(ProduktID, KategorieID) VALUES(, 3)<\/pre>\n
Private Sub <\/span>Zugeordnet_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>Me.Parent.NewRecord = True<\/span> Then<\/span>\r\n MsgBox<\/span> \"Bitte legen Sie zunächst einen Datensatz im Hauptformular an.\", vbOKOnly + vbExclamation, _\r\n \"Kein Datensatz\"\r\n Me.Undo\r\n Me.Parent.Produktname.SetFocus\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nKategorien deaktivieren<\/h2>\n
Einbau in eigene Lösungen<\/h2>\n
![\"Eine](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_011.png\")
<\/p>\n\n
![\"Die](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_012.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblAusstattungenSelektiert\", dbFailOnError\r\n db.Execute \"INSERT INTO tblAusstattungenSelektiert(AusstattungID, Ausstattung) \" _\r\n & \"SELECT AusstattungID, Ausstattung FROM tblAusstattungen ORDER BY Ausstattung ASC\", dbFailOnError\r\n db.Execute \"UPDATE tblAusstattungenSelektiert SET Zugeordnet = -1 WHERE AusstattungID IN (SELECT AusstattungID \" _\r\n & \"FROM tblFahrzeugeAusstattungen WHERE FahrzeugID = \" & Nz(Me!FahrzeugID, 0) & \")\", dbFailOnError\r\n Me!sfmFahrzeugeAusstattungen.Form.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Zugeordnet_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>Me.Parent.NewRecord = True<\/span> Then<\/span>\r\n MsgBox<\/span> \"Bitte legen Sie zunächst einen Datensatz im Hauptformular an.\", vbOKOnly + vbExclamation, \"Kein Datensatz\"\r\n Me.Undo\r\n Me.Parent.Fahrzeug.SetFocus\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Zugeordnet_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSQL As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Me!Zugeordnet = True<\/span> Then<\/span>\r\n strSQL = \"INSERT INTO tblFahrzeugeAusstattungen(FahrzeugID, AusstattungID) VALUES(\" & Me.Parent.FahrzeugID _\r\n & \", \" & Me!AusstattungID & \")\"\r\n Else<\/span>\r\n strSQL = \"DELETE FROM tblFahrzeugeAusstattungen WHERE FahrzeugID = \" & Me.Parent.FahrzeugID _\r\n & \" AND AusstattungID = \" & Me!AusstattungID\r\n End If<\/span>\r\n db.Execute strSQL, dbFailOnError\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2024_04\/pic_1424_013.png\")
<\/p>\n