Reindexar uma tabela pela sequencia apos deleção

Ola Pessoal,

    Por gentileza, eu fiz uma deleção dos registros da tabela usando o comando DELETE * FROM Tbl_Bens e gostaria que apos essa deleção fosse habilitado para que essa tabela retorne a gerar a sequencia 1,2,3...e no meu caso a sequencia continua com a última numeração apos a deleção.Grato a todos na cooperação e ajuda. abraço

Use o compactar e reparar o banco de dados.

Ola Silvio, grato pelas orientações, vou estar descrevendo o que tenho efetuado para que possa averiguar se estou no caminho correto:

Este o meu código que tenho praticado

Private Sub BtMGerenciar_Click()
Dim sql As String

'deletar a tabela desejada
'Esta tabela Tbl_BensCorrecao que irá receber do select as informações, apos ter concluido o processo de atualização e logo em seguida
'deleto essa tabela Tbl_BensCorrecao para que possa ser atualizada
sql = " DELETE * " & _
" FROM Tbl_BensCorrecao; "
DoCmd.RunSQL (sql)

'Inserir novos registros
sql = " INSERT INTO Tbl_BensCorrecao ( NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
" EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
" TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo ) " & _
" SELECT NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
" EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
" TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo " & _
" FROM Tbl_Bens; "
' "WHERE (((Tbl_Bens.Codigo) Not In (select Codigo from Tbl_BensCorrecao)));"


DoCmd.RunSQL (sql)
End Sub

Boas....

Veja esse link, creio que vai te ajudar a fazer o compactar e reparar via vba.
https://www.maximoaccess.com/t9702-nota-compactar-e-reparar-access-2003?highlight=compactar

Ficaria algo parecido com isso...

Private Sub BtMGerenciar_Click()
Dim sql As String

'deletar a tabela desejada
'Esta tabela Tbl_BensCorrecao que irá receber do select as informações, apos ter concluido o processo de atualização e logo em seguida
'deleto essa tabela Tbl_BensCorrecao para que possa ser atualizada
sql = " DELETE * " & _
" FROM Tbl_BensCorrecao; "

Application.CommandBars("Menu Bar").Enabled = True 'Mostra menus
CommandBars.FindControl(Id:=2071).accDoDefaultAction 'Compacta/Repara
Application.CommandBars("Menu Bar").Enabled = False 'Esconde menus


DoCmd.RunSQL (sql)

'Inserir novos registros
sql = " INSERT INTO Tbl_BensCorrecao ( NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
" EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
" TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo ) " & _
" SELECT NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
" EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
" TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo " & _
" FROM Tbl_Bens; "
' "WHERE (((Tbl_Bens.Codigo) Not In (select Codigo from Tbl_BensCorrecao)));"

End Sub


Bons estudos.

Ola Silvio, funcionou perfeitamente os parametros dos quais me enviou, a tabela retorna a ficar na chave primaria como nova sequencia 1...so que percebi que apos o insert a sequencia passa a ser a última sequencia que havia sido gerada na tabela atualizada: Tipo assim, quando processa a select e manda inserir o registro lido na Tbl_Bens o registro assume o último registro que havia sido gravado na tabela Tbl_BensCorrecao.