dao проблема с автоинкрементом поля

[mayhem]

создаю поле таблици tbl
Dim fld_1 As Field
Set fld_1 = tbl.CreateField("fld_1", dbInteger)
и устанавливаю автоинкркмент
fld_1.Attributes = dbAutoIncrField
а на строке
DB.TableDefs.Append genre
появляется ошибка 3001 invalid argument

если убрать строку автоинкремента все ок
подскажите, в чом дело?

[XPraptor]

Так, давай по порядку, сколько полей в таблице, и что такое genre?

[mayhem]

упс хотел попроще написать, а вышла опечатка
dim fld_1 As Field, fld_2 As Field
Set fld_1 = tbl.CreateField("fld_1", dbInteger)
Set fld_2 = tbl.CreateField("fld_2", dbInteger)
fld_1.Attributes = dbAutoIncrField

DB.TableDefs.Append fld_1
DB.TableDefs.Append fld_2

вроде так!

[XPraptor]

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

[mayhem]

мож его индексом заделать?
только я не могу понять наф они нада, я и без них справляюсь (только инкремент не работает) А пример вообще книжный, не знаю че не вышло!

[XPraptor]

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

[mayhem]

и возрадовался я, ибо нашелся ответ правильный методом надевания очков и пристальным смотрением в книгу. ибо dbInteger инкрементом быть не может а только dbLong.

[XPraptor]

Ну так я тебе сразу сказал посмотреть на типы!

[mayhem]

спасибо