COMO VOLTAR DO INICIO UMA TABELA DO ACCESS 2003
boa tarde amigos.
como faço para que a tabela volte do 0, para quando eu for inserir algum item ele começar a contar 1 - 2 - 3 e etc...
ex.
vamos supor que eu gravei 18 registros
codigo nome
1 joão
2 raquel etc...
se eu ir na tabela e limpar tudo la não vai ter mais nenhum registro, mais quando eu for inserir o proximo vai ser
codigo nome
3 ricardo
só quero fazer isso para limpar a tabela.... e deixar do inicio..
como faço para que a tabela volte do 0, para quando eu for inserir algum item ele começar a contar 1 - 2 - 3 e etc...
ex.
vamos supor que eu gravei 18 registros
codigo nome
1 joão
2 raquel etc...
se eu ir na tabela e limpar tudo la não vai ter mais nenhum registro, mais quando eu for inserir o proximo vai ser
codigo nome
3 ricardo
só quero fazer isso para limpar a tabela.... e deixar do inicio..
Se você deixou como numeração automática, é assim mesmo que funciona um banco de dados, por ex: você gravou o joão, e teve uma movimentação com esse joão código: 1, e depois você exclui esse joão e bota outro nome aÃ, a movimentação que era do joão agora ficou para o novo registro, sendo assim pra evitar erros, o próprio banco se encarrega de fazer isso.
eu não deixei com numeração automatica não....
Vou responder baseado na sua pergunta.Isto não
significa que vá da sempre resultados do seu gosto.
Vamos lá.
Tem jeito?Sim.
Faça uma consulta antes de excluir os registro e
armazena em uma variável
Exº
Dim sSQL As String
Dim Valor as integer
Set Tabela = New ADODB.Recordset
sSQL = [Ô]SELECT MAX(Codigo) as Total From Tabela[Ô]
Set Tabela = SeuBanco.Execute(sSQL)
If Not IsNull(Tabela!Total) Then
Valor = Val(Tabela!Total + 1)
End if
Agora o Delete
Delete * From Tabela
Agora o valor
txtCodigo.Text = Valor
Vai aparecer o valor 3
Quanto a 18 registros claro que o
resultado será 19.
[txt-color=#e80000]Jesus Te Ama!!! [/txt-color]esse não é o problema.
é você que tem que [txt-color=#007100]Amar Jesus[/txt-color].
significa que vá da sempre resultados do seu gosto.
Vamos lá.
Tem jeito?Sim.
Faça uma consulta antes de excluir os registro e
armazena em uma variável
Exº
Dim sSQL As String
Dim Valor as integer
Set Tabela = New ADODB.Recordset
sSQL = [Ô]SELECT MAX(Codigo) as Total From Tabela[Ô]
Set Tabela = SeuBanco.Execute(sSQL)
If Not IsNull(Tabela!Total) Then
Valor = Val(Tabela!Total + 1)
End if
Agora o Delete
Delete * From Tabela
Agora o valor
txtCodigo.Text = Valor
Vai aparecer o valor 3
Quanto a 18 registros claro que o
resultado será 19.
[txt-color=#e80000]Jesus Te Ama!!! [/txt-color]esse não é o problema.
é você que tem que [txt-color=#007100]Amar Jesus[/txt-color].
não amigos não é isso que eu quero, é no access mesmo, alguma ferramenta la que quando eu excluir os registros eu clicar em alguma ferramenta para voltar a colocar do codigo 1. para eu fazer isto estou removendo a tabela e criando uma nova.
Limpe a Tabela, depois no proprio access, va em (compactar e reparar o banco de dados)
Pronto , toda tabela com seu campo auto numeração volta a zero.
Agora, se vc diz que não deixou o campo auto numeração, então sua pergunta não faz sentido, repense.
Boa Sorte, Abraço.
Pronto , toda tabela com seu campo auto numeração volta a zero.
Agora, se vc diz que não deixou o campo auto numeração, então sua pergunta não faz sentido, repense.
Boa Sorte, Abraço.
ah era isso mesmo amigo obrigado pela ajuda....
Tópico encerrado , respostas não são mais permitidas