Объект TableDef

Oбъект TableDef представляет сохранённое определение основной таблицы.

В объекте TableDef никак не отражены данные из таблицы. Единственные объекты доступа к данным в таблице – это объекты Field из семейства Fields объекта Recordset.

Свойства объекта TableDef

Свойства	Описание
DataCreated	Возвращает дату создания таблицы.
Fields	Содержит коллекцию объектов Field, принадлежащих таблице.
Indexes	Содержит коллекцию индексов, принадлежащих таблице.
RecordCount	Возвращает количество записей в таблице.

Методы объекта TableDef

CreateField(Имя, Тип, Размер) - создаёт новое поле Field.

· Тип-определяет тип поля, могут быть использованы константы: DbDate, dbTime, dbCurrency, dbChar и т.д..

· Размер- выражение в байтах, определяющее в байтах максимальный размер объекта Field, содержащего текстовые значения.

CreateIndex(имя)- создаёт индекс.

Пример

В текущей базе данных создать таблицу с именем “Сотрудник” с полями “ФИО” - текстовое поле. “Адрес” - текстовое поле. “Оклад” - денежный тип.

Текст программы:

Dim basa As Database, tabliza As TableDef

Set basa = CurrentDb

'Создаём таблицу с именем "Сотрудник"

Set tabliza = basa.CreateTableDef("Сотрудник")

' Создаём поля

With tabliza

.Fields.Append.CreateField("ФИО", dbText, 20)

.Fields.Append.CreateField("Адрес", dbText, 40)

.Fields.Append.CreateField("Оклад", dbCurrency, 10)

End With

'Включаем новую таблицу в текущую базу данных

Basa.TableDefs.Append tabliza

'Закрываем базу данных