VBA Access | Como Auto-Compactar o arquivo ACCDB

Aqui está um código VBA que você pode usar para auto-compactar o arquivo .accdb assim que ele for aberto. O código deve ser colocado em um módulo e será executado automaticamente na abertura do banco de dados.

Código VBA para Compactar Banco de Dados ao Abrir

 Private Sub CompactarAoAbrir()

    Dim strPath As String

    Dim strBackupPath As String

    Dim strTempDB As String

    On Error GoTo TrataErro

    ' Caminho completo do banco de dados atual

    strPath = CurrentDb.Name

    ' Caminho do backup antes de compactar

    strBackupPath = Left(strPath, Len(strPath) - 6) & "_backup_" & Format(Now, "yyyymmdd_hhmmss") & ".accdb"

    ' Caminho do banco de dados temporário usado para a compactação

    strTempDB = Left(strPath, Len(strPath) - 6) & "_temp.accdb"

    ' Cria uma cópia de segurança do banco de dados

    FileCopy strPath, strBackupPath

    ' Fecha o banco de dados atual para permitir a compactação

    Application.SetOption "Auto compact", False

    Application.Quit

    ' Compacta o banco de dados atual para o arquivo temporário

    DBEngine.CompactDatabase strPath, strTempDB

    ' Substitui o banco de dados original pelo arquivo compactado

    Kill strPath

    Name strTempDB As strPath

    ' Reabre o banco de dados original compactado

    Shell "msaccess.exe """ & strPath & """", vbNormalFocus

    Exit Sub

TrataErro:

    MsgBox "Erro durante a compactação: " & Err.Description, vbCritical

End Sub

 Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA 

Como Usar

Colocar o Código no Módulo:

Abra o Access.

Pressione Alt + F11 para abrir o Editor VBA.

 

Insira o código acima em um módulo novo ou existente.

Adicionar a Função ao Evento de Abertura:

No Editor VBA, expanda Formulários no painel de navegação.

Clique com o botão direito em Formulário Inicial, selecione Visualizar código.

No menu suspenso à esquerda, selecione Form, e à direita, Open.

Chame a função CompactarAoAbrir no evento Form_Open.

 

Private Sub Form_Open(Cancel As Integer)

    CompactarAoAbrir

End Sub

Desativar a Opção de Compactação Automática do Access:

O Access possui uma opção de compactação automática ao fechar, mas essa função será desabilitada pelo código Application.SetOption "Auto compact", False. 

Isso é necessário para evitar conflitos com a compactação personalizada ao abrir o banco de dados.

Explicação do Código

Criação de Backup:

O banco de dados atual é copiado para um arquivo de backup com a data e hora da execução.

Compactação:

O banco de dados é compactado em um arquivo temporário.

O arquivo original é substituído pelo banco de dados compactado.

Reabertura do Banco:

Após a compactação, o banco de dados é reaberto automaticamente para continuar o uso normal.

Tratamento de Erros:

Se ocorrer algum erro durante a compactação, o erro é tratado e uma mensagem de erro é exibida.

Este código garante que o banco de dados seja compactado automaticamente toda vez que for aberto, ajudando a manter o desempenho e a integridade do banco de dados.

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série Donut Project 

  

 Clique nas capas abaixo e compre também: