Propriedade Index.Foreign (DAO)

Aplica-se ao: Access 2013, Office 2013

Retorna um valor que indica se um objeto Index representa uma chave estrangeira em uma tabela (apenas espaços de trabalho Microsoft Access). .

Sintaxe

expressão . Estrangeiros

Expressão Uma variável que representa um objeto Index .

Comentários

O valor de retorno será um tipo de dados Boolean que retornará True, se o objeto Index representar uma chave estrangeira.

Uma chave estrangeira é composta de um ou vários campos em uma tabela externa que identificam exclusivamente todas as linhas de uma tabela primária.

O mecanismo de banco de dados do Microsoft Access criará um objeto Index para a tabela externa e definirá a propriedade Foreign quando você criar uma relação que imponha a integridade referencial.

Exemplo

Este exemplo mostra como a propriedade Foreign pode indicar quais objetos Index em um TableDef são índices de chave estrangeira. Esses índices serão criados pelo mecanismo de banco de dados do Microsoft Access, quando um Relation for criado. O nome padrão dos índices de chave estrangeira é o nome da tabela primária acrescido do nome da tabela externa. A função ForeignOutput é necessária para executar esse procedimento.

    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