Как поле таблицы создаваемое в ADOX сделать необязательным?

[Evlampy]

Создаю через ADO в таблице поля, по умолчанию ка понимаю он иобязательны, но они должны быть необязательными.

Как сделать?

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

Dim cat As ADOX.Catalog
dim DestTbl As ADOX.Table
Dim Col As ADOX.Column

Set cat = New ADOX.Catalog

cat.ActiveConnection = CurrentProject.Connection
Set DestTbl = cat.Tables(DestTblName)
On Error Resume Next
For i = 0 To Cntrl.ListCount - 1
   IDFields(i) = "[" & Cntrl.ItemData(i) & "]"
   DestTbl.Columns.Append "Korr" & i + 1, adDouble
   If Err.Number <> 0 Then Err.Clear
   Set Col = DestTbl.Columns("Korr" & i + 1)
   Col.Properties("Nullable")=true 'Вот здесь и возникает ошибка
Next

[/code]

[Rainbow]

Вообще, действия должны быть такие - сначала создать колонку с основными свойствами, а потом присоединить ее к таблице

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

Dim cat As New Catalog
cat.ActiveConnection = cnn
Dim col As New Column
col.Name = "NewNullableColum"
col.Type = adVarWChar
col.Attributes = adColNullable 'здесь Required станет "No"
cat.Tables("Table1").Columns.Append col