Метод TableDef.CreateField (DAO)

Статья
04/04/2023

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

Создает новый объект Field (только для рабочих областей Microsoft Access).

Синтаксис

выражение .CreateField(Name, Type, Size)

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

Параметры

Имя	Обязательный/необязательный	Тип данных	Описание
Name	Необязательно заполнять.	Variant	Строка, присваивающая уникальное имя новому объекту Field. См. свойство Name для получения более подробных сведений о допустимых именах Field.
Type	Необязательный	Variant	Константа, определяющая тип данных нового объекта Field. Допустимые типы данных см. в свойстве Type.
Size	Необязательный	Variant	Целое число, указывающее максимальный размер в байтах объекта Field, содержащего текст. Допустимые значения размеров см. в свойстве Size. Этот аргумент игнорируется для числовых полей и полей фиксированного размера.

Возвращаемое значение

Поле

Примечания

Можно использовать метод CreateField, чтобы создать новое поле, а также указать имя, тип данных и размер поля. Если опустить одну или несколько необязательных частей при использовании метода CreateField, вы можете воспользоваться соответствующим оператором присваивания, чтобы задать или сбросить соответствующее свойство перед добавлением нового объекта в коллекцию. После добавления нового объекта вы можете изменять некоторые, но не все параметры его свойств. См. разделы для отдельных свойств для получения дополнительных данных.

Аргументы Type и Size применяются только для объектов Field в объекте TableDef. Эти аргументы игнорируются, если объект Field связан с объектом Index или Relation.

Если аргумент Name ссылается на объект, который уже являются элементом коллекции, возникает ошибка выполнения при использовании метода Append.

Чтобы удалить объект Field из коллекции Fields, используйте метод Delete для коллекции. Вы не можете удалить объект Field из коллекции Fields объекта TableDef после создания индекса, ссылающегося на поле.

Ссылка, предоставляемая сообществом UtterAccess. UtterAccess — это премиальный вики-портал и форум, посвященный Microsoft Access.

Добавление поля гиперссылки в существующую таблицу с помощью DAO

Пример

В приведенном ниже примере показано, как создать вычисляемое поле. Метод CreateField создает поле с именем FullName. Затем для свойства Expression устанавливается выражение, вычисляющее значение поля.

Пример кода изсправочника программиста Microsoft Access 2010.

    Sub CreateCalculatedField()
        Dim dbs As DAO.Database
        Dim tdf As DAO.TableDef
        Dim fld As DAO.Field2
        
        ' get the database
        Set dbs = CurrentDb()
        
        ' create the table
        Set tdf = dbs.CreateTableDef("tblContactsCalcField")
        
        ' create the fields: first name, last name
        tdf.Fields.Append tdf.CreateField("FirstName", dbText, 20)
        tdf.Fields.Append tdf.CreateField("LastName", dbText, 20)
        
        ' create the calculated field: full name
        Set fld = tdf.CreateField("FullName", dbText, 50)
        fld.Expression = "[FirstName] & "" "" & [LastName]"
        tdf.Fields.Append fld
        
        ' append the table and cleanup
        dbs.TableDefs.Append tdf
        
    Cleanup:
        Set fld = Nothing
        Set tdf = Nothing
        Set dbs = Nothing
    End Sub

Поделиться через