VBA ACCESS - Compactando aplicação ao sair



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


Nenhum comentário:

Postar um comentário

diHITT - Notícias