Usando Access

Compactar BE ao fechar FE

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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.

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |