MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Abrir o Banco de dados e compacta

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir o Banco de dados e compacta Empty [Resolvido]Abrir o Banco de dados e compacta

    Mensagem  marcelo3092 4/6/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
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Abrir o Banco de dados e compacta Empty resolvido

    Mensagem  marcelo3092 4/6/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: 21/11/2024, 13:36