[Resolvido]Como garantir que o BD será compactado sempre que o último front-end for fechado

Senhores,

Estou com problema em um BD e mesmo ativando a opção para compactar o BD sempre que for fechado, isso não está acontecendo. Gostaria de garantir que sempre que o último front-end for fechado, seja por tempo de inatividade ou por solicitação do usuário, este seja compactado e reparado.


Como conseguir isto?

Quem procura sempre encontra...

http://maximoaccess.forumeiros.com/t2335-resolvidoscompactar-e-reparar-por-vbscript?highlight=compactar

meu access é 2010, não consegui aplicar o vbs, conforme instruções abaixo do nosso amigo.


Voltando ao que interessa, sugiro;

Em todos os bancos que fizerem, coloquem sempre a Compactar ao Fechar, o Banco reduz o inchaço significativamente.

Esse modo pode ser efetuado, colocando um visto na caixinha do Compactar ao fechar, em Ferramentas/Opções

Ou por VB Script (uma novidade para alguns)...


Numa folha de texto vazia (notepad), cole:

Dim objScript
Dim objAccess
Dim strPathToMDB
Dim strMsg

'caminho e banco a compactar
strPathToMDB = "C:\teste.mdb"
'Caminho e banco virtual para permitir a compressão
strTempDB = "C:\testeCompress.mdb"
Set objAccess = CreateObject("Access.Application.11")
objAccess.DbEngine.CompactDatabase strPathToMDB ,strTempDB
If Err.Number > 0 Then
strMsg = "O seguinte erro foi encontrado durante a compactação do banco de dados:"
strMsg = strMsg & vbCrLf & vbCrLf & Err.Description
Else
Set objScript= CreateObject("Scripting.FileSystemObject")
objScript.CopyFile strPathToMDB , strPathToMDB & "z", True
objScript.CopyFile strTempDB, strPathToMDB, True
objScript.DeleteFile strTempDB
End If
Set objAccess = Nothing
Set objScript = Nothing
WScript.Echo "Banco compactado com sucesso..."


Renomei a folha de .txt para .vbs


.................................................................................
Sucesso e abraço
Success and hug

A imaginação é inútil sem a aplicação de conhecimentos.
Imagination is fruitless without applying knowledge..

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

ainda não resolvido.

Olá Pessoal
Dando o meu pitaco.

O compactar ao fechar, funciona somente no FE .

Sempre que alguém abre o FE, é gerado um arquivo NomedoBE.laccdb onde consta os dados de cada usuário logado no BE.

Para o teu caso, Donizeth, verificaríamos a existência desse arquivo:

Código:


If Len(Dir("C:\caminho\NomeBE.laccdb")) = 0 then ' se não tem ninguém logado...
  Compacta 
Endif


Espero ter ajudado.
Abraços

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.