Classe ModelRelationship (Excel VBA)

La classe ModelRelationship représente une relation, actuellement dans le modèle de données, entre deux tables.

Les procédures principales de la classe ModelRelationship sont Delete et ModelRelationships.Add

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ModelRelationship : ModelRelationships.Item, ModelRelationships.Add et Model.ModelRelationships

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

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Column with its procedures ForeignKeyColumn et PrimaryKeyColumn

Méthodes

Les méthodes principales de la classe ModelRelationship sont

Delete - Supprime la relation.

ActiveWorkbook.Model.ModelRelationships(1).Delete

ModelRelationships.Add - Ajoute une nouvelle relation au modèle.

Dim mrel As ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships.Add(ForeignKeyColumn:=, PrimaryKeyColumn:=)

Autre Méthodes

ModelRelationships.DetectRelationships - Détecte les relations de modèle dans l'objet PivotTable spécifié.

ModelRelationships.Item - Cette méthode renvoie un seul objet de l'objet ModelRelationships .

Propriétés

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

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

Parent Renvoie un Object qui représente l'objet parent de l'objet ModelRelationship spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveWorkbook.Model.ModelRelationships(1).Parent

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

ModelRelationships.Count Renvoie une valeur de type long qui représente le nombre d'objets ModelRelationship dans un objet ModelRelationships . En lecture seule.

Dim lngCount As Long
lngCount = ActiveWorkbook.Model.ModelRelationships.Count

ModelRelationships.Parent Renvoie un Object qui représente l'objet parent de l'objet ModelRelationships spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveWorkbook.Model.ModelRelationships.Parent