[Resolvido]Erro no exemplo de Backup

Olá pessoal, boa noite.
Baixei o arquivo de Backup. Ele está funcionando (desde que a pasta backup não esteja aberta) porém ao fazer backup para um pendrive ele cria a pasta no pendrive mas a mesma fica vazia.
Ao compilar o SysPen dá erro de compilação 'sub' ou 'function' não definida e marca a linha: Parametros_de_Inicializacao "SysPen.par"
Seria porque está convertido para o access 2003?
Grato

Esta linha pode ser excluída.. é uma função para ler um caminho em um arquivo txt.
Creio não estar no exemplo.

Cole o Link do exemplo para que eu possa analisar e corrigir.

Cumprimentos.

Ihh, vou ver se encontro novamente.

Taí o arquivo.
Este já está modificado para office 2003 e para o arquivo que quero fazer backup

Não veio o link ou arquivo.

Se possivel me envie o link do repositório.

Cumprimentos.

Taí o que baixei. Tem ele accdb e mdb
BackUp

Amigo.. eu necessito do link pois assim corrigirei a aplicarei as correções na sala de repositório.

Cumprimentos.

Mais difícil reencontrar que da primeira vez.
tá aí.
Backup link direto

Amigo... eu quero apenas o tópico.. qual o tópico.

Cumprimentos.

Veja se é isto:
Tópico sala repositorio
Foi onde encontrei.

Issooooooooooo!!!!!!
    

Vou corrigir e posto novamente no link acima
Te aviso quando pronto.


Cumprimentos.

Ei-lo:

http://maximoaccess.forumeiros.com/t7554-backup-no-disco-rigido-e-em-dispositivo-removivel-com-pesquisa-automatica-do-mesmo#61259

Cumprimentos.

Obrigado, vou estudá-lo e tentar implementar no meu aplicativo em access 2003.
Vou dar como resolvido porque como meu conhecimento a este nível é bem pequeno vai na base da tentativa e desistência então pode demorar.

Infelizmente não deu certo. Ao depurar dá erro nesta linha "PegaProcedimento (NomeProcedimento)"
Se eu comentar esta linha e depurar novamente dá erro nesta "Pause (5)"
Comentando esta o erro passa para " GlobalErrHandler" e assim por diante.

E talvez por causa disto não consigo converter para o Access 2003
Grato

O meu dá aquele erro que o Assis colocou e os outros erros também.
Grato

Piloto

Tenho
Win 8 .. 64 bits
Office 2007  .. 32 bits

Tenho DropBox já intalado

Dá este erro

Vou corrigir e posto novamente o exemplo.. Mas farei isto amanha..
Hoje não estou me sentindo bem

Cumprimentos.

Faltava alguns módulos.

Está corrigido no exemplo na sala de repositório.


Cumprimentos.

Piloto

Novo erro

Olá, Assis
Também tive este erro. Só consegui resolver criando um diretório de pastas igual ao do exemplo (as 4 pastas).
O que eu não consegui foi ao alterar no frmuBackup o txtOrigem para que apareça o meu banco de dados.
Mas fazendo um teste e renomeando meu banco de dados com os nomes usados pelo Piloto funciona tudo, inclusive a cópia no pendrive.
Mas se mudar o nome do banco de dados dá este erro que você falou.

Pelo visto vocês não leram o tópico na sala de repositório. A primeira mensagem explica a questão do nome.


Cumprimentos.

Eu lí, e tentei fazer alterações. Tentei mudar o "_be.accdb" de diversas formas.
Tenho que dizer que retirei tudo que era relativo a rede. No lugar o "_be.accdb", tentei com ".mdb", com "Recargat.mdb". Daí no formulário o nome é mudado. Tentei alterar na abertura do formulário colocando esta linha nomeBd = Mid(CurrentProject.Name, 1, Len(CurrentProject.Name) - 4) & ".mdb"
como "-4"mas ainda não consegui.
Apaguei tudo e vou recomeçar do zero.

Não há necessidade de apagar nada....

Suponha que o Seu Fron-End seja:
XXXXXX.accdb

O Seu Back-End terá que ter a seguinte nomenclatura:

XXXXXX_be.Accdb


Apenas isso... O nome do Back-End deverá ser sempre o nome do Front-End sucedido de _be.accdb


Veja tambem no form de restauração... onde tem o nome do Back-End, substitua pelo nome do teu Back-End.


Cumprimentos.

Veja se compreende

Private Sub Form_Open(Cancel As Integer)
Dim nomeBd As String
nomeBd = Mid(CurrentProject.Name, 1, Len(CurrentProject.Name) - 6) & "_be.accdb"
StrCaminhoBD = CurrentProject.path & "\base\" & nomeBd


Suponha que o nome do teu front-end seja: SistemaX.accdb


Observe que o código acima extrei o nome antes do .accdb
Ele CurrentProject.Name = SistemaX.accdb
deste nome são extraído os 6 últimos dígtos

Depois acrescenta o _be.accdb ficando assim: SistemaX_be.accdb


No frm de restauração substitua tudo que for SysScholl...pelo nome do teu sistema


Cumprimentos.

Foi mais ou menos o que entendi.
Depois que apaguei tudo e recomecei e como o meu é .mdb e não é dividido em be e fe, mudei para -4 ficando assim:
nomeBd = Mid(CurrentProject.Name, 1, Len(CurrentProject.Name) - 4) & ".mdb"
Depois pesquisei todos os códigos e troquei tudo que tinha .accdb para .mdb

Se eu deixo meu banco de dados com o nome original (Recargat.mdb) dá Erro 53 - O arquivo não foi localizado
Se eu renomeio meu banco de dados para BdExemplo.mdb e deixo o programa de backup com todas as opções "desmarcadas" ele faz uma cópia para a pasta backup. Se eu marcar a opção de compactar com o winrar recebo o aviso 70-Permissão negada mas faz uma cópia com a extensão .mdb na subpasta Backup e uma cópia do arquivo compactado. Este arquivo compactado vem com todas as pastas e subpastas porém somente com ele na extensão .rar na subpasta backup.
No meu caso ao clicar no arquivo compactada tenho o seguinte: C:\Meus Documentos\Filmes\Somente atualizar dados\Com acerto nomes\Resolver formmercserv\Com Caixa e Bancos\Com Caixa e Bancos atual\Preparar rel mensal\Testecustos\BackupRestaura\backup.

Foi o que consegui até agora.
Ainda falta o teste com pendrive.

Se deseja um sistema profisional divida em Front-End e Back-End.

Se trabalhar no mesmo banco dos dados.. fatalmente irá ter seus daidos corrompidos se houver queda de energia, desligamento do sistema etc.
Além do que o seu sistema ficará mais leve e rápido.

Desta forma o sistema irá funcionar perfeitamente.


Cumprimentos.

Este exemplo de Backup é feito para trabalhar com o Back-End..
Sobre Backup no proprio banco creio que temos no repositório códigos apropriados.

Cumprimentos.

Eu sei, porém meu aplicativo nunca está completo. É um aplicativo que desenvolvo para o meu trabalho que na verdade é reciclagem de cartuchos jato de tinta e toner e manutenção em pc's.
Já deve ter bem uns 3 anos e sempre tem algo a acrescentar no aplicativo. O access para mim é só para uso próprio. Mês passado mesmo me inscrevi como MEI e lá vou eu fazer um monte de alterações.
Eu até tenho um outro sistema de backup que funciona bem, porém bem mais simples e compacta com o winzip. Como eu uso o winrar pesquisei e encontrei o seu.
De toda forma está sendo ótimo para aprender mais.
Vou continuar tentando para ver se resolvo o problema do nome. Fazer uns testes tipo renomear meu aplicativo para Recargat_be.mdb mesmo que não esteja dividido.
Obrigado

Não irá funcionar... substitua a instrução pelo nome do banco apenas.

Mesmo que seu aplicativo ainda não esteja pronto... divida seu BD... e podes ir fazendo as tabelas caso tenha novas.. e ir vinculando..
isto não é problema.

Este é o meu conselho.


Sucesso!

Bom meu amigo, depois de tentar várias vezes funcionou.
Consegui fazer funcionar sem dividir. Depois Mudei a pasta de lugar e tentei com o banco de dados sem dividir e até que enfim consegui também, mas seguindo seu conselho vou manter o banco dividido e atualizando os 2.
Consegui tanto o backup no disco local quanto no pendrive.
Agora falta conseguir no dropbox.
Obrigado, se eu conseguir posto aqui.

Falei cedo demais, esqueci do restore.
Tentei e ainda não consegui o restore. Após conseguir, se conseguir, posto aqui pois o drop box nem é tão importante assim, já o restore é.

Lembre-se que o restore.. foi feito para banco divididos e p BackEnd na pasta Base..

Cumprimentos.

Ok, Como disse, tenho ele dividido e não dividido. Vou começar pelo dividido.
Depois posto o resultado aqui.
Ops, primeira tentativa e já recebí erro de "provedor não encontrado". Tenho que instalar algo?
No código fica marcado "100 .Properties("Data Source") = mstrConnectedDB"
Mas logo acima tem a linha ".Provider = "Microsoft.ACE.OLEDB.12.0"
Como estou usando o access 2003 seria somente mudar o 12.0?
Grato

Possivelmente...

.Provider = "Microsoft.Jet.OLEDB.4.0"


Cumprimentos.

Não deu. O botão de iniciar a restauração fica bloqueado. Nas referencias não encontrei nada.
Quase consegui. Deixei o botão ativado.
Depois selecionei o arquivo e a barra de progresso começou até um determinado ponto.
Daí deu a mensagem "o nome do fomulário zMainMenu está incorreto.
Procurei por isto no código e alterei para um formulário meu mas aí dá falha na autenticação.
E se eu fechar o aviso e tentar novamente dá a mensagem de "Selecione um arquivo compactado válido".
E apagou o aquivo Recargat_be na pasta Base.
Lembrando que estou tentando com banco dividido.
Grato

Vou testar a restauração aqui e posto assim que possível

Este formulário ZmainMenu é o menu do meu sistema.
Este exemplo retirei de um exemplo maior.. por isso posso ter esquecido-me de retirar as partes que não o acompanham.

Cumprimentos.

Ok. Mas já substituí o zMainMenu por um formulário, no caso o próprio da restauração.

Resolveu então?

Cumprimentos.

Infelizmente não. Depois que deu a mensagem "o nome do fomulário zMainMenu está incorreto.
Procurei por isto no código e alterei para um formulário meu mas aí dá falha na autenticação.
E se eu fechar o aviso e tentar novamente dá a mensagem de "Selecione um arquivo compactado válido".
E apagou o aquivo Recargat_be na pasta Base.

Vou ver sobre o restore.. Mas amanha.

Boa noite.

Tá dando falha na autenticação ainda e se dou ok o cursor muda para a ampulheta, mesmo assim eu seleciono o arquivo rar e quando clico no botão para iniciar a restauração dá a mensagem de "Selecione um arquivo compactado válido"

É, quanto ao restore não estou conseguindo nada. O backup tá perfeito.

Buscador
Pode postar com as alterações ?
Obrigado

Puxa, Assis


Importei tudo para um aplicativo que estou fazendo mas usando ao mesmo tempo.
Vou tentar com o arquivo original e se der, posto.

Olá, Assis
Fiz aqui e funcionou. Com excessão do dropbox e o restore.

Obrigado Buscador

Assis a parte que o Buscador adaptou está funcional no exemplo na sala de repositório.
Ele apenas adaptou ao dele.

Creio que terá o mesmo trabalho.

No entanto amanha vou atualizar no repositório o exemplo totalmente funcional.

Abraços.

Tá funcional mas só a parte de backup em disco e em pen drive.
Estou pelejando com o restore mas este tá osso. Não estou conseguindo nada.

Bom dia Buscador... Foi falha minha.. Como eu havia separado este exemplo de um sistema completo havia esquecido-me de copiar um Formulário e um módulo..

Postarei agora atualizado... Observe no exemplo as dicas no formulário que abrirá ao iniciar.
Ao executar a primeira vez.. não pressione a tecla shift pois abrirá um formulário Leia-me com as informaçõea para que entenda,

O código que está neste formulário é necessário aplicar ao iniciar o sistema pois abrirá um formulário oculto... Este formulário.. ao clicar em desconectar usuário.. abrirá na estação de trabalho do usuário avisando que o sistema será finalizado...
Então funciona assim:

Na estação de trabalho este formulário ficará ativo em oculto.. e checará de tempo em tempo a tblDescRede.
Quando voce inicia a restauracao o campo Sim/Não nesta tabela será marcado como sim.
Como na estação de trabalho o frmAvisoDesconexao está ativo e checando esta tabela de tempo em tempo. caso inicie a restauração..
este formulário será aberto nas estações de trabalho conectadas.. impedindo o usuário o acesso a outros forms.. e encerrando a aplicação do usuário.

Logo mais posterei.. Acuse se entendeu a minha explicação acima.

Cumprimentos.

http://maximoaccess.forumeiros.com/t7554-backup-no-disco-rigido-e-em-dispositivo-removivel-com-pesquisa-automatica-do-mesmo#61259

Cumprimentos.

Olá, Piloto
Entendi sim e baixei. Mas preciso usar a tecla shift para desmarcar o "StrokeScribs" (acho que é isto mesmo) que está ausente, pois se não me engando é uma dll de terceiros, né?

Tem também que habilitar todas as macros. Mas não sei se é por ter que abrir com o shift mas mesmo fechando e reabrindo o banco dá a mensagem "o acesso a rede foi interrompido, feche o banco de dados e abra-o novamente". Mas se eu fizer isto continua dando a mesma mensagem.