<\/p>\n
Microsoft Access bietet eine ganze Reihe von praktischen Assistenten. Ich setze beispielsweise sehr oft den Nachschlage-Assistenten ein, der nicht nur eine Beziehung mit den gewünschten Optionen anlegt, sondern das bearbeitete Feld auch noch als Kombinationsfeld auslegt, mit dem die Daten der verknüpften Tabelle leicht ausgewählt werden können. Eine m:n-Beziehung stellen Sie her, indem Sie zwei solcher Nachschlage-felder in der sogenannten Verknüpfungstabelle anlegen. Noch praktischer wäre es, wenn Sie diese Verknüpfungstabelle gar nicht erst anlegen müssten. Stattdessen wären nur die zu verknüpfenden Tabellen auszuwählen und der Assistent erledigt den Rest – das Anlegen der Verknüpfungstabelle mit den notwendigen Feldern sowie das Einrichten der Beziehungen zu den zu verknüpfenden Tabellen. Dieser Beitrag zeigt, wie Sie einen solchen Assistenten programmieren können.<\/b><\/p>\nAusgangsposition<\/h2>\n
Der Assistent soll zwei Tabellen wie die in Bild 1 miteinander verknüpfen. Dazu benötigen wir eine weitere Tabelle etwa namens tblProdukteKategorien <\/b>mit dem Primärschlüsselfeld ProduktKategorieID <\/b>und den beiden Fremdschlüsselfeldern ProduktID <\/b>und KategorieID<\/b>.<\/p>\n
![\"Zu](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_001.png\")
<\/p>\n
Bild 1: Zu verknüpfende Tabellen<\/span><\/b><\/p>\n Diese stellen jeweils die Verknüpfung zu den Tabellen tblProdukte <\/b>und tblKategorien <\/b>her, sodass alle Einträge der Tabelle tblProdukte <\/b>mit den Einträgen der Tabelle tblKategorien <\/b>verknüpft werden können. Die Fremdschlüsselfelder legen Sie am schnellsten an, indem Sie im Tabellenentwurf den Eintrag Nachschlage-Assistent… <\/b>wählen und die Verknüpfung darüber vornehmen. Die Verknüpfungstabelle sieht danach wie in Bild 2 aus.<\/p>\n Bild 2: Die Verknüpfungstabelle<\/span><\/b><\/p>\n Wechseln Sie in die Datenblattansicht, erhalten Sie eine Tabelle, mit deren Fremdschlüsselfeldern Sie die gewünschten Kombinationen aus Produkten und Kategorien leicht zusammenstellen können (siehe Bild 3).<\/p>\n Bild 3: Datenblattansicht der Verknüpfung<\/span><\/b><\/p>\n Die Beziehungen können Sie danach wie in Bild 4 im Beziehungen-Fenster einsehen.<\/p>\n Bild 4: Die m:n-Beziehung im Beziehungen-Fenster<\/span><\/b><\/p>\n Um eine m:n-Beziehung zwischen zwei Tabellen herzustellen, sind normalerweise die folgenden Schritte nötig:<\/p>\n Was genau benötigen wir an Informationen, um automatisiert eine Verknüpfungstabelle für zwei per m:n-Beziehung zu verknüpfenden Tabellen zu erstellen Beziehungsweise welche Informationen muss der Assistent zur Erstellung einer m:n-Beziehung vom Entwickler abfragen<\/p>\n Starten wir also direkt mit der Programmierung des Add-Ins. Dieses soll über ein Formular verfügen, mit dem wir alle Einstellungen für die Erstellung der m:n-Beziehung vornehmen können.<\/p>\n Als Erstes benötigen wir zwei Kombinationsfelder, mit denen wir die beiden an der Beziehung beteiligten Tabellen ermitteln können.<\/p>\n Diese Kombinationsfelder erhalten nach dem Hinzufügen zu einem neuen Formular namens frmMNAssistent <\/b>die Bezeichnungen cboMTabelle <\/b>und cboNTabelle<\/b>. Diese fügen wir jeweils in einen neuen Rahmen ein, sodass der Aufbau in der Entwurfsansicht zunächst wie in Bild 5 aussieht.<\/p>\n Bild 5: Assistenten-Formular<\/span><\/b><\/p>\n Damit der Benutzer die in der aktuellen Datenbank enthaltenen Tabellen auswählen kann, stellen wir die Eigenschaft Datensatzherkunft <\/b>der beiden Kombinationsfelder auf die Abfrage aus Bild 6 ein.<\/p>\n Bild 6: Datensatzherkunft der Kombinationsfelder zur Auswahl der an der Beziehung beteiligten Tabellen<\/span><\/b><\/p>\n Damit die hier verwendete Tabelle MSysObjects<\/b> sichtbar ist, müssen Sie zunächst die entsprechende Option aktivieren. Diese finden Sie, wenn Sie mit der rechten Maustaste auf den Navigationsbereich klicken und dann den Eintrag Navigationsoptionen… <\/b>auswählen. Im nun erscheinenden Dialog Navigationsoptionen <\/b>aktivieren Sie die Option Systemobjekte anzeigen<\/b>.<\/p>\n Danach können Sie der Abfrage für die Eigenschaft Datensatzherkunft <\/b>wie in der Abbildung die Tabelle MSysObjects <\/b>hinzufügen und die beiden Felder Name <\/b>und Type <\/b>zum Entwurfsraster der Abfrage hinzufügen. Außerdem stellen Sie als Kriterium für das Feld Name den Wert Nicht Wie „MSys*“ Und Nicht Wie „USys*“ Und Nicht Wie „f_*“ <\/b>und für das Feld Type <\/b>den Wert 1 <\/b>ein. Das sorgt erstens dafür, dass keine System- und temporären Tabellen erscheinen und dass nur lokale Tabellen zur Auswahl angeboten werden.<\/p>\n Nach dem Schließen des Abfrageentwurfs können Sie den Wert der Eigenschaft Datensatzherkunft <\/b>des Kombinationsfeldes cboMTabelle <\/b>in die entsprechende Eigenschaft des Kombinationsfeldes cboNTabelle <\/b>kopieren:<\/p>\n Wenn Sie anschließend in die Formularansicht wechseln, können Sie bereits die an der Beziehung beteiligten Tabellen auswählen (siehe Bild 7).<\/p>\n Bild 7: Auswahl der an der Beziehung beteiligten Kombinationsfelder<\/span><\/b><\/p>\n Unter den beiden Kombinationsfeldern platzieren wir zwei weitere Kombinationsfelder namens cboMPrimaerschluessel <\/b>und cboNPrimaerschluessel<\/b>.<\/p>\n Diese sollen direkt nach der Auswahl einer Tabelle mit dem darüber befindlichen Kombinationsfeld alle Felder der gewählten Tabelle anzeigen und das Primärschlüsselfeld dieser Tabelle als Vorauswahl einstellen.<\/p>\n Dazu müssen wir zwei Aufgaben erledigen:<\/p>\n Die Liste der Felder können wir auf zwei Wegen herausfinden. Der erste verwendet ausschließlich VBA und nutzt die Fields<\/b>-Auflistung des jeweiligen TableDef<\/b>-Objekts.<\/p>\n Der zweite verwendet die Herkunftsart Feldliste<\/b> und die im ersten Kombinationsfeld ausgewählte Tabelle als Datensatzherkunft<\/b>. Dabei müssen wir aber dennoch nach der Auswahl VBA bemühen, um die Eigenschaft Datensatzherkunft <\/b>zu füllen. Um nur das zu erledigen, hinterlegen wir die folgenden beiden Ereignisprozeduren jeweils für Kombinationsfelder cboMTabelle <\/b>und cboNTabelle<\/b>:<\/p>\n Damit bieten die beiden Kombinationsfelder bereits die Felder der jeweiligen Tabelle zur Auswahl an (siehe Bild 8).<\/p>\n Bild 8: Auswahl des Primärschlüsselfeldes für das Erstellen der m:n-Beziehung<\/span><\/b><\/p>\n Nun wollen wir noch dafür sorgen, dass direkt die Primärschlüsselfelder dieser Tabellen angezeigt werden. Schließlich soll der Benutzer so wenig Aufwand wie möglich haben. Dazu fügen wir den beiden Ereignisprozeduren cboMTabelle_AfterUpdate <\/b>und cboNTabelle_AfterUpdate <\/b>jeweils einen Aufruf einer Funktion namens Primaerschluessel-Ermitteln <\/b>hinzu:<\/p>\n Diese Funktion erwartet den Namen der zu untersuchenden Tabelle als Parameter. Sie füllt die Variable db <\/b>mit einem Verweis auf das aktuelle Database<\/b>-Objekt und tdf <\/b>mit einem Verweis auf das TableDef<\/b>-Objekt für die Tabelle aus strTabelle<\/b>. Dann durchläuft sie alle Einträge der Auflistung tdf.Indexes <\/b>und speichert das jeweils aktuelle Element in der Variablen idx<\/b>. Für dieses prüft sie den Wert der Eigenschaft Primary<\/b>.<\/p>\n Ist dieser True<\/b>, schreibt sie den Namen des ersten Feldes dieses Indizes in den Rückgabewert der Funktion und beendet diese mit Exit Function<\/b>. Das funktioniert für keinen, einen oder zusammengesetzte Primärschlüssel gleichermaßen sinnvoll: Wenn kein Primärschlüssel für die Tabelle vorhanden ist, liefert die Funktion eine leere Zeichenkette zurück, für einen Primärschlüssel mit einem Feld den Namen des betroffenen Feldes und für einen zusammengesetzten Primärschüssel den Namen des ersten Feldes:<\/p>\n Für unser Beispiel mit den Produkten und Kategorien stellen die Prozeduren zuverlässig das jeweilige Primärschüsselfeld ein.<\/p>\n Zusätzlich wollen wir in diesem Formular die Daten für die Nachschlagefelder abfragen, sofern der Benutzer diese anlegen möchte. Manchmal ist es sinnvoll, zum Beispiel bei Bestellpositionen, wo man direkt aus der m:n-Verknüpfungstabelle das Produkt zu einer Bestellposition auswählen möchte. An anderen Stellen sind die Werte der Verknüpfungstabelle vielleicht gar nicht sichtbar, zum Beispiel wenn diese über zwei Listenfelder angezeigt werden.<\/p>\n Also fügen wir die notwendigsten Felder hinzu plus einem Kontrollkästchen zum Aktivieren oder Deaktivieren dieser Einstellungen.<\/p>\n Die Kontrollkästchen heißen chkMNachschlagefeld <\/b>und chkNNachschlagefeld<\/b>, die Kombinationsfelder zur Auswahl des anzuzeigenden Feldes für das Nachschlagefeld heißen cboMNachschlagefeld <\/b>und cboNNachschlagefeld<\/b> (siehe Bild 9). Damit die beiden Kombinationsfelder genau wie die zur Auswahl der Primärschlüsselfelder auch die Felder der zu verknüpfenden Tabellen anzeigen, fügen wir den Prozeduren cboMTabelle_AfterUpdate <\/b>und cboNTabelle_AfterUpdate <\/b>noch jeweils eine Anweisung hinzu:<\/p>\n Bild 9: Informationen für die Nachschlagefelder<\/span><\/b><\/p>\n Damit die beiden Kontrollkästchen beim Aktivieren und Deaktivieren auch die beiden Kombinationsfelder cboMNachschlagefeld <\/b>und cboNNachschlagefeld <\/b>aktivieren beziehungsweise deaktivieren, fügen wir diese Ereignisprozeduren für das Ereignis Nach Aktualisierung <\/b>der beiden Kontrollkästchen hinzu:<\/p>\n Die Bezeichnungen für die zu erstellende Tabelle und die enthaltenen Felder bestimmen wir automatisch auf Basis der gewählten zu verknüpfenden Tabellen und den gewählten Primärschlüsselfeldern. Dies erledigen wir in der Prozedur VerknuepfungstabelleAktualisieren<\/b> aus Listing 1. Sie liest zuerst die gewählten Tabellen in die Variablen strMTabelle <\/b>und strNTabelle <\/b>ein sowie die selektierten Primärschlüsselfelder.<\/p>\n Listing 1: Einstellen der Daten der Verknüpfungstabelle<\/span><\/b><\/p>\n Dann folgt die Prüfung, ob der Benutzer eines der Präfixe tbl <\/b>oder tbl_ <\/b>für die beiden zu verknüpfenden Tabellen verwendet. Falls ja, werden diese vorn abgeschnitten, sodass beispielsweise von tblProdukte <\/b>oder tbl_Produkte <\/b>nur noch Produkte <\/b>übrig bleibt.<\/p>\n Daraus leitet die Prozedur den Namen der Verknüpfungstabelle ab, der aus dem Präfix tbl<\/b>, dem Namen der m-Tabelle und dem Namen der n-Tabelle jeweils ohne Präfix besteht.<\/p>\n Das Ergebnis landet im Textfeld txtVerknuepfungstabelle<\/b>.<\/p>\n Dann untersucht die Prozedur die gewählten Primärschlüsselfelder der beiden Tabellen. Diese dienen schließlich als Grundlage für die Benennung der Fremdschlüsselfelder der Verknüpfungstabelle.<\/p>\n Wenn der Name eines der Primärschlüsselfelder lediglich ID <\/b>lautet, stellt die Prozedur den oben ermittelten Namen der Tabelle ohne Präfix voran. Das kann in unserem Fall auch der Plural sein, was zu Bezeichnungen wie ProdukteID <\/b>oder KategorienID <\/b>führen kann. Das ist aber kein Problem, denn der Benutzer kann die Bezeichnungen ja noch anpassen.<\/p>\n Sollte die Bezeichnung des Primärschlüsselfeldes jedoch der von uns erwarteten Konvention entsprechen, also aus dem Singular der Bezeichnung der enthaltenen Objekte bestehen (wie ProduktID <\/b>oder KategorieID<\/b>), dann speichert die Prozedur den Teil vor ID <\/b>in den Variablen strMPrimaerschluessel <\/b>und strNPrimaerschluessel<\/b>. Anschließend hängen wir hinten wieder ID <\/b>an und schreiben das Ergebnis in die Textfelder txtMFremdschluesselfeld <\/b>und txtNFremdschluesselfeld<\/b>. Warum haben wir ID erst abgetrennt Weil wir noch das Primärschlüsselfeld für die Verknüpfungstabelle benennen müssen, dass den Singular der Bezeichnungen der Elemente der ersten und der zweiten Tabelle und das Suffix ID <\/b>enthalten soll, zum Beispiel ProduktKategorieID<\/b>. Dieser Ausdruck landet schließlich im Textfeld txtPrimaerschluesselfeld<\/b>.<\/p>\n Das Ergebnis sieht schließlich wie in Bild 10 aus. Damit dies wie gewünscht funktioniert, fügen wir den Aufruf dieser Prozedur in die folgenden beiden Prozeduren nachträglich ein:<\/p>\n Bild 10: Das Formular frmMNAssistent in der Formularansicht<\/span><\/b><\/p>\n Für die Aktualisierung der beiden Kombinationsfelder cboMPrimaerschluessel <\/b>und cboNPrimaerschluessel <\/b>legen wir die folgenden Ereignisprozeduren an:<\/p>\n Bevor wir gleich die Verknüpfungstabelle mit den angegebenen Feldern und Indizes anlegen, prüfen wir, ob es bereits eine Tabelle mit dem angegebenen Namen gibt.<\/p>\n Dazu verwenden wir die folgende Funktion namens ExistsTable<\/b>, die als Parameter den Namen der zu untersuchenden Tabelle entgegennimmt:<\/p>\n <\/p>\n Die Funktion erstellt ein Database<\/b>-Objekt und versucht dann, bei deaktivierter eingebauter Fehlerbehandlung auf das Table-Def<\/b>-Objekt mit dem Namen der zu untersuchenden Tabelle zuzugreifen. Gelingt das, ist tdf <\/b>anschließend nicht leer, was dazu führt, dass der Funktionswert in der If…Then<\/b>-Bedingung auf den Wert True <\/b>eingestellt wird.<\/p>\n Ist die Tabelle bereits vorhanden, fragen wir den Benutzer per Meldungsfenster, ob die vorhandene Tabelle gelöscht werden soll. Ist das der Fall, initiieren wir den Löschvorgang mit der folgenden Funktion. Diese ist auch für den Fall ausgestattet, dass die Tabelle aktuell geöffnet ist (siehe Listing 2).<\/p>\n Listing 2: Löschen der angegebenen Tabelle<\/span><\/b><\/p>\n Die Funktion nimmt den Namen der Tabelle mit dem Parameter strTable <\/b>entgegen. Als erste Aktion schließt sie die gegebenenfalls noch geöffnete Tabelle mit der Methode DoCmd.Close<\/b>.<\/p>\n Für den dritten Parameter Save <\/b>geben wir den Wert acSaveNo <\/b>an, der dafür sorgt, dass im Falle offener Änderungen weder ein Speichern der Änderungen noch eine entsprechende Rückfrage erfolgt.<\/p>\n Dann deaktiviert die Funktion die Fehlerbehandlung und versucht mit der Delete<\/b>-Methode der TableDefs<\/b>-Auflistung, die Tabelle zu löschen. Dies kann schiefgehen, wenn zum Beispiel noch ein Formular auf dieses Element zugreift. In diesem Fall zeigt die Prozedur die entsprechende Fehlermeldung an, die wir zuvor neben der Fehlernummer in den beiden Variablen lngError <\/b>und strError <\/b>gespeichert haben.<\/p>\n Ist kein Fehler aufgetreten, wurde die Tabelle erfolgreich gelöscht. In diesem Fall sorgt ein Aufruf der Methode Application.RefreshDatabaseWindow <\/b>dafür, dass die gelöschte Tabelle direkt aus dem Navigationsbereich verschwindet. Außerdem stellt die Funktion ihren Rückgabewert auf True <\/b>ein.<\/p>\n Damit kommen wir endlich zu der Funktion, mit der wir die neue Verknüpfungstabelle erstellen. Diese heißt AddManyToManyTable <\/b>und erwartet die folgenden Parameter:<\/p>\n Die Funktion AddManyToManyTable<\/b> finden Sie in Listing 3. Sie erstellt zunächst einen Verweis auf das aktuelle Database<\/b>-Objekt. Dann legt sie ein neues TableDef<\/b>-Objekt mit dem Namen aus strLinkTable<\/b> an.<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_002.png\")
<\/p>\n![\"Datenblattansicht](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_003.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_004.png\")
<\/p>\nVorher<\/h2>\n
\n
Anforderungen<\/h2>\n
\n
Programmieren des Add-Ins<\/h2>\n
Auswahl der beteiligten Tabellen<\/h2>\n
![\"Assistenten-Formular\"](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_005.png\")
<\/p>\n![\"Datensatzherkunft](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_006.png\")
<\/p>\nSELECT Name, Type \r\nFROM MSysObjects \r\nWHERE (Name Not<\/span> Like \"MSys*\" \r\nAnd Name Not<\/span> Like \"USys*\" \r\nAnd Name Not<\/span> Like \"f_*\") \r\nAND (Type=1);<\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_007.png\")
<\/p>\nAuswahl der beteiligten Primärschlüsselfelder<\/h2>\n
\n
Private Sub <\/span>cboMTabelle_AfterUpdate()\r\n Me!cboMPrimaerschluessel.RowSource = Me!cboMTabelle\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cboNTabelle_AfterUpdate()\r\n Me!cboNPrimaerschluessel.RowSource = Me!cboNTabelle\r\nEnd Sub<\/span><\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_008.png\")
<\/p>\nPrimärschlüsselfeld auswählen<\/h2>\n
Private Sub <\/span>cboMTabelle_AfterUpdate()\r\n Me!cboMPrimaerschluessel.RowSource = Me!cboMTabelle\r\n Me!cboMPrimaerschluessel = PrimaerschluesselErmitteln(Me!cboMTabelle)\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>PrimaerschluesselErmitteln( strTabelle As String<\/span>) As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>idx As <\/span>DAO.Index\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> tdf = db.TableDefs(strTabelle)\r\n For Each idx In tdf.Indexes\r\n If <\/span>idx.Primary Then<\/span>\r\n PrimaerschluesselErmitteln = idx.Fields(0).Name\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Next<\/span> idx\r\nEnd Function<\/span><\/pre>\nInformationen für das Nachschlagefeld<\/h2>\n
![\"Informationen](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_009.png\")
<\/p>\nPrivate Sub <\/span>cboMTabelle_AfterUpdate()\r\n ...\r\n Me!cboMNachschlagefeld.RowSource = Me!cboMTabelle\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cboNTabelle_AfterUpdate()\r\n ...\r\n Me!cboNNachschlagefeld.RowSource = Me!cboNTabelle\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chkMNachschlagefeld_AfterUpdate()\r\n Me!cboMNachschlagefeld.Enabled = Me!chkMNachschlagefeld\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>chkNNachschlagefeld_AfterUpdate()\r\n Me!cboNNachschlagefeld.Enabled = Me!chkNNachschlagefeld\r\nEnd Sub<\/span><\/pre>\nName für die zu erstellende Tabelle und ihre Felder ermitteln<\/h2>\n
Private Sub <\/span>VerknuepfungstabelleAktualisieren()\r\n Dim <\/span>strMTabelle As String<\/span>\r\n Dim <\/span>strNTabelle As String<\/span>\r\n Dim <\/span>strMPrimaerschluessel As String<\/span>\r\n Dim <\/span>strNPrimaerschluessel As String<\/span>\r\n strMTabelle = Nz(Me!cboMTabelle, \"\")\r\n strNTabelle = Nz(Me!cboNTabelle, \"\")\r\n strMPrimaerschluessel = Nz(Me!cboMPrimaerschluessel, \"\")\r\n strNPrimaerschluessel = Nz(Me!cboNPrimaerschluessel, \"\")\r\n If <\/span>Left<\/span>(strMTabelle, 4) = \"tbl_\" Then<\/span>\r\n strMTabelle = Mid<\/span>(strMTabelle, 5)\r\n End If<\/span>\r\n If <\/span>Left<\/span>(strMTabelle, 3) = \"tbl\" Then<\/span>\r\n strMTabelle = Mid<\/span>(strMTabelle, 4)\r\n End If<\/span>\r\n If <\/span>Left<\/span>(strNTabelle, 4) = \"tbl_\" Then<\/span>\r\n strNTabelle = Mid<\/span>(strNTabelle, 5)\r\n End If<\/span>\r\n If <\/span>Left<\/span>(strNTabelle, 3) = \"tbl\" Then<\/span>\r\n strNTabelle = Mid<\/span>(strNTabelle, 4)\r\n End If<\/span>\r\n Me!txtVerknuepfungstabelle = \"tbl\" & strMTabelle & strNTabelle\r\n If <\/span>strMPrimaerschluessel = \"ID\" Then<\/span>\r\n strMPrimaerschluessel = strMTabelle & \"ID\"\r\n Else<\/span>If Right<\/span>(strMPrimaerschluessel, 2) = \"ID\" Then\r\n strMPrimaerschluessel = Left<\/span>(strMPrimaerschluessel, Len<\/span>(strMPrimaerschluessel) - 2)\r\n End If<\/span>\r\n If <\/span>strNPrimaerschluessel = \"ID\" Then<\/span>\r\n strNPrimaerschluessel = strNTabelle & \"ID\"\r\n Else<\/span>If Right<\/span>(strNPrimaerschluessel, 2) = \"ID\" Then\r\n strNPrimaerschluessel = Left<\/span>(strNPrimaerschluessel, Len<\/span>(strNPrimaerschluessel) - 2)\r\n End If\r\n Me!txtMFremdschluesselfeld = strMPrimaerschluessel & \"ID\"\r\n Me!txtNFremdschluesselfeld = strNPrimaerschluessel & \"ID\"\r\n Me!txtPrimaerschluesselfeld = strMPrimaerschluessel & strNPrimaerschluessel & \"ID\"\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2021_06\/pic_1335_010.png\")
<\/p>\nPrivate Sub <\/span>cboMTabelle_AfterUpdate()\r\n ...\r\n VerknuepfungstabelleAktualisieren\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cboNTabelle_AfterUpdate()\r\n ...\r\n VerknuepfungstabelleAktualisieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboNPrimaerschluessel_AfterUpdate()\r\n VerknuepfungstabelleAktualisieren\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cboMPrimaerschluessel_AfterUpdate()\r\n VerknuepfungstabelleAktualisieren\r\nEnd Sub<\/span><\/pre>\nPrüfen, ob Verknüpfungstabelle bereits vorhanden ist<\/h2>\n
Public Function <\/span>ExistsTable(strTable As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>dao.Database\r\n Dim <\/span>tdf As <\/span>dao.TableDef\r\n Set<\/span> db = CurrentDb\r\n On Error Resume Next<\/span>\r\n Set<\/span> tdf = db.TableDefs(strTable)\r\n On Error GoTo<\/span> 0\r\n If <\/span>Not<\/span> tdf Is Nothing Then<\/span>\r\n ExistsTable = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nVorhandene Tabelle löschen<\/h2>\n
Public Function <\/span>DeleteTable(strTable As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngError As Long<\/span>\r\n Dim <\/span>strError As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n DoCmd.Close acTable, strTable, acSaveNo\r\n On Error Resume Next<\/span>\r\n db.TableDefs.Delete strTable\r\n lngError = Err.Number\r\n strError = Err.Description\r\n On Error GoTo<\/span> 0\r\n If <\/span>Not<\/span> lngError = 0 Then<\/span>\r\n Select Case lngError\r\n Case Else<\/span>\r\n MsgBox<\/span> lngError & \" \" & strError\r\n End Select<\/span>\r\n Else<\/span>\r\n Application.RefreshDatabaseWindow\r\n DeleteTable = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nVerknüpfungstabelle erstellen<\/h2>\n
\n
Public Function <\/span>AddManyToManyTable(strLinkTable As String<\/span>, strPrimaryKey As String<\/span>, _\r\n strForeignKeyM As String<\/span>, strForeignKeyN As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n Dim <\/span>idx As <\/span>DAO.Index\r\n On Error Resume Next<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> tdf = db.CreateTableDef(strLinkTable)\r\n Set<\/span> fld = tdf.CreateField(strPrimaryKey, dbLong)\r\n fld.Attributes = fld.Attributes + dbAutoIncrField\r\n tdf.Fields.Append fld\r\n Set<\/span> idx = tdf.CreateIndex(\"PrimaryKey\")\r\n With<\/span> idx\r\n .Primary = True<\/span>\r\n .Fields.Append .CreateField(strPrimaryKey)\r\n End With<\/span>\r\n tdf.Indexes.Append idx\r\n Set<\/span> fld = tdf.CreateField(strForeignKeyM, dbLong)\r\n tdf.Fields.Append fld\r\n Set<\/span> fld = tdf.CreateField(strForeignKeyN, dbLong)\r\n tdf.Fields.Append fld\r\n Set<\/span> idx = tdf.CreateIndex(\"UniqueKey\")\r\n With<\/span> idx\r\n .Unique = True<\/span>\r\n .Fields.Append .CreateField(strForeignKeyM)\r\n .Fields.Append .CreateField(strForeignKeyN)\r\n End With<\/span>\r\n tdf.Indexes.Append idx\r\n db.TableDefs.Append tdf\r\n db.TableDefs.Refresh\r\n If <\/span>Err.Number = 0 Then<\/span>\r\n Application.RefreshDatabaseWindow\r\n AddManyToManyTable = True<\/span>\r\n Else<\/span>\r\n