ALTER TABLE не работает для SET DEFAULT

[NicSoft]

Для изменения значения по умолчанию в существующей таблице пробовал код:

Код: Выделить всё

DoCmd.SetWarnings False
DoCmd.RunSQL "ALTER TABLE Zakazy ALTER COLUMN Infl SET DEFAULT 5"
DoCmd.SetWarnings True

не работает - Ошибка синтаксиса в инструкции ALTER COLUMN
удалить (DROP DEFAULT) тоже не получается.

При этом менять тип данных поля получается без проблем:

Код: Выделить всё

DoCmd.SetWarnings False
DoCmd.RunSQL "ALTER TABLE Zakazy ALTER COLUMN Infl CURRENCY"
DoCmd.SetWarnings True

Где ошибка?

[GSerg]

Из первого же обзора справки Access (а это ведь он? Думаешь, кроме Access ничего нет? Надо указывать базу) становится очевидно, что этот синтаксис не поддерживается, и надо использовать проперти объектной модели.

[NicSoft]

Да, забыл в попыхах указать, что это Access.
Может примерчик или ссылочку подкинешь на проперти объектной модели?
Я, конечно, найду вариант для своей программы и без изменения значения по умолчанию в таблице, но просто на будущее хотелось бы знать способ осуществить эту операцию.

[NicSoft]

GSerg
Спасибо, получилось!

Кому интересно:

Код: Выделить всё

Dim TDS As DAO.TableDefs
Dim dbs As DAO.Database

Set dbs = CurrentDb
Set TDS = dbs.TableDefs

TDS("Zakazy").Fields("Infl").DefaultValue =3