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
usuários, é por 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 TomaticCompac()
' 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 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
ANDRÉ BERNARDES
Nenhum comentário:
Postar um comentário