Как программно VBA изменить свойство Обязательное поле в таблице

[myprog]

ПРОБЛЕМА:
при создании новой таблицы следующим способом:

cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4 .0;" & _
"Data Source=" & strFull_File_Name & ";"
tbl.Name = strTblName

For i = 1 To intCell - 3
tbl.Columns.Append CStr(i), adDouble
Next i

создается таблица с полями 1,2 ... и т.д.
все поля при этом имеют свойство:
Обязательное поле - Да

А мне надо:
Обязательное поле - НЕТ

Подскажите как программно т.е. через VBA это изменить
ОЧЕНЬ НУЖНО
e-mail: meg.shara@yandex.ru

[LittleFatCat]

Доброго времени суток!

Public Sub PropFieldsChange()
Dim currDB As Database
Dim tblTabl As TableDef
Set currDB = CurrentDb
Set tblTabl = currDB.TableDefs("Table1")
tblTabl.Fields("Field1").Required = False
Set tblTabl = Nothing
Set currDB = Nothing
End Sub

[myprog]

Только пришлось заменить строку:
Set currDB = CurrentDb
на новую:
Set currDB = OpenDatabase(strFull_File_Name)

но у меня вопрос:
такой метод только для изменения полей существующей таблицы
а сразу при создании таблицы это можно менять или нет?

Желательно метод ADO
Заранее спасибо!

[Abrakadabra]

Сообщение от myprog

Желательно метод ADO

для ADO можно так попробовать:

....
.Attributes = adColNullable

[LittleFatCat]

Доброго времени суток!

А что если уйти от объектов к старому доброму SQL? Оператор CREATE TABLE, CREATE FIELD и т.д.? Можно в MS SQL Server Express создать таблицу с нужными свойствами полей и посмотреть как он в SQL пишет запрос. А так я навскидку не помню параметр, отвечающий за обязательное поле (но он точно есть! :-)

[Abrakadabra]

В вопросе нет ни слова об SQL.. Там написано: "следующим способом.."

[myprog]

Сообщение от LittleFatCat

Доброго времени суток!

А что если уйти от объектов к старому доброму SQL? Оператор CREATE TABLE, CREATE FIELD и т.д.?

Но суть в том, что база закрыта, доступ к базе осуществляется из другого приложения, т.е. даже при формировании запроса мы должны получить связь с базой, а это или DAO, или ADO, как бы мы не хотели от этого уйти.

Но тем не менее способ имеет право на существование, я попробую его на днях. Потом скажу что получилось.

Спасибо за проявленный интерес к данному вопросу.

[LittleFatCat]

Доброго времени суток!

Я к тому и написал, что связь с базой можно установить любым способом (я в основном использую DAO), а затем выполнять запросы любого типа. Для меня, например, вполне достаточно CurrentDB.OpenRecordset(strSQL) и CurrentDB.Execute(strSQL), где strSQL - строка с текстом запроса. В этом случае достигается большая гибкость - запрос можно формировать "на лету". Думаю, что и для ADO можно задействовать подобные конструкции - а SQL в данном случае гибче и мощнее использования объектной модели Access

[myprog]

Все дело в том что надо создать новую таблицу в базе данных.
Причем база данных закрыта, но путь к ней известен.
А CurrentDB (насколько я понимаю это текущая база данных,
т.е. она открыта и мы в ней работаем). Причем параметр ОБЯЗАТЕЛЬНОЕ ПОЛЕ должен принимать значение НЕТ

[LittleFatCat]

Доброго времени суток!

Нет проблем - вот так цепляем другую БД из текущей:
Set CurrDB = DBEngine.Workspaces(0).OpenDatabase ("MyRandomPatch:\MyRandomDB.mdb" )
И спокойно с ней работаем так, как я раньше писал :-)