[Resolvido]Consulta criar tabela com campo de autonumeração

Como adicionar um campo para gerar autonomeração em uma consulta criar tabela? Ou seja, gostaria de criar a tabela pela consulta e adicionar um campo de autonumeração.

Boa tarde, donizeth

Aconselho a ter a estrutura da tabela criada, sem registos, e utilizar comando de acrescentar registos, não indicando o campo de auto-numeração, que será preenchido automaticamente.

Boa tarde Alexandre,

Mas eu gostaria de reinicializar a numeração a partir do número 1, toda vez que gerar a consulta.

Donizeth

Já experimentou o que aconselhei?

Alexandre,

Fiz, mas antes de acrescentar na tabela, executo uma consulta para eliminar os registros, porém quando executo o acrescentar a numeração continua após o último registro criado e não iniciando novamente em 1. POr exemplo, criei a tabela com 500 registros, fiz a exclusão e executei a consulta acrescimento, aí a numeração começou em 501, mas na verdade queria que começasse em 1.

Boa tarde,

Adapte o código
Sub NumeraCampo()
'criada por Alexandre Neves
'em 2012-07-20
'para donizeth
'do fórum MaximoAccess
Dim Rst As DAO.Recordset, I As Integer
Set Rst = CurrentDb.OpenRecordset("SELECT CampoNumeracao FROM Tabela;")

I = 0
Do While Not Rst.EOF
I = I + 1
Rst.Edit
Rst(0) = I
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

OK, revolvido.

Bom dia a todos, sou novo no Forum..
Olá Alexandre Neves. Estou com a mesma dúvida, e acho que esse código servirá para mim. Mas onde executo esse código?

Obrigado, já consegui resolver aqui.