Описание
Возвращает значение, показывающее, представляет ли объект Index внешний ключ таблицы (только в рабочей области Microsoft Jet).

Значение
Возвращаемое значение имеет тип Boolean и содержит значение True, если объект Index представляет внешний ключ.

Замечания
Внешний ключ состоит из одного или нескольких полей внешней таблицы, которые однозначно определяют все записи в главной таблице.

Объект Index автоматически создается ядром базы данных Microsoft Jet для внешней таблицы с ключом. Значение свойства Foreign задается при создании связи, для которой задан режим обеспечения целостности данных.

Пример
Следующая программа демонстрирует использование свойства Foreign для указания, какие объекты Index в объекте TableDef представляют внешний ключ. Такие индексы создаются ядром базы данных Microsoft Jet при создании объекта Relation. Именем, которое по умолчанию получают индексы внешнего ключа, является комбинация имени главной таблицы и имени внешней таблицы. Для выполнения данной процедуры требуется функция ForeignOutput.

Sub ForeignX()

	Dim dbsNorthwind As Database
	Set dbsNorthwind = OpenDatabase("Борей.mdb")
	With dbsNorthwind
		' Печатает отчет об индексах внешнего ключа для трех 
		' объектов TableDef.
		ForeignOutput .TableDefs!Товары
		ForeignOutput .TableDefs!Заказы
		ForeignOutput .TableDefs!Заказано
		.Close
	End With

End Sub

Function ForeignOutput(tdfTemp As TableDef)

	Dim idxLoop As Index

	With tdfTemp
		Debug.Print "Индексы в " & .Name & " TableDef"
		' Отображает семейство Indexes указанного 
		' объекта TableDef.
		For Each idxLoop In .Indexes
			Debug.Print "    " & idxLoop.Name
			Debug.Print "        Foreign = " & idxLoop.Foreign
		Next idxLoop
	End With

End Function