Создание счётчика

[Alexanbar]

Есть такой код:


Dim tblOrganization As TableDef

Set tblOrganization = db.TableDefs("Organizations")
If Err.Number = 3265 Then

Set tblOrganization = db.CreateTableDef("Organizations")

End If
Err.Clear


With tblOrganization
Err.Clear
.Fields.Append .CreateField("Organization ID", dbLong)
.Fields("Organization ID").Attributes = dbAutoIncrField


end with

Если такая таблица уже была, почему-то нельзя создать счётчик, ДАЖЕ, ЕСЛИ ПОЛЯ НЕ БЫЛО, в то время, как в MS Access-97 это успешно делается.

Не делается только тогда, когда поле уже было, и было просто числовым.

[Ennor]

...
в то время, как в MS Access-97 это успешно делается.
...

А ты в чем это пытаешься сделать?

[Alexanbar]

Я создаю базу программно с нуля, если её не было, а если есть, корректирую её структуру.

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

Ещё не указал такие строки:


Dim db As Database
Dim fso As New FileSystemObject



If fso.FileExists(Path) Then
Set db = DBEngine.OpenDatabase(Path)
Else
Set db = DBEngine.CreateDatabase(Path, dbLangGeneral, _
dbVersion30 Or dbEncrypt)
end if

[GSerg]

Мож фишка в физическом присутсвии удалённых вещей, и нужно просто сжать базу?

[Alexanbar]

Пробовал сжимать - ничего не меняется. Если таблицы нет вообще, всё создаётся нормально, в том числе и поле со счётчиком.
Если таблица уже есть, но поля со счётчиком ещё нет - создаётся только числовое поле, но не счётчик.

А в MS-Access-97 можно создать новое поле, которое будет счётчиком. Нельзя толко переделать уже существующее числовое в счётчик.

[Ennor]

Ммм. А ALTER TABLE в Аксессе не позволяет добавить полю атрибут AutoIncrement?

[Alexanbar]

Сделал так:

db.Execute "Alter Table PostAddresses Add Column [Address ID] Counter"

Вроде работает