[Resolvido]ID não é um indice desta tabela

Bom dia,

Tenho um programa em access 97 onde ao abrir o arquivo esta dando o seguinte erro "id não é um indice desta tabela",
já fiz os procedimentos indicados como "compactar e reparar o banco de dados" + importar os dados do banco de dados do Access 97 para um novo banco de dados.

Alguem tem alguma ideia?

Obrigado

Ranieri

Opa, já não via esse erro à muitos anos.....

Isso acontece com frequencia no 97, sim.

Para resolver, coloque o banco com erro em C:\

Agora crie um banco novo.
Crie um modulo novo nesse banco e cole este código;

Sub FixBadAOIndex(BadDBPath As String)
    Dim dbBad As DAO.Database
    Dim tdf As DAO.TableDef
    Dim ix As DAO.Index

    Set dbBad = DBEngine.OpenDatabase(BadDBPath)
    dbBad.Execute "DELETE FROM MSysAccessObjects " & _
        "WHERE ([ID] Is Null) OR ([Date] Is Null)", _
        dbFailOnError
    Set tdf = dbBad.TableDefs("MSysAccessObjects")
    Set ix = tdf.CreateIndex("AOIndex")
    With ix
        .Fields.Append .CreateField("ID")
        .Primary = True
    End With
    tdf.Indexes.Append ix
    Set tdf = Nothing
    dbBad.Close
    Set dbBad = Nothing
End Sub

'Abra a janela immediate, pressionando Ctrl+G e digite:

FixBadAOIndex ("c:\SeuBanco.mdb")

'No final faça o Compactar/Reparar.

Olá Paulo,

Obrigado pelo retorno,

Amigo falei a versão do access errado a versão é 2007 a extensão do arquivo e accdb, tentei fazer esse procedimento que voce indicou mais quando abra o modulo e copio o script o mesmo não deixa ser execultado.

o procedimento é o mesmo? mudando a extensão é claro.

obrigado

ranieri

Penso que não funciona para o 2007.

Se preferir, envie o seu banco para o meu email que tento recuperar.

jpaulo65@gmail.com

Bom dia, amigos.

Estou com o mesmo problema em meu banco de dados. A agravante é que ele é bem grande e não tenho como postá-lo.

Haveria alguma solução?

Obrigado

Depois de postar resolvi o problema.
Obrigado

Olá,

A questão minha tambem foi o tamanho, eu peguei o ultimo backup e incluir novamente os dados com perdidos.

Qual foi a solução que você fez para resolver?

Ranieri

Pô, aconteceu isso no meu BD. JPaulo. não entendí. Como faço esse procedimento. Desespero. * Eu já tinha terminado meu banco, fiz backup dele e o erro está em todos eles... O meu Office é o 2010.

boa tarde Jpaulo

Seria possível dar uma ajuda, não consigo resolver este problema:

https://www.maximoaccess.com/t24519-id-nao-e-um-indice-desta-tabela#175242

aconteceu comigo. Resolvi no ACCESS 2007 da seguinte forma:
1 - abrir o acccess 2007 (com Windows 7);
2 - selecionar abrir arquivo;
3 - selecionar arquivo;
4 - no botão "abrir", tem uma setinha, selecionar versões anteriores;
5 - selecione uma anterior ao problema
6 - abrir, renomear e compactar.