VBA ACCESS - Compactando aplicação ao sair

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Invariavelmente precisamos compactar nossas aplicações MS Access.

Devido ao acumulo de dados excluídos, transportados, importados, etc...

Um modo de fazer isso sem que interfira demasiadamente na rotina dos nossos usuários, é a de compactar a aplicação ao sair dela.

O código abaixo pode ser executado uma linha antes do comando fechar da sua aplicação.

Function AutoCompac()

' A&A - In Any Place. 

' André Bernardes. ' Santos - SP. 

' Posted in: 19.08.2008 - 10:26. 

Dim fObject, f, Tam, CompleteFile 

Dim strProjPath As String, strProjectName As String 

Let strProjPath = Application.CurrentProject.Path 

Let strProjName = Application.CurrentProject.Name 

Let CompleteFile = strProjPath & "\" & strProjName 

Set fObject = CreateObject("Scripting.FileSystemObject") 

Set f = fObject.GetFile(CompleteFile) ' Dividindo por mil para converter em MB. 

Let Tam = CLng(f.Size / 1000000) ' Indica o máximo de tamanho no qual o .MDB pode chegar 

If Tam > 20 Then ' Compacta a aplicação. 

Application.SetOption ("Auto Compact"), 1 

Application.SetOption "Show Status Bar", True 

Let vStatusBar = SysCmd (acSysCmdSetStatus, "Esta aplicação está sendo compactada, por favor não interfira com o processo de Compactação!") 

Else ' Não compacta a aplicação. 

Application.SetOption ("Auto Compact"), 0 

End If

End Function

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Access, compact