Свойство Index.Foreign (DAO)

Область применения: Access 2013, Office 2013

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

Синтаксис

expression . Иностранных

Выражение Переменная, представляющая объект Index .

Замечания

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

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

Ядро СУБД Microsoft Access создает объект Index для внешней таблицы и задает свойство Foreign при создании отношения, которое обеспечивает целостность ссылок.

Пример

В этом примере показано, как свойство Foreign может указать, какие объекты Index в TableDef являются индексами внешнего ключа. Такие индексы создаются ядром СУБД Microsoft Access при создании отношения . Имя по умолчанию для индексов внешнего ключа — это имя первичной таблицы и имя внешней таблицы. Для выполнения этой процедуры требуется функция ForeignOutput.

    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