Compartir a través de


Propiedad Index.Foreign (DAO)

Se aplica a: Access 2013, Office 2013

Devuelve un valor que indica si un objeto Index representa una clave externa en una tabla (solo áreas de trabajo de Microsoft Access). .

Sintaxis

expresión . Extranjeros

Expresión Variable que representa un objeto Index .

Comentarios

El valor devuelto es un tipo de datos Boolean que devuelve True si el objeto Index representa una clave externa.

Una clave externa consiste en uno o más campos en una tabla externa que identifica únicamente todas las filas en una tabla principal.

El motor de base de datos Microsoft Access crea un objeto Index para la tabla externa y establece la propiedad Foreign cuando usted crea una relación que fuerza la integridad referencial.

Ejemplo

En este ejemplo se muestra cómo la propiedad Foreign puede indicar los objetos Index en TableDef que son índices de claves externas. Esos índices se crean mediante un motor de base de datos Microsoft Access cuando se crea un objeto Relation. El nombre predeterminado para los índices de claves externas es el nombre de la tabla principal más el nombre de la tabla externa. Se requiere la función ForeignOutput para que pueda ejecutarse este procedimiento.

    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