MyTetra Share
Делитесь знаниями!
Изменение формата поля таблицы в VBA - MS Access
16.03.2019
23:43
Текстовые метки: k_MS кирпичики,
Раздел: !Закладки - VBA - Access - MS кирпичики

Подскажите пожалуйста как в VBA можно изменить формат поля таблицы. Таблица после импорта через TransferDatabase имеет числовые поля. Необходимо задать формат поля - фиксированый, число десятичных знаков - 2. В режиме конструктора это сделать просто, а можно ли автоматизировать в VBA?


Управление свойствами поля. Сложность в том, что нужного свойства у поля может не быть, тогда его нужно сначала добавить. К примеру, так (DAO):


Dim db As DAO.Database

Dim td As DAO.TableDef

Dim fld As DAO.Field

Dim prop As DAO.Property

On Error Resume Next

Set db = CurrentDb

Set td = db.TableDefs("Table1")

Set fld = td.Fields("f1")

Set prop = fld.CreateProperty("Format", dbText, "Standard")

fld.Properties.Append prop

Set prop = fld.Properties("Format")

prop.Value = "Standard"

Set prop = fld.CreateProperty("DecimalPlaces", dbByte, 2)

fld.Properties.Append prop

Set prop = fld.Properties("DecimalPlaces")

prop.Value = 2

fld.Properties.Refresh

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования