Propriedade Relation.ForeignTable (DAO)

Aplica-se ao: Access 2013, Office 2013

Define ou retorna o nome da tabela externa em uma relação (apenas espaços de trabalho do Microsoft Access). .

Sintaxe

expressão . ForeignTable

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

Comentários

Essa propriedade é leitura/gravação para um novo objeto Relation ainda não acrescentado a uma coleção e somente leitura para um objeto Relation existente na coleção Relations.

A definição da propriedade ForeignTable de um objeto Relation é a definição da propriedade Name de TableDef ou QueryDef que representa a tabela ou consulta externa; a definição da propriedade Table é a definição de propriedade Name do objeto TableDef ou QueryDef que representa a tabela primária ou consulta.

Por exemplo, se você tiver uma lista dos códigos de peça válidos (em um campo chamado PartNo) armazenada em uma tabela ValidParts, poderá estabelecer uma relação com uma tabela OrderItem de forma que, se um código de peça for inserido na tabela OrderItem, ele já deverá existir na tabela ValidParts. Se o código de peça não existir na tabela ValidParts e você não tiver definido a propriedade Attributes do objeto Relation como dbRelationDontEnforce, ocorrerá um erro interceptável.

Nesse caso, a tabela ValidParts seria uma tabela primária e, por esse motivo, a propriedade Table do objeto Relation seria definida como ValidParts e a propriedade ForeignTable do objeto Relation seria definida como OrderItem. As propriedades Name e ForeignName do objeto Field na coleção Fields do objeto Relation seriam definidas como PartNo.

Exemplo

Esse exemplo mostra como as propriedades Table, ForeignTable e ForeignName definem os termos de um Relation entre as duas tabelas.

    Sub ForeignNameX() 
     
     Dim dbsNorthwind As Database 
     Dim relLoop As Relation 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
     Debug.Print "Relation" 
     Debug.Print " Table - Field" 
     Debug.Print " Primary (One) "; 
     Debug.Print ".Table - .Fields(0).Name" 
     Debug.Print " Foreign (Many) "; 
     Debug.Print ".ForeignTable - .Fields(0).ForeignName" 
     
     ' Enumerate the Relations collection of the Northwind 
     ' database to report on the property values of 
     ' the Relation objects and their Field objects. 
     For Each relLoop In dbsNorthwind.Relations 
     With relLoop 
     Debug.Print 
     Debug.Print .Name & " Relation" 
     Debug.Print " Table - Field" 
     Debug.Print " Primary (One) "; 
     Debug.Print .Table & " - " & .Fields(0).Name 
     Debug.Print " Foreign (Many) "; 
     Debug.Print .ForeignTable & " - " & _ 
     .Fields(0).ForeignName 
     End With 
     Next relLoop 
     
     dbsNorthwind.Close 
     
    End Sub