ник: денник
Вот так работает:
Dim dbs As Database
Dim tdf As TableDef
Dim fld As Field
Dim prt As Property
Set dbs = CurrentDb()
Set tdf = dbs.CreateTableDef("пропущенный номер") 'создаем новую таблицу
Set fld = tdf.CreateField("пропущены номера", dbLong) 'cоздаем новое поле с типом LONG
tdf.Fields.Append fld 'добавляем созданное поле в таблицу
Set fld = tdf.CreateField("Использовать", dbBoolean) 'создаем новое логическое поле
tdf.Fields.Append fld 'добавляем созданное поле в таблицу
tdf.Fields.Refresh 'обновляем cемейство полей созданной таблицы
dbs.TableDefs.Append tdf 'добавляем созданную таблицу в cемейство таблиц БД
dbs.TableDefs.Refresh 'обновляем cемейство таблиц
Set prt = fld.CreateProperty("DisplayControl", dbInteger, acCheckBox)
fld.Properties.Append prt 'добавляем созданное свойство в cемейство свойств поля Использовать
fld.Properties.Refresh 'обновляем cемейство свойств поля Использовать
|
только такое ощущение что сделано как-то коряво что-ли?