ник: osmor
Попробуйте сделать следующее
создайте чистую БД
в ней форму с кнопкой
на клик кнопки след код:
Dim db As DAO.Database
Dim idx As DAO.Index
Set db = DBEngine.OpenDatabase("ПутьИИмяФайлаБитойБД")
db.Execute "DELETE FROM MSysAccessObjects WHERE ([ID] Is Null) OR ([Data] Is Null)", dbFailOnError
With db.TableDefs("MSysAccessObjects")
Set idx = .CreateIndex("AOindex")
idx.Fields.Append idx.CreateField("ID")
idx.Primary = True
.Indexes.Append idx
Set idx = Nothing
End With
db.Close
Set db = Nothing
|
О результатах сообщите, пожалуйста