[Resolvido]Erro no exemplo de Backup

Olá, Piloto.
Bom dia.
Consegui baixar hoje. Assim que puder vou testar e dou retorno.
Obrigado mais uma vez pela disposição e paciência.

Boa tarde Piloto
Fui testar o exemplo e gostaria de saber como o frmBackup pega os caminhos "origem e destino"
É que quando abre o caminho origem está assim:
C:\Meus Documentos\BackupRestaura\BaseBdExemploDesvinculo_be.mdb
E deveria estar assim:
C:\Meus Documentos\BackupRestaura\Base\BdExemploDesvinculo_be.mdb

O caminho destino está assim:
C:\Meus Documentos\BackupRestaura\backup\BaseBdExemploDesvinculo_be250913-155219.mdb
E deveria estar assim:
C:\Meus Documentos\BackupRestaura\backup\BdExemploDesvinculo_be250913-155219.mdb

Só consegui alterar direto na tabela.
No btnProcurar tem este código: StrArquivo = Mid(Caminho, InStrRev(Caminho, "\") + 1)

Consgui logo após ter postado. Eu apaguei parte do que estava na tabela fechei, abri o formulário de caminho da rede e deu certo.


Tenho outras dúvidas mas acho que esta é mais importante.
Grato

Tá quase, quase.
Já consegui fazer backup e alguns restore.
Vou estudar mais e testar mais porque tem algumas coisas que não entendi.

O caminho do banco de dados é passado na função DirBancoDados..

Deve abrir o frmCaminhoBeRede.. e selecionar o seu BackEnd...

Fez isso?

na tabela tblCaminhobe fica gravado o caminho... No seu deve ester sem a barra no final no campo do caminho do back end.

Cumprimentos.

Consegui logo após ter postado e editei a mensagem.
Já consegui fazer um restore também, mas vou fazer mais testes logo a noite.
Obrigado.
Parece que desta vez tá indo...(exceto drop box, mas este fica por último). O que mais me interessa é o backup no pc e no pendrive.

Vou logo mais separar os códigos de backup igual fiz no restore.. uma função para cada tipo de backup..

Depois posto..

O drop é so questão de endereço...

Cumprimentos.

Amigo Piloto,
Testes com Backup:
Backup com winrar na pasta do aplicativo: Ok
Backup com winrar na pasta do pen drive: Ok (Faz automaticamente na pasta do aplicativo também)
Backup sem winrar na pasta do aplicativo: Ok
Backup sem winrar na pasta do pen drive: Ok (Faz automaticamente na pasta do aplicativo também)

Backup das fotos na pasta do aplicativo: Ok (Faz automaticamente em rar independente de escolher compactar ou não.
                                                            na própria pasta fotos. Faz também automaticamente uma cópia do BE na pasta
                                                            Backup, compactado ou não conforme foi selecionado.

Os backups sem winrar fazem uma cópia do "arquivo" dentro da pasta backup.
Os backups com winrar fazem uma cópia das pastas e subpastas desde a pasta inicial com o arquivo dentro da última pasta

Ex.: se eu coloco a pasta do aplicativo (pasta backuprestaura) em meus documentos, será feito backup compactado da pasta meus
     documentos > backuprestaura>backup>arquivo

O backup no dropbox infelizmente não consegui de forma alguma. Dá sempre o erro 76 no procedimento copia drop, linha 0, caminho não localizado.

Para teste coloquei o endereço "C:\Documents and Settings\Marcelo\Meus documentos\Dropbox\Public\BdExemploDesvinculo_be260913-094400.mdb" diretamente no campo Destino, do formulácio Backup. Dá o erro 75 citado acima, mas faz a cópia para o dropbox.
Fiz tanto com o winrar quanto sem o mesmo e as cópias foram feitas.

Bem, com o backup funcionando a contento, farei logo mais os testes com o restore e posteriormente coloco os resultados aqui.
Obrigado.

Estou reformulando os códigos do frmBackup separando capa possibilidade em uma sub assim como no restore..

Logo mais posto. Depois adaptaremos o seu a ele..

Aqui está funcionando perfeitamente.. A questão ai é apenas endereço

Mas com os códigos separados ficara mais fácil a adaptação.

Cumprimentos.

Ok, mas pelo visto estou caminhando bem.
Talvez que, no caso do dropbox, ele instala conforme as configurações de cada instalação do windows e suas pastas Documents and settings.

Então.. estava a analisar o frmBackup.. e a melhor maneira é esta que esta ai mesmo..

Quando ao drop.. Deixa eu te explicar o que o sistema faz...
O Backup é feito sempre na pasta Backup....

A facilidade do pendrive e dropBox apenas copia o arquivo gerado na pasta Backup e os copia.. seja no pen seja no dropBox..

Ai é apenas questão do caminho..

O Código para o Drop é a função copia Drop..
O caminho está nesta linha:

destino = Environ("USERPROFILE") & "\Dropbox\Public\"

Veja atraves do comando Environ (o exemplo que te mandei) qual procedimento para o environ retorna a pasta documents end Settings...

E substitua pelo "USERPROFILE"

Ou pode colocar ai diretamente o endereço.. algo assim:


destino = "C:\Documents and Settings\Dropbox\Public\"

é por ai.

Cumprimentos.

Olá, meu amigo Piloto.
Creio que DESCOBRI. Puxa vida já fiz o backup 2 vezes no dropbox e funcionou. Uma vez sem compactar e outra compactado.
Pera aí. Vou fazer mais 2 vezes.

Deu certo sim, consegui.
Fuçando por aí sobre environ descobri em uma página da Abril que para saber qual variável retorna o que a gente quer é só abrir o DOS e digitar set.
Fiz e aparecem várias.
Dentre as várias tem Userprofile que no meu caso retorna C:\Documents and Setings\Marcelo.
Até aí notei que seu código (destino = Environ("USERPROFILE") & "\Dropbox\Public\" ) iria retornar:"C:\Documents and Setings\Marcelo"
Mas o dropbox instala dentro de "C:\Documents and Settings\Marcelo\Meus documentos\Dropbox" então faltou o Meus documentos.
Alterei o código para:
destino = Environ("USERPROFILE") & "\Meus documentos\Dropbox\Public\"
E aí sim, fez a cópia. E sem aquele aviso de erro 76, já que o caminho agora está correto e antes ele nada encontrava.
Mas ainda tem um erro porque ele está fazendo o backup sempre dos arquivos mais antigos na pasta backup.
Vou ver se consigo alterar para os mais novos.
Grato

Eu creio que terei esse mesmo problema seu amanha.. porque?

Eu fiz no meu not.. win 7.. mas a aplicativo fiz para o Syspen.. o principal sistema meu.. que trabalha em XP... amanha vou instalar no XP e creio que terei o mesmo problema seu...

Quando resolver poste aqui a solução.. isso me poupará tempo Ok?

Abraços.

Gostei do seu raciocínio no post anterior... Fiquei extremamente feliz que foi a busca e resolveste...
Assim está crescendo em conhecimento...

E olha só!!!!! Me ajudou acredita?  pois amanha vou instalar isto no XP..

Agora sou eu que tenho que te agradecer pela sua perseverança!!!

Parabéns!!!

Que bom que pude ajudar. Fico extremamente feliz pois meus conhecimentos são pequenos. É mas na base da tentativa e erro do que do entendimento dos códigos. Como dizem 2% de inspiração e 98% de suor.
Voltando ao caso das datas.
Creio ter conseguido resolver o problema da data mais antiga no dropbox.
Na sua função "VerificaDataArq" e "VerificaDataArqRar do frmBackup
Me pareceu que a linha onde tem "DtDataMax = dtData" tem alguma coisa estranha que não consigo identificar.
Para testar comentei esta linha e funcionou. Fiz vários backups de todas as formas (Na pasta, pendrive e dropbox) e deu certo.
Mas é melhor testar direito porque não entendi o porque disto.
Grato

Que bom.. veja.. na pasta do drop tem que ter apenas arquivos de backup.. pois se tiver outro accde ou .rar.. ele pega sempre o último... se tiver um accd ou rar que não seja o backup.. vai dar erro...

Cumprimentos.

Mas tudo que escrevi é relativo ao backup. O restore ainda não consegui.

Boa noite, Piloto.

É meu amigo, com o restore não estou conseguindo nada mais.
Nem compactado, nem sem compactar, nem dropbox.

Deu certo no seu com access 2003 aí?

Bom, vou colocar aqui mesmo: uma coisa descobri, quando abro o banco de dados sem a tecla shift, o formulário de aviso de
desconexão se abre e fecha o banco de dados.

Amanhã continuo, hoje não deu tempo de verificar muita coisa.

Grato

Desmarque o campo na tblDescRede

Depois que efetua o restore.. tem que ter um código que desmarque este campo..
Ele que faz o form usuário fechar.

Para testar o restore tem que abrir o banco sem pressionar a tecla shift.. os códigos que sao executados pela macro autoexec sao essenciais para isto.

Cumprimentos.

Bom dia, Piloto
Tão simples e eu aqui fuçando tudo procurando.
Desmarquei o campo na tabela e:

Funcionou tudo agora. Todos os tipos de backup e todos os tipos de restore, no access 2003.

Agora vou pesquisar a sequencia de restore para assimilar bem a automação dele.

Quando tiver bem assimilado vou tentar ver se consigo desmarcar aquele campo na tblDescRede

E, por último, vou tentar adaptar para o access 2007 pois como você disse, todo mundo tá usando e mais dia
menos dia terei que converter o meu aplicativo para ele, independente da feiura dos formulários.

Te perturbei muito até chegar aqui, né?
Mas aprendi mais algumas coisas.
Grato e um bom dia

Resumindo.. este campo na tblDeascRede é o que faz o usuário ser desconectado... Então tem que após efetuar a restauração desmarcá-lo.

Para 2007 os códigos serão os mesmos...

Sucesso!

É isto que estou pensando.
Um código que desmarque após o restoure ou durante o backup.

Boa noite, Piloto.
Pesquisando a sequencia do restore vi que passei batido em uma das formas.
Quando faço um backup em pendrive, sem compactar, ao tentar fazer o restore tá dando um erro no formulário frmRestaurarBackup,
número 75, linha 0, Erro de acesso a caminho/arquivo.
Na caixa de texto de Backup selecionado manualmente o caminho está correto.
Procurei no código e não encontrei.
Pode me dar uma idéia do porque?
Quando penso que não vou mais te perturbar acontece isto.
Vou verificar as outras formas.
Obrigado.

Simples..

Uma sub:

Sub DesmarcaRestaura()
'-----------------------
'Declaração de variáveis
'-----------------------
Dim Db   As DAO.Database
Dim ws   As DAO.Workspace
'----------------------------------------------
'Seta o Banco de dados, Workspace e o recordset
'----------------------------------------------
Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(DirBancoDados, False, False, "MS Access;PWD=senha")
'-------------------------------------------------------------------
'abre novamente o frmAvisoDesconexao na estação que efetua o backup
'-------------------------------------------------------------------
DoCmd.OpenForm "frmAvisoDesconexao", , , , , acHidden
    '-------------------------------------------------------------------------
    'Marca o cpStatusRede na tblDescRede para não para que o sistema possa ser
    'acessado novamente nas estações de trabalho
    '-------------------------------------------------------------------------
    Db.Execute "UPDATE tblDescRede SET CpStatusRede = 0"
'--------------------------
'Encerra a conexão do banco
'--------------------------
Db.Close
ws.Close
Set Db = Nothing
Set ws = Nothing
End Sub

No final de cada código de restauração
Antes do tratamento de erro.

Observe que a restauração é feita cada uma por seu respectivo código

Aplique:

Me.DesmarcaRestaura

Vou atualizar o Exemplo no repositório

Mas antes de fazer a restauração eu abro a tabela e desmarco manualmente.
E só dá estes erros para os backups não compactados.
Os compactados ainda não deram erros.
Grato

Que erros amigo?

Todo tipo de Restauraçào feita.. marca o campo na tabela..

Tem que utilizar este código ao final de cada sub de restauração

Quando faço um backup, sem compactar, ao tentar fazer o restore tá dando um erro no formulário frmRestaurarBackup,
número 75, linha 0, Erro de acesso a caminho/arquivo.
Na caixa de texto de Backup selecionado manualmente o caminho está correto.
Procurei no código e não encontrei.

A restauração do arquivo compactado não marca na tabela e nem dá o erro acima.

Faltava na sub no case 5 comando para apagar o back-End na pasta \base\ e adicionar o caminho da copia na variável
StrDestino.

Ja aplicado o código que desmarca o campo na tblDescRede.

Aqui ta Ok..

Teste exaustivamente ai.

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

Cumprimentos.

Tá dando o erro 404

Enquanto isto estou testando todas as possibilidades no outro que tenho.

Logo mais ja estará disponível

Cumprimentos.

Bom dia, Piloto.
Obrigado pelo arquivo. Já baixei e estou testando, então pensei, vou abusar da sua paciência e colocar os erros à medida que forem aparecendo e não todos de uma vez. Antes de testar outras opções vou tentar, com a sua ajuda, resolver primeiro antes de continuar.
Então vamos lá:

1 - Backup com todas as opções desmarcadas: Ok (é feito o backup do arquivo .mdb na pasta backup do sistema)

2 - Restore somente com o Último Arquivo de Backup gerado, demais opções desmarcadas: O restore é efetuado mas dá uma mensagem de erro

3420, Linha: 520
Erro gerado no frmRestauraBackup
No procedimento RestauraBackupPasta
Erro Número: 3420
Linha: 520
Descrição: o objeto não é válido ou não está definido. Por favor contate.....

Na linha 520 tem "Me.DesmarcaRestaura"

Obrigado novamente,

ë no código que desmarca a tabela tblDescRede...

Depois vejo isto..

Aprendeu colocar pontos de interrupção..
Se consegue colocar.. coloque na função que desmarca a tabela e veja em qual linha desta função ocorre o erro.

Cumprimentos.

Ainda não aprendi.

Em Sub DesmarcaREstaura()?

Em cada linha coloco o ponto e abro a janela de verificação imediata e
insiro ? DesmarcaRestaura() e em todas as linhas dá o erro Subscrito fora do intervalo. Ou seja não entendi
nada. Mas vou estudar mais a respeito. Devo estar fazendo errado.
Grato

Na sub DesmarcaRestaura exclua as linhas:

'--------------------------
'Encerra a conexão do banco
'--------------------------
Db.Close
ws.Close
Set Db = Nothing
Set ws = Nothing

Como ao terminar o backup o formulário é fechado não necessita setar as variáveis do banco de dados.

Cumprimentos.

Funcionou.
Então é por isto que a mensagem aparece após o término do processo de restauração. Ela é feita e quando o formulário fecha a mensagem
aparece.
Depois de feito parece tão óbvio. É dose.
Tô tentando com os pontos de interrupção. Mas ainda não encontrei explicação que dê para eu entender. Vou continuar.

Bom, vou para a próxima etapa.
Obriagdo.

Continuando com os testes ainda com as mesmas opções de backup e restore (ou seja, todas as opções desmarcadas)

Ao fazer vários backups e depois um restore, o aplicativo estava restaurando a data mais antiga ao invés da data mais nova.
Na minha mensagem anterior (número 115) falei que tinha achado algo estranho mas não conseguia saber o que era, então
creio que descobri.
Como estou fazendo o backup "com a mesma data" a função "Function VerificaDataArq(Diretorio)" compara dia, mês e ano e como são
iguais pega o primeiro.
Fiz uma alteração na linha:
dtData = Format(Arquivo.DateCreated, "dd-mm-yyyy")
Para
dtData = Format(Arquivo.DateCreated, "dd-mm-yyyy h:mm")

Assim a função compara dia, mês, ano, hora e minuto.
Testei e funcionou. O restore está pegando o arquivo de backup mais novo.

Vamos para a próxima etapa.
Grato.

Continuando com os testes:
Agora no dropbox:

Percebi que 2 backups dentro da mesma hora não funciona, pelo mesmo motivo de pegar dia, mês e ano.
Alterei o dtData, para os backups também para o formato:"dd-mm-yyyy h:mm" e funcionou.
Teste de backup descompactado e compactado: ok
Teste de restore descompactado e compactado: ok (para este pegando sempre a data mais recente)

Próxima etapa,
Obrigado.

Mais testes no Dropbox
Depois das alterações do formato de data todos os restores funcionaram também.

Na restauração de backups compactados, se usar a opção de "Selecionar outro backup" não é necessário marcar a
caixa "Descompactar com winrar" pois o restore fará a descompactação automaticamente, detectando que o arquivo tem a
exentensão .rar.
Abraços

Vamos por parte...

Detalhe novamente o primeiro problema.

Cumprimentos.

Desculpe não havia percebido que voce resolveu...

Estou gostando da sua linha de raciocinio e como estás a consegui resolver alguns detalhes.

Vou aplicar estas correções no meu.

Cumprimentos.

Observe que ao selecionar o Backup manualmente... se qualquer das opções estiver marcada o código desmarcas as chkBox's automaticamente...

A seleção se mdb, se rar... acontece na janela de dialógo na combo onde seleciona o tipo de arquivo... percebeu?

Bom dia, Piloto

Eu havia percebido sim. Minha mensagem foi mais uma constatação e não o relatar de um problema pois a idéia de automatizar facilita
para o usuário. Se tivesse que marcar e o usário se esquecesse iria ter que ter todo um tratamento de erro.

Por enquanto parece que está tudo correndo perfeitamente. Continuo fazendo testes com cada opção e cada modo, tanto de backup quanto
de restore e não tive erro nenhum.

Mas existe uma dúvida que já pensei bastante por aqui e ainda não consegui sanar.
É quanto à instalação do dropbox e suas pastas.
Note que no meu caso, o dropbox se instala automaticamente na pasta C:\Documents and Settings\Marcelo\Meus documentos\Dropbox\Public
O environ pega C:\Documents and Settings\Marcelo........\Dropbox\Public
Assim fica faltando a pasta Meus documentos
Como não tenho outro computador para testar veio a dúvida se todas as instalações do windows xp são assim.

Uma outra pessoa que não entendesse nada de access e que fosse usar o BackupRestaura ficaria impedido.

Obrigado

Basta na função que instala o drop.. acrescentar a pasta meus documentos no código
"Meus Documentos\DropBox\Public"


Cumprimentos.

Ok, isto eu já tinha pensado.
Eu me referi a se toda instalação do windows xp é com esta pasta.
Mas quanto eu tiver oportunidade de ver outro XP eu verifico.

Isto me alertou porque você tem o XP e pelo que parece não tem esta pasta pois tive que alterar aqui e no seu estava instalado.
Grato

Não tenho o XP... O Meu é o Win 7 64 bits..

Mas devo instalar hoje em um pc com o XP...
Te aviso em qual pasta instalou o drop.


Cumprimentos.

Ok, obrigado.

Boa noite, meu amigo.

Fiz vários testes tanto com backup quanto com restore, em todas as formas, e tudo funcionou.
(Na verdade falta um somente que seria desinstalar o dropbox e instalar usando o aplicativo)

Agora a noite pensei em testar dentro do meu aplicativo.
Dividí o meu banco de dados.
Como primeiro testes simplesmente alterei o caminho do Be do seu aplicativo para o meu Be e funcionou.
Depois importei tudo do seu aplicativo para o meu, respeitando o que era Be e o que era Fe.
Ao abrir dá

Erro de compilação:
Tipo incorreto: era esperada matriz ou tipo definido pelo usuário
E marca a palavra "seq" no mdlCaminhoBE
Na ajuda do access não tem nada, tá em branco.

Tentei colocando o formulário Leia-me como formulário de inicialização mas também dá o mesmo erro.

Poderia me fazer mais esta gentileza de explicar o porque ou o que tenho que fazer?

Obrigado.

Veja as referencias que estão marcadas no meu e ative as mesmas no teu.

Quanto ao drop... preferi ao instala-lo pelo programa sugerir que o usuario coloque a pasta em c:
pois no xp que testei a pasta meus documentos ficam em outro HD...

Como cada profissional tem sua forma de instalar o windows e aplicar a pasta de usuarios no proprio HD ou em HD particionado.. creio ser melhor surgerir ao usuario que instale o drop em um local simples e comum.

Hoje estou saindo em viagem para tratamento de saúde.. ficarei ausente por 8 dias.


Cumprimentos.

Bom dia, Piloto

Espero e torço pelo sucesso em seu tratamento de saúde e volte revigorado.


As referencias são as mesmas, já tinha verificado. Além do mais fiz o inverso também. Importei do meu aplicativo para o seu e dá o mesmo erro.

Quanto à solução do dropbox é uma boa idéia. Vou testar no windows 7 com office 2007 depois e te falo.

Obrigado e boa sorte.