[Resolvido]Reiniciar tabela usando sql

Ola povo,
estou usando o seguinte comando para limpar minhas tabelas:

CurrentDb.Execute "DELETE FROM Atendimento;"

mas quero reiniciar o incremento automatico.

Aguardo ajuda.

Oi, tudo bem?

Não sei fazer via código, mas a lógica talvez seja criar uma nova tabela temporária (temp) com os mesmos campos e depois copiar os dados da tabela antiga para a nova. Após copiado, apaga a antiga e renomeia a temporária para o mesmo nome.
Podes copiar toda estrutura de campos para a temporária, menos a autonumeração que deve ser criada separada, para que seja recriada a autonumeração à partir da nova.

Como não necessitei seguido deste recurso, fiz manualmente mesmo.
Manualmente, após criar a temporária, copiei todas colunas (exceto autonumeração) e colei nas colunas da temporária.

Se algum colega tem uma solução mais prática, amigável ou correta melhor.

Abraço.

Não tem como ser dessa forma, pois o procedimento será feito pelo usuário mensalmente, e será feita após clicar no botão "Limpar Tabelas".

Bom dia,
o caminho é criar a tabela mesmo.
Nesse caso, precisamos saber quais
são os campos e o tipo de cada um deles.
Saber com quais tabelas e campos se relacionam
e fazer via código SQL executado a partir do clique
de um botão.

Mas será que não é o caso de criar um incremento próprio?
Assim pode ser o número que quiser.

Boa tarde!

Espero que sirva de exemplo.

Saludos

FranklinJSP, obrigado pelo exemplo.
Armazenarei em meu repositório pessoal.

E contribuindo, há este artigo também
usandoaccess.com.br/blog/zerar-campo-tipo-autonumeracao.asp?id=1

Olá Iberlucio,

Você pode executar a seguinte rotina:

Código:



Dim strSql As String
Dim DB As DAO.Database

Set DB = CurrentDb

strSql = "DELETE FROM SuaTabela;"
DB.Execute strSql

strSql = "ALTER TABLE SuaTabela ALTER COLUMN CampoAutonumeracao COUNTER (1, 1);"
DB.Execute strSql





Espero ter ajudado.

boa sorte

Alexandre, COUNTER? Essa não conhecia. Muito simples. Obrigado por partilhar esta maneira.

Acrescentando, o primeiro 1 significa de onde começar o incremento (pode ser em uma tabela já com dados também). O segundo 1 significa quantas unidades deverão ser incrementadas a cada novo registro (mas não funciona no access - pelo menos não funcionou no meu 2010)

-------

Editado:
Testei no Access 365 e a quantidade de unidades a serem incrementadas pôde ser diferente de 1.

Tópico movido.

Olá DamasceJR,
No Access, não é possível (pelo menos eu não conheço) o uso da instrução TRUNCATE.
Eu rodei no meu Access 2010 e funcionou normalmente.

Valeu

Alexandre, aqui funcionou também. Só não funcionou no meu 2010 o segundo parâmetro quando tentei alterar o incremento para um valor diferente de 1.

Valeu povo...
Trabalho em equipe, perfeito.

Bom dia

Não funciona em tabelas ligadas .

Como fazer ?

A parte de eliminar funciona.

A parte de reinicia a numeração dá erro na linha a vermelho.

Me. Caminho é o caminho das tabelas no Back_End.

Tab_Usuario é o nome da tabela


strSql = "ALTER TABLE " & Me!Caminho & " Tab_Usuario ALTER COLUMN Codigo COUNTER (1, 1);"

DB.Execute strSql






Eliminar

up

strSql = "ALTER TABLE [" & Me!Caminho & "].Tab_Usuario ALTER COLUMN Codigo...

fonte:
usandoaccess.com.br/dicas/modificar-estrutura-tabelas-frontend-vba.asp#video

Obrigado

Damasceno.

Fica aqui o código completo para BD dividida.

Private Sub Comando112_Click()

Dim strSql As String
Dim DB As DAO.Database

Set DB = CurrentDb

strSql = "DELETE FROM Tab_Usuario;"
DB.Execute strSql

strSql = "ALTER TABLE [" & Me!Caminho & "].Tab_Usuario ALTER COLUMN Codigo COUNTER (1, 1);"

DB.Execute strSql


End Sub