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