Classe ModelRelationship - une relation, actuellement dans le modèle de données, entre deux tables (Excel VBA)

La classe ModelRelationship représente une relation, actuellement dans le modèle de données, entre deux tables. Pour utiliser une variable de classe ModelRelationship, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments ModelRelationship dans une collection

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

Active

Lorsque la valeur est true, la relation est active. Si la valeurest false, cette relation est inactive. Boolean (en lecture/écriture).

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

Delete

Supprime la relation.

ActiveWorkbook.Model.ModelRelationships(1).Delete

ForeignKeyColumn

Contient l'objet ModelTableColumn qui représente la colonne de clé étrangère du côté plusieurs de la relation un-à-plusieurs. En lecture seule.

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

ForeignKeyTable

Contient l'objet ModelTable qui représente la table du côté plusieurs de la relation un-à-plusieurs. En lecture seule.

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

PrimaryKeyColumn

Contient l'objet ModelTableColumn qui représente la colonne de clé primaire dans la table du côté un de la relation un-à-plusieurs.

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

PrimaryKeyTable

Contient l'objet ModelTable qui représente la table du côté un de la relation un-à-plusieurs.

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