Создание логического поля с чекбоксом

@markusdod · Регистрация: 07.12.2012

Author24 — интернет-сервис помощи студентам

Доброе время суток

Имеется код который добавляет в существующую таблицу логическое поле

Visual Basic

Set fld = tdf.CreateField(Me.fldName, dbBoolean)
        fld.Required = False 'True
Set prt = fld.CreateProperty("DisplayControl", dbInteger, 106)
Set prt = fld.CreateProperty("Format", dbText, "Yes/No")

поле добавляется, но почему то без чекбокса
как получить чекбокс в таблице?
PS:
хотя эта же процедура применённая при программном создании новой таблицы
с логическим полем отрабатывает корректно и я получаю поле с чекбоксом???!!

mobile · 27.10.2018, 16:33

Попробуйте

Visual Basic

    Set fld = tdf.CreateField(Me.fldName, dbBoolean)
    tdf.Fields.Append fld
    tdf.Properties.Refresh
    
    fld.Required = False 'True
    With fld
        .Properties.Append .CreateProperty("Format", dbText, "Yes/No")
        .Properties.Append .CreateProperty("DisplayControl", dbInteger, 106)
    End With
    fld.Properties.Refresh

	27.10.2018, 16:33