<\/p>\n
Wenn Sie herausfinden wollen, welche Tabellen über ein Fremdschlüsselfeld mit einer gegebenen Tabelle verknüpft sind, benötigen Sie ein paar Zeilen DAO-Code. Die hier vorgestellte Funktion erwartet den Namen der zu untersuchenden Tabelle und enthält zwei weitere Parameter, die zur Rückgabe der Ergebnisse vorgesehen sind. <\/b><\/p>\n
Da wir nicht nur die verknüpften Tabellen, sondern auch noch die Namen der Fremdschlüsselfelder der Tabellen ermitteln wollen, können wir hier nicht mit einem einfachen Rückgabewert arbeiten, sondern benötigen eben diese zwei Rückgabeparameter.<\/p>\n
Beide Parameter sind als Arrays ausgelegt, da ja auch einmal mehrere Tabellen über ein Fremdschlüsselfeld mit einer Tabelle verknüpft sein können.<\/p>\n
In diesem Fall durchläuft die Funktion alle Elemente der Relations<\/b>-Auflistung der Datenbank. Dabei vergleicht sie den Namen der Tabelle der einen Seite der Relation mit dem Namen der zu untersuchenden Tabelle. Stimmen beide überein, folgen weitere Schritte.<\/p>\n
Die Funktion erweitert die Arrays dann um ein Element und trägt den Namen der verknüpften Tabelle (aus der Eigenschaft ForeignTable <\/b>des Relation<\/b>-Objekts) und den Namen des Fremdschlüsselfeldes (aus der Eigenschaft ForeignName<\/b>) als neue Elemente in die beiden Arrays strVerknuepfteTabellen <\/b>und strFremdschluesselfelder <\/b>ein:<\/p>\n <\/p>\n Der Aufruf dieser Prozedur sieht beispielsweise so aus:<\/p>\n Hier deklarieren wir zwei Arrays für die Rückgabeparameter. Den Namen der zu untersuchenden Tabelle übergibt die Prozedur als ersten Parameter, die beiden Arrays danach.<\/p>\n Das Ergebnis durchläuft die Prozedur in einer For…Next<\/b>-Schleife über die Elemente der Arrays und gibt diese im Direktfenster aus.<\/p>\n","protected":false},"excerpt":{"rendered":" Wenn Sie herausfinden wollen, welche Tabellen über ein Fremdschlüsselfeld mit einer gegebenen Tabelle verknüpft sind, benötigen Sie ein paar Zeilen DAO-Code. Die hier vorgestellte Funktion erwartet den Namen der zu untersuchenden Tabelle und enthält zwei weitere Parameter, die zur Rückgabe der Ergebnisse vorgesehen sind. <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662015,66052015,44000004],"tags":[],"class_list":["post-55001005","post","type-post","status-publish","format-standard","hentry","category-662015","category-66052015","category-Tipps_und_Tricks"],"yoast_head":"\nPublic Function <\/span>VerknuepfteTabellen(strTabelle As String<\/span>, _\r\n strVerknuepfteTabellen() As String<\/span>, _\r\n strFremdschluesselfelder() As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rel As <\/span>DAO.Relation\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n For Each rel In db.Relations\r\n If <\/span>rel.Table = strTabelle Then<\/span>\r\n ReDim Preserve strVerknuepfteTabellen(i)\r\n ReDim Preserve strFremdschluesselfelder(i)\r\n strVerknuepfteTabellen(i) = rel.ForeignTable\r\n strFremdschluesselfelder(i) = _\r\n rel.Fields(0).ForeignName\r\n i = i + 1\r\n End If<\/span>\r\n Next<\/span> rel\r\n Set<\/span> db = Nothing\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>Test_VerknuepfteTabellen()\r\n Dim <\/span>strVerknuepfteTabellen() As String<\/span>\r\n Dim <\/span>strFremdschluesselfelder() As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n VerknuepfteTabellen \"tblKunden\", _\r\n strVerknuepfteTabellen, strFremdschluesselfelder\r\n For i = LBound<\/span>(strVerknuepfteTabellen) To _\r\n UBound<\/span>(strVerknuepfteTabellen)\r\n Debug.Print<\/span> strVerknuepfteTabellen(i), _\r\n strFremdschluesselfelder(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n