| |
|
|
| | Доброго времени суток всем. Помогите создать флажок программно. Кусок кода
With adoxCol
.ParentCatalog = adoxCat
.Name = "использовать"
.Type = adBoolean
End With
|
он создает логическое поле, а вот "тип элемента управления" - поле. как программно сделать его флажком? | |
| |
| |
| |
|
|
| | Использовать свойство DisplayControl=106.
Проверял только при использовани DAO | |
| |
| |
| |
|
|
| | если я правильно вас понял то
With adoxCol
.ParentCatalog = adoxCat
.Name = "использовать"
.Type = adBoolean
.Properties("DisplayControl").Value = 106
End With
|
не выходит пишет, что не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру.
или это возможно сделать только через DAO? | |
| |
| |
| |
|
|
| | Это дополнительное свойство, предлагаемое Access. По умолчанию его нет у поля, созданного с помощью ADOX или DAO. Добавьте его в семейство Properties. | |
| |
| |
| |
|
|
| | Анатолий. я к сожалению только начал изучать Ассеss. да и сложность в том что работаю экономистом времени особо заниматься нет. Расскажите, пожалуйста, как сделать
Добавьте его в семейство Properties.
|
| |
| |
| |
| |
|
|
| | Вот так работает:
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емейство свойств поля Использовать
|
только такое ощущение что сделано как-то коряво что-ли? | |
| |
| |
