Описание
Возвращает значение, показывающее, представляет ли объект 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