Klasse ModelRelationship - eine Beziehung, die sich derzeit im Datenmodell zwischen zwei Tabellen befindet (Excel VBA)

Die Klasse ModelRelationship stellt eine Beziehung dar, die sich derzeit im Datenmodell zwischen zwei Tabellen befindet. Um eine ModelRelationship -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim mrel as ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships(Index:=1)

For Each

Hier ist ein Beispiel für die Verarbeitung der ModelRelationship -Elemente in einer Sammlung

Dim mrel As ModelRelationship
For Each mrel In ActiveWorkbook.Model.ModelRelationships
	
Next mrel

Active

Bei trueist die Beziehung aktiv.

ActiveWorkbook.Model.ModelRelationships(1).Active = True

Delete

Löscht die Beziehung.

ActiveWorkbook.Model.ModelRelationships(1).Delete

ForeignKeyColumn

Enthält das ModelTableColumn -Objekt, das die Fremdschlüsselspalte auf der n-Seite der 1: n-Beziehung darstellt.

Dim mtcForeignKeyColumn As ModelTableColumn
Set mtcForeignKeyColumn = ActiveWorkbook.Model.ModelRelationships(1).ForeignKeyColumn

ForeignKeyTable

Enthält das modelable -Objekt, das die Tabelle auf der n-Seite der 1: n-Beziehung darstellt.

Dim mdltForeignKeyTable As ModelTable
Set mdltForeignKeyTable = ActiveWorkbook.Model.ModelRelationships(1).ForeignKeyTable

PrimaryKeyColumn

Enthält das ModelTableColumn -Objekt, das die Primärschlüsselspalte in der Tabelle auf der 1-Seite der 1: n-Beziehung darstellt.

Dim mtcPrimaryKeyColumn As ModelTableColumn
Set mtcPrimaryKeyColumn = ActiveWorkbook.Model.ModelRelationships(1).PrimaryKeyColumn

PrimaryKeyTable

Enthält das modelable -Objekt, das die Tabelle auf der 1-Seite der 1: n-Beziehung darstellt.

Dim mdltPrimaryKeyTable As ModelTable
Set mdltPrimaryKeyTable = ActiveWorkbook.Model.ModelRelationships(1).PrimaryKeyTable