Clase ModelRelationship - una relación, actualmente en el modelo de datos, entre dos tabla (Excel VBA)

La clase ModelRelationship representa una relación, actualmente en el modelo de datos, entre dos tablas. Para usar una variable de clase ModelRelationship, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ModelRelationship en una colección.

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

Active

Cuando el valor es true, la relación está activa.

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

Delete

Elimina la relación.

ActiveWorkbook.Model.ModelRelationships(1).Delete

ForeignKeyColumn

Contiene el objeto ModelTableColumn que representa la columna de clave externa en el lado varios de la relación uno a varios.

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

ForeignKeyTable

Contiene el objeto modeltable que representa la tabla en el lado varios de la relación uno a varios.

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

PrimaryKeyColumn

Contiene el objeto ModelTableColumn que representa la columna de clave principal de la tabla en el lado uno de la relación uno a varios.

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

PrimaryKeyTable

Contiene el objeto modeltable que representa la tabla en el lado uno de la relación uno a varios.

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