No se puede abrir la DB en MS Access (MDB):Error 3800

[jose antomio sola castro]

No se puede abrir la base de datos en MS Access (MDB):
error: <Nombre> no es un índice en esta tabla. (Error 3800)
--
Saludos,
JS

[stock...@hotmail.com]

Sub CreateAOIndex(DbPath As String)
Dim db As DAO.Database
Dim idx As DAO.Index

' abrimos la base corrupta
Set db = DBEngine.OpenDatabase("C:\cot")

' creamos de nuevo el índice AOIndex
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

' cerramos la base (ahora ya no está corrupta)
db.Close
Set db = Nothing

End Sub

[alexn...@gmail.com]

El viernes, 29 de julio de 2005 07:12:02 UTC-5, jose antomio sola castro escribió:

> No se puede abrir la base de datos en MS Access (MDB): error: <Nombre> no es un índice en esta tabla. (Error 3800)-- Saludos,JS

este codigo no me funciono, si alguien me pudiera ayudar con este error pero en un Access 2007, se los agradeceré mucho