Index.Foreign property (DAO)

S’applique à : Access 2013, Office 2013

Retourne une valeur qui indique si un objet Index représente une clé étrangère dans une table (espaces de travail Microsoft Access uniquement). .

Syntaxe

expression . Étrangères

Expression Variable qui représente un objet Index .

Remarques

La valeur de retour est une donnée de type Boolean qui renvoie True si l'objet Index représente un clé étrangère.

Une clé étrangère consiste en un ou plusieurs champs d'une table étrangère qui identifient de manière unique toutes les lignes d'une table primaire.

Le moteur de base de données Microsoft Access crée un objet Index pour la table étrangère et définit la propriété Foreign lorsque vous créez une relation qui impose l'intégrité référentielle.

Exemple

Cet exemple illustre comment la propriété Foreign permet d'identifier les objets Index d'une TableDef faisant office d'index de clé. Ces derniers sont créés par le moteur de base de données Microsoft Access lors de la création d'une Relation. Le nom par défaut des index de clés étrangères est le nom de la table primaire suivi de celui de la table étrangère. La fonction ForeignOutput est indispensable pour l'exécution de cette procédure.

    Sub ForeignX() 
     
     Dim dbsNorthwind As Database 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
     With dbsNorthwind 
     ' Print report on foreign key indexes from two 
     ' TableDef objects and a QueryDef object. 
     ForeignOutput .TableDefs!Products 
     ForeignOutput .TableDefs!Orders 
     ForeignOutput .TableDefs![Order Details] 
     
     .Close 
     End With 
     
    End Sub 
     
    Function ForeignOutput(tdfTemp As TableDef) 
     
     Dim idxLoop As Index 
     
     With tdfTemp 
     Debug.Print "Indexes in " & .Name & " TableDef" 
     ' Enumerate the Indexes collection of the specified 
     ' TableDef object. 
     For Each idxLoop In .Indexes 
     Debug.Print " " & idxLoop.Name 
     Debug.Print " Foreign = " & idxLoop.Foreign 
     Next idxLoop 
     End With 
     
    End Function