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, CompleteFileDim strProjPath As String, strProjectName As StringLet strProjPath = Application.CurrentProject.PathLet strProjName = Application.CurrentProject.NameLet CompleteFile = strProjPath & "\" & strProjNameSet 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 chegarIf Tam > 20 Then ' Compacta a aplicação.
Application.SetOption ("Auto Compact"), 1Application.SetOption "Show Status Bar", TrueLet 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 IfEnd 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