![\"Beziehungslayout](\"..\/tl_files\/images\/Beziehungsfenster.png\")
<\/a><\/p>\nBild 1: Beziehungslayout der Beispieldatenbank<\/p>\n
Bild 2 zeigt die Einstellungen für die Beziehung zwischen Adressen- und Anreden-Tabelle. Die Referenzielle Integrität<\/b> wurde ausgeschaltet, aber der Typ mit 1:n <\/b>beibehalten. Die Einstellungen für die Nachschlagetabelle zu Orten findet sich in Bild 3. Hier wurde nichts verändert. Schließlich stellt Bild 4 die Beziehung für die Länder-Tabelle dar, bei der jeweils zwei Felder verknüpft wurden. Neben dem eigentlichen Primärschlüsselfeld ID<\/b> zu IDAnrede<\/b> ist zusätzlich der Ländername Land<\/b> selbst in der zweiten Zeile 1:n<\/b>-verknüpft. Außerdem ist der Typ der Beziehung, erreichbar über die Schaltfläche Verknüpfungstyp…<\/b>, auf den dritten Modus eingestellt, was sie zu einer Left-Join-Beziehung<\/b> macht (Bild 5) Mit diesen Vorgaben lässt sich Referenzielle Integrität <\/b>ohnehin nicht mehr festlegen, weil keine Eindeutigkeit mehr gegeben ist.<\/p>\n
Bild 2: Einstellungen für die Beziehung zur Tabelle tblOrte<\/p>\n Bild 3: Verknüpfungstyp der Beziehung zu tblLaender<\/p>\n Bild 4: Einstellung für die Beziehung zur Tabelle tblLaender<\/p>\n Bild 5: Einstellungen der Beziehung zur Tabelle tblAnreden<\/p>\n Für die Beziehungen einer Datenbank ist über das VBA-Objekt Database<\/b> deren Auflistungseigenschaft Relations<\/b> zuständig. Die kurze Routine GetRelations<\/b> in Listing 1 macht deutlich, wie die einzelnen Relation<\/b>-Objekte in einer For-Each-Schleife<\/b> durchlaufen werden können.<\/p>\n Listing 1: Prozedur zum Durchlaufen der DAO-Auflistung Relations<\/p>\n Zunächst wird die Database<\/b>-Variable dbs<\/b> über die Funktion CurrentDb<\/b> auf eine aktuelle Instanz der Datenbank gesetzt. Als Schleifenvariable kommt die Variable rel<\/b> vom Typ DAO.Relation<\/b> zum Einsatz. Im VBA-Direktfenster wird dann lediglich der Name<\/b> der Beziehung ausgegeben. Als Ergebnis erhalten Sie dies:<\/p>\n Dass Beziehungen überhaupt Namen haben, ist nicht so selbstverständlich, denn diese tauchen in der Oberfläche von Access nirgendwo auf. Im Beziehungsfenster sind sie auch in den Eigenschaftsdialogen nicht angegeben. Wie Sie sehen können, leiten sich die Namen aus den an der Beziehung beteiligten Tabellen ab. Die ersten beiden oben angegebenen Beziehungen sind übrigens in jeder Datenbank im Access 2007-Format<\/b> vorhanden. Access legt sie selbst an.<\/p>\n Diese speziellen MSys-Tabellen<\/b> dienen der Verwaltung und Steuerung des Navigationsbereichs.<\/p>\n Weiten wir nun die einfache Prozedur aus Listing 1 <\/b>einmal ab, um mehr über die Beziehungen zu erfahren. Die Routine in Listing 2 hat den gleichen Grundaufbau, gibt aber neben den Namen auch noch die an der Verknüpfung beteiligten Tabellen über die Eigenschaften Table<\/b> und ForeignTable<\/b> der jeweiligen Relations-Objekte<\/b> wieder. Das Ergebnis, hier unter Ausschluss der MSys<\/b>-Beziehungen:<\/p>\n Listing 2: Ausgabe weiterer Bezihungseigenschaften (Tabellen)<\/p>\n Table<\/b> ist also jene Tabelle, welche den Primärschlüssel in der Beziehung aufweist, ForeignTable<\/b> die Tabelle mit dem Fremdschlüsselfeld. Die Zahl, die Attributes enthält, gibt darüber hinaus Aufschluss auf die Art der Beziehung. Es handelt sich hierbei um eine Kombination von Konstanten der Enumeration RelationAttributeEnum<\/b> von DAO – siehe Objektkatalog. Der Wert 0 besagt dabei, dass die Beziehung Referenzielle Integrität <\/b>fordert. Ist dies nicht der Fall, so steht hier eine 2. Die Zahl 33554434 ergibt sich aus der booleschen Addition von dbRelationRight<\/b> (33554432) mit dbRelationDontEnforce<\/b> (2), was eine Right-Verknüpfung<\/b> ohne Referenzielle Integrität <\/b>symbolisiert. Damit Sie den Typ nicht langwierig über die Analyse der Konstanten im Objektkatalog ermitteln müssen, gibt es im Modul mdlDAORelations<\/b> die Funktion AttributesString<\/b>, der Sie die Attributes<\/b>-Konstante als Parameter übergeben und als Rückgabe eine Textrepräsentation des Typs erhalten:<\/p>\n Sie können, statt die Relation<\/b>-Methoden explizit anzugeben, auch deren Properties<\/b> auslesen (Listing 3), und kommen damit zum gleichen Resultat:<\/p>\n Listing 3: Durchlaufen der Properties-Auflistungen der Relations<\/p>\n Hier schleicht sich noch die Eigenschaft PartialReplica<\/b> ein, die uns nicht weiter interessiert, weil sie nur für replizierte Datenbanken von Belang ist, die ohnehin seit geraumer Zeit nicht mehr direkt von Access unterstützt werden.<\/p>\n Nun haben wir zwar die Tabellen einer Beziehung ermittelt, wissen aber noch nicht, welche Felder genau aus ihnen miteinander verknüpft sind. Die Fields<\/b>-Auflistung eines Relation<\/b>-Objekts jedoch gibt uns darüber Auskunft. Sie kann auf analoge Weise durchlaufen werden, wie die Properties<\/b> (siehe Listing 4). Für jedes Feld fld<\/b> eines Relation<\/b>-Objekts werden hier die Eigenschaften Name<\/b> und ForeignName<\/b> ausgelesen und mit den jeweiligen Tabellennamen kombiniert, so dass sich dieses Ergebnis zeigt:<\/p>\n Listing 4: Durchlaufen der Fields-Auflistungen der Relations<\/p>\n Am zweiten Eintrag zur Länder-Beziehung wird deutlich, dass zwei Felder verknüpft wurden, die Fields<\/b>-Auflistung also zwei Elemente enthält. Obwohl übrigens das Field-Objekt als DAO.Field<\/b> ausgewiesen ist, kennt es nur genau diese zwei Eigenschaften Name<\/b> und ForeignName<\/b>. Alle anderen Methoden des Objekts schlagen hier fehl.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nBeziehungen auslesen<\/h2>\n
Sub <\/span>GetRelations()\r\n Dim <\/span>dbs As <\/span>Database\r\n Dim <\/span>rel As <\/span>DAO.Relation\r\n \r\n Set<\/span> dbs = CurrentDb\r\n For Each rel In dbs.Relations\r\n Debug.Print<\/span> rel.Name\r\n Next<\/span> rel\r\nEnd Sub<\/span><\/pre>\nMSysNavPaneGroupCategoriesMSysNavPaneGroupsMSysNavPaneGroupsMSysNavPaneGroupToObjectstblAnredentblAdressentblLaendertblAdressentblOrtetblAdressen<\/pre>\n
Sub <\/span>GetRelationsTables()\r\n Dim <\/span>dbs As <\/span>Database\r\n Dim <\/span>rel As <\/span>DAO.Relation\r\n \r\n Set<\/span> dbs = CurrentDb\r\n For Each rel In dbs.Relations\r\n Debug.Print<\/span> rel.Name\r\n Debug.Print<\/span> , rel.Table\r\n Debug.Print<\/span> , rel.ForeignTable\r\n Debug.Print<\/span> , rel.Attributes\r\n Next<\/span> rel\r\nEnd Sub<\/span><\/pre>\ntblAnredentblAdressen\r\n tblAnreden\r\n tblAdressen\r\n 2 \r\ntblLaendertblAdressen\r\n tblLaender\r\n tblAdressen\r\n 33554434 \r\ntblOrtetblAdressen\r\n tblOrte\r\n tblAdressen\r\n 0<\/pre>\n
AttributesString(2)\r\n> 1:n,Keine Ref. Integrität\r\n AttributesString(33554434)\r\n> 1:n,Right<\/span> Join,Keine Ref. Integrität<\/pre>\nSub <\/span>GetRelationsProps()\r\n Dim <\/span>dbs As <\/span>Database\r\n Dim <\/span>rel As <\/span>DAO.Relation\r\n Dim <\/span>daoPrp As <\/span>DAO.Property\r\n \r\n Set<\/span> dbs = CurrentDb\r\n For Each rel In dbs.Relations\r\n Debug.Print<\/span> rel.Name\r\n For Each daoPrp In rel.Properties\r\n Debug.Print<\/span> , _\r\n daoPrp.Name, _\r\n daoPrp.Value\r\n Next<\/span> daoPrp\r\n Next<\/span> rel\r\nEnd Sub<\/span><\/pre>\ntblAnredentblAdressen\r\n Name tblAnredentblAdressen\r\n Table tblAnreden\r\n ForeignTable tblAdressen\r\n Attributes 2 \r\n PartialReplica Falsch\r\ntblLaendertblAdressen\r\n Name tblLaendertblAdressen\r\n Table tblLaender\r\n ForeignTable tblAdressen\r\n Attributes 33554434 \r\n PartialReplica Falsch\r\ntblOrtetblAdressen\r\n Name tblOrtetblAdressen\r\n Table tblOrte\r\n ForeignTable tblAdressen\r\n Attributes 0 \r\n PartialReplica Falsch<\/pre>\n
Sub <\/span>GetRelationsFields()\r\n Dim <\/span>dbs As <\/span>Database\r\n Dim <\/span>rel As <\/span>DAO.Relation\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n \r\n Set<\/span> dbs = CurrentDb\r\n For Each rel In dbs.Relations\r\n Debug.Print<\/span> rel.Name\r\n For Each fld In rel.Fields\r\n Debug.Print<\/span> , _\r\n rel.Table & \".\" & _\r\n fld.Name & \" > \" & _\r\n rel.ForeignTable & _\r\n \".\" & fld.ForeignName\r\n Next<\/span> fld\r\n Next<\/span> rel\r\nEnd Sub<\/span><\/pre>\ntblAnredentblAdressen\r\n tblAnreden.ID > tblAdressen.IDAnrede\r\ntblLaendertblAdressen\r\n tblLaender.ID > tblAdressen.IDLand\r\n tblLaender.Land > tblAdressen.Land\r\ntblOrtetblAdressen\r\n tblOrte.ID > tblAdressen.IDOrt<\/pre>\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