MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    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
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    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: Sab 16 Dez 2017, 20:48