MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abrir o Banco de dados e compacta

    Compartilhe

    marcelo3092
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 19/08/2010

    [Resolvido]Abrir o Banco de dados e compacta

    Mensagem  marcelo3092 em Sab 04 Jun 2016, 03:17

    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???

    marcelo3092
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 19/08/2010

    resolvido

    Mensagem  marcelo3092 em Sab 04 Jun 2016, 04:15

    bom galera pesquisando os post encontrei o post do nosso mestre Jp copiei e adaptei o código muito bom
    fiz um atalho com as instruções para compacta o access
    e coloquei o código dentro do formulario manutenção que fica no sistema administrador ao apagar todos os registros ele chama o código que executa o atalho e compacta e repara o banco de dados e começa os registros tudo do zero
    ficando o código assim
    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"



    Dim strCaminho$

    strCaminho = "C:\Sistema Academia" & "\" & "Banco de Dados" & ".lnk"

    Application.FollowHyperlink strCaminho, , True

    MsgBox "Sistema Compactado com Sussesso!!!", vbInformation, "Sistema Academia"




    pois o access ja da a opção ao sair compactar porem eu queria que em um DB compactasse o outro sem precisar entrar nele deu certim.

      Data/hora atual: Sex 09 Dez 2016, 03:48