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


2 participantes

    Compactar e Reparar Access 2003

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Compactar e Reparar Access 2003 Empty Compactar e Reparar Access 2003

    Mensagem  Access365 1/10/2012, 23:11

    O comando:
    CommandBars.FindControl(Id:=2071).accDoDefaultAction 'Compactar/Reparar o próprio DB
    só funcionará se
    Application.CommandBars("Menu Bar").Enabled = True 'Mostrar barra de menu

    Constatando:
    O comando em VB para Compactar/Reparar o próprio DB, não funcionará se sua barra de menus estiver desativada, pois o Id:=2071 vai buscar nos menus o comando Compactar/Reparar, logo a ID 2071 no Access2003 é Compactar/Reparar.

    OBSERVAÇÃO:
    Ao fazer isso e mesmo assim continuar aparecendo:
    Mensagem: "Você não pode compactar o banco de dados aberto enquanto estiver executando uma macro ou código do Visual Basic."

    Faça assim:
    Coloque o comando para compactar/reparar e mostrar barra de menus em:
    Private Sub Form_Close()
    Application.CommandBars("Menu Bar").Enabled = True 'Mostra menus
    CommandBars.FindControl(Id:=2071).accDoDefaultAction 'Compacta/Repara
    Application.CommandBars("Menu Bar").Enabled = False 'Esconde menus
    End Sub

    Não se esqueça: habilite "Caixa de controle" e "Botão fechar", em Formato de propriedade do Form que chamará o código, para SIM...
    Coloque uma informação para o usuário fechar o Form, tipo: "Feche para terminar", e então o código VB será executado sem nenhuma interferência de "macro interna" do Access2003 e o seu DB será compactado/reparado e a mensagem não mais aparecerá.

    Luz e Paz
    Paulo César


    Última edição por infosoft em 1/10/2012, 23:24, editado 1 vez(es)
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Compactar e Reparar Access 2003 Empty Re: Compactar e Reparar Access 2003

    Mensagem  Leandro 1/10/2012, 23:16

    Info, muito obrigado pelo código, o fórum agradece!!!!

    Só mudei ele de sala para ficar no lugar certo, beleza?

    Abraço

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    Compactar e Reparar Access 2003 Empty Re: Compactar e Reparar Access 2003

    Mensagem  Access365 2/8/2020, 18:21

    Foi uma contribuição

    Conteúdo patrocinado


    Compactar e Reparar Access 2003 Empty Re: Compactar e Reparar Access 2003

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:42