Свойство Relation.Table (DAO)

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

Указывает имя основной таблицы объекта Relation . Значение должно быть равно параметру свойства Name объекта TableDef или QueryDef (только для рабочих областей Microsoft Access).

Синтаксис

expression . Таблице

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

Замечания

Параметр свойства Table выполняет чтение и запись для нового объекта Relation , еще не добавленного в коллекцию, и только для чтения для существующего объекта Relation в коллекции Relations .

Используйте свойство Table со свойством ForeignTable для определения объекта Relation , который представляет связь между полями в двух таблицах или запросах. Присвойте свойству Table значение Свойства Name основного объекта TableDef или QueryDef , а для свойства ForeignTable задайте параметр свойства Name внешнего объекта TableDef или QueryDef (ссылка). Свойство Attributes определяет тип связи между двумя объектами.

Например, если у вас есть список допустимых кодов частей (в поле с именем PartNo), хранящийся в таблице ValidParts, можно установить связь "один ко многим" с таблицей OrderItem таким образом, что если код части был введен в таблицу OrderItem, он должен уже находиться в таблице ValidParts. Если код части не существовал в таблице ValidParts и вы не задали свойству Attributes объекта Relationзначение dbRelationDontEnforce, возникнет ошибка с возможностью захвата.

В этом случае таблица ValidParts является основной таблицей, поэтому свойству Table объекта Relation будет присвоено значение ValidParts, а свойству ForeignTable объекта Relation — значение OrderItem. Свойства Name и ForeignName объекта Field в коллекции Fields объекта Отношения будут иметь значение PartNo.

Пример

В этом примере показано, как свойства Table, ForeignTable и ForeignName определяют термины отношения между двумя таблицами.

    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