Zerar um campo, tipo Numeração Automática
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Ricardo:
Olá!
Como posso reiniciar um campo (coluna) de tabela, tipo "Numeração Automática", por código VBA?
Desde já, agradeço a sua ajuda.
Suporte:
Ricardo,
se a tabela está zerada (sem registros), basta usar o Compactar e Reparar. Caso contrário, utilize o seguinte código:
Faça o login aqui para ter acesso ao código.
A sua tabela está relacionada a outra tabela?
Nota: não esqueça de fazer antes, um backup de sua base de dados.
Usuário Ricardo:
Olá, Avelino!
Fiz o teste utilizando o currentdb.execute e funcionou bem até criar a nova tabela. Ao deletar a antiga, apresentou a seguinte mensagem:
"O mecanismo de banco de dados não pôde bloquear a tabela 'TB_TRABALHO', pois ela já está sendo usada por outra pessoa ou processo."
Faça o login aqui para ter acesso ao código.
Suporte:
Ricardo,
a mensagem é clara. A tabela está em uso e portanto não pode ser excluída. O formulário em questão tem origem na tabela TB_TRABALHO? Se sim, este é o problema.
Usuário Ricardo:
Olá Avelino!
Fiz um formulário simples e não está associado a nenhuma tabela. O propósito deste formulário é executar o código proposto. Mesmo assim, o problema acontece.
Criei um banco de teste com dois formulários: - o primeiro utiliza a tabela dentro de um sub-formulário, o segundo executa somente o procedimento mencionado acima.
Suporte:
Ricardo,
como havia previsto, o formulário frmX está associado à tabela tblTrab. É preciso primeiro desvincular o formulário para que funcione.
Segue a modificação do código:
Faça o login aqui para ter acesso ao código.
Usuário Ricardo:
Olá, Avelino!
Está funcionando!
Mais uma vez, obrigado pela ajuda.
| Não há comentário |
