Boa noite pessoal seguinte estou com o seguinte problema tenho dois modulos um o administrador e o outro o banco de dados porem no administrador tenho um formulario manutenção. e nele um botão zerar que zera todos os registros das tabelas limpa o sistema para começar de novo porem ao executar eu queria q ele abri se o banco de dados access e compacta-se automaticamente para zerar e começa os registro do 1 pois tem auto numeração
o código do botão zera e esse
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [Consulta_Alunos_Grupo]"
CurrentDb.Execute "Delete * from [Consulta_Debito_Aluno]"
CurrentDb.Execute "Delete * from [Resultado]"
CurrentDb.Execute "Delete * from [Agendamento_AValiação]"
CurrentDb.Execute "Delete * from [Alunos]"
CurrentDb.Execute "Delete * from [Avaliação]"
CurrentDb.Execute "Delete * from [Comissão]"
CurrentDb.Execute "Delete * from [Compra]"
CurrentDb.Execute "Delete * from [Consu_Presença]"
CurrentDb.Execute "Delete * from [Desconto]"
CurrentDb.Execute "Delete * from [Detalhe_Calculo]"
CurrentDb.Execute "Delete * from [Detalhe_CompraP]"
CurrentDb.Execute "Delete * from [Detalhe_Venda]"
CurrentDb.Execute "Delete * from [Detalhe_VendaP]"
CurrentDb.Execute "Delete * from [Exercicio]"
CurrentDb.Execute "Delete * from [Fornecedores]"
CurrentDb.Execute "Delete * from [Mensagem_ALuno]"
CurrentDb.Execute "Delete * from [Modalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Compra]"
CurrentDb.Execute "Delete * from [Pagamento_Mensalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Venda]"
CurrentDb.Execute "Delete * from [Presença]"
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [SubCompra]"
CurrentDb.Execute "Delete * from [SubTreino]"
CurrentDb.Execute "Delete * from [Treino]"
CurrentDb.Execute "Delete * from [Turmas]"
CurrentDb.Execute "Delete * from [Venda]"
MsgBox "Sistema Reiniciado com Sussesso!!!", vbInformation, "Sistema Academia"
porem posso ate criar um formulário e nele criar o envento ao abrir ou ao carregar e executar o comando para compactar. sera que alguem pode me ajudar???
o código do botão zera e esse
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [Consulta_Alunos_Grupo]"
CurrentDb.Execute "Delete * from [Consulta_Debito_Aluno]"
CurrentDb.Execute "Delete * from [Resultado]"
CurrentDb.Execute "Delete * from [Agendamento_AValiação]"
CurrentDb.Execute "Delete * from [Alunos]"
CurrentDb.Execute "Delete * from [Avaliação]"
CurrentDb.Execute "Delete * from [Comissão]"
CurrentDb.Execute "Delete * from [Compra]"
CurrentDb.Execute "Delete * from [Consu_Presença]"
CurrentDb.Execute "Delete * from [Desconto]"
CurrentDb.Execute "Delete * from [Detalhe_Calculo]"
CurrentDb.Execute "Delete * from [Detalhe_CompraP]"
CurrentDb.Execute "Delete * from [Detalhe_Venda]"
CurrentDb.Execute "Delete * from [Detalhe_VendaP]"
CurrentDb.Execute "Delete * from [Exercicio]"
CurrentDb.Execute "Delete * from [Fornecedores]"
CurrentDb.Execute "Delete * from [Mensagem_ALuno]"
CurrentDb.Execute "Delete * from [Modalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Compra]"
CurrentDb.Execute "Delete * from [Pagamento_Mensalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Venda]"
CurrentDb.Execute "Delete * from [Presença]"
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [SubCompra]"
CurrentDb.Execute "Delete * from [SubTreino]"
CurrentDb.Execute "Delete * from [Treino]"
CurrentDb.Execute "Delete * from [Turmas]"
CurrentDb.Execute "Delete * from [Venda]"
MsgBox "Sistema Reiniciado com Sussesso!!!", vbInformation, "Sistema Academia"
porem posso ate criar um formulário e nele criar o envento ao abrir ou ao carregar e executar o comando para compactar. sera que alguem pode me ajudar???