Relation.ForeignTable property (DAO)

S’applique à : Access 2013, Office 2013

Définit ou renvoie le nom de la table étrangère dans une relation (espaces de travail Microsoft Access uniquement). .

Syntaxe

expression . ForeignTable

Expression Variable qui représente un objet Relation .

Remarques

Cette propriété est en lecture/écriture pour un nouvel objet Relation pas encore ajouté à une collection et en lecture seule pour un objet Relation existant de la collection Relations.

Le paramètre de propriété ForeignTable d'un objet Relation est le paramètre de propriété Name de l'objet TableDef ou QueryDef qui représente la table étrangère ou la requête ; le paramètre de propriété Table est le paramètre de propriété Name de l'objet TableDef ou QueryDef qui représente la table primaire ou la requête.

Par exemple, si vous aviez une liste de codes de composant valides (dans un champ nommé PartNo) stockée dans une table ValidParts, vous pouvez établir une relation avec une table OrderItem de telle sorte que si un code de composant était entré dans la table OrderItem, il doit déjà se trouver dans la table ValidParts. Si le code de composant n’existait pas dans la table ValidParts et que vous n’aviez pas défini la propriété Attributes de l’objet Relation sur dbRelationDontEnforce, une erreur pouvant être interceptée se produit.

Dans ce cas, la table ValidParts est la table primaire, la propriété Table de l'objet Relation est donc définie sur ValidParts et la propriété ForeignTable de l'objet Relation sur OrderItem. Les propriétés Name et ForeignName de l'objet Field de la collection Fields de l'objet Relation sont alors définies sur PartNo.

Exemple

Cet exemple montre comment les propriétés Table, ForeignTable et ForeignName définissent les termes d’une Relation entre deux tables.

    Sub ForeignNameX() 
     
     Dim dbsNorthwind As Database 
     Dim relLoop As Relation 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
     Debug.Print "Relation" 
     Debug.Print " Table - Field" 
     Debug.Print " Primary (One) "; 
     Debug.Print ".Table - .Fields(0).Name" 
     Debug.Print " Foreign (Many) "; 
     Debug.Print ".ForeignTable - .Fields(0).ForeignName" 
     
     ' Enumerate the Relations collection of the Northwind 
     ' database to report on the property values of 
     ' the Relation objects and their Field objects. 
     For Each relLoop In dbsNorthwind.Relations 
     With relLoop 
     Debug.Print 
     Debug.Print .Name & " Relation" 
     Debug.Print " Table - Field" 
     Debug.Print " Primary (One) "; 
     Debug.Print .Table & " - " & .Fields(0).Name 
     Debug.Print " Foreign (Many) "; 
     Debug.Print .ForeignTable & " - " & _ 
     .Fields(0).ForeignName 
     End With 
     Next relLoop 
     
     dbsNorthwind.Close 
     
    End Sub