... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Compactar BE ao fechar FE

Usuário Aermel:

Sou usuário do MontaRibbons com Access 2010 - Trabalhamos em rede com aproximadamente 12 equipamentos.

Gostaria de saber se teria uma maneira de compactar o BE ao fechar o FE, ou seja, colocar por exemplo, no formulário Login no evento Ao fechar ou Ao sair, um comando para compactar o BE.

Suporte:

Não será possível compactar o BE pelo FE, a não ser que o seu FE trabalhe com tabelas desvinculadas. Ainda assim será preciso que nenhum FE esteja utilizando o BE.  Minha sugestão é a de você criar um Script e este ser posto na pasta de Arranque (Iniciar) do Windows.  Assim, toda vez que o Windows do BE for carregado, um Backup e/ou a Compactação será realizada.

Abra o Bloco de Notas do Windows que armazena o seu Back-end e copie o script abaixo:

banco = "C:\SuaPasta\SeuBackEnd"
Set Access = Wscript.CreateObject ("Access.Application") 
Set Shell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ori = banco & ".accdb"
bak = banco & "Compactado.accdb"
Access.DBEngine.CompactDatabase ori, bak, , , ";pwd=SenhaDoBe"
If FSO.fileexists (bak) Then
   FSO.deletefile (ori)
   FSO.MoveFile bak,ori
End If

- Altere as partes em vermelho do código.
- Salve com a extensão VBS. Exemplo: Backup_be.vbs.
- Abra a pasta ARRANQUE (INICIAR) do Windows e copie o Arquivo criado para esta pasta.
- Reinicie o Windows e veja se irá compactar.

Nota: Faça um backup de segurança do seu BE antes do teste.

- Para o BE sem senha, altere a linha conforme abaixo:

Access.DBEngine.CompactDatabase ori, bak

Usuário Aermel:

Obrigado! Tudo funcionando! Vou programar para rodar em horário a noite, quando todos estão desconectados.

 


 

 


Não há comentário

Envie seu comentário: