ник: evg22
Привет!
Вот код, который применял в базе ACCESS-97
DBEngine.CompactDatabase "C:БАЗАБазаСвязаныхТаблиц.mdb", "C:БАЗАБазаСвязаныхТаблиц0.mdb"
Kill "C:БАЗАБазаСвязаныхТаблиц.mdb"
Name "C:БАЗАБазаСвязаныхТаблиц0.mdb" As "C:БАЗАБазаСвязаныхТаблиц.mdb"
Этот же код в А-2002 работает не так, как надо, а именно:
- базу то сжимает, но при этом поле счетчика продолжает наращиваться с последней величины.
На всякий случай разжую поподробней:
Поле ID - счетчик. Имел в таблице 20 записей. Удалил записи с 10-й по 20-ю.
Сжал. Добавил запись. ID стал 21! А надо 11!!!!!, как в 97 акцесе.
Да, аналогично сжимаю и саму программную МДБ(А2002):
With CommandBars.Add(, 1, , True)
.Controls.Add 1, 2071, , , True
.Visible = True
.Controls(1).SetFocus
DoEvents
SendKeys "~"
End With
Поведение аналогичное.
Подскажите, где я не прав.
Спасибо.