[Resolvido]Duvida com o sistema de Backup do Exmplo do Avelino

Bem amigos.. esta dúvida é mais direcionada ao Mestre avelino em se tratando de um aplicativo de sua autoria..
Mas toda ajuda é bem vinda...

Ja tinha o Backup funcionando no aplicativo no entando desvinculei totalmente o Front-End não tendo mais tabelas no mesmo.. tudo sendo feito em VBA...

No entando agora o backup necessita de uma linha para checar creio que a conexao do be com o fe...



Private Sub Form_Open(Cancel As Integer)
'----------------------------------------------------------------------------------
'Verifica a presença do programa WinRAR na pasta Arquivos de Programas
'Se não encontrar verifica na pasta Program Files
'Grava o caminho na variável strLocalWinRar para ser usado na chamada do programa
'-----------------------------------------------------------------------------------
If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE") & "") = 0 Then
If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "") > 0 Then
strLocalWinRar = Environ("programFiles")
Else
Me!selWinrar.Enabled = False
End If
Else
strLocalWinRar = "c:\Arquivos de programas"
End If
strCaminho = CurrentDb.TableDefs("Detentos").Connect
Me!txOrigem = fncOrigemBackup
Me!txDestino = fncDestinoBackup
End Sub


como resolver isto visto que não tenho mais tabelas no Front-End?


Grato.

Grande amigo hary, quero só compartilhar algo como voce...
Eu também tenho essa necessidade quanto ao backup do back-end usando o aplicativo do Avelino.
Bem, eu ainda não tentei nada ainda, mas pensei algo: usar o aplicativo separadamente e abrir ele pelo próprio front-end. Assim ele faria a cópia do back-end. Claro que teriamos que alterar um pouco o código para cópiar o back-end no diretório onde ele está... Mas acho que issa é uma boa opção...

Estive a observar todo o código com calma..

strCaminho = CurrentDb.TableDefs("Detentos").Connect


Esta linha extrai todo o caminho do BD, seu nome e senha...

No decorrer do codigo ele extrai as informações parcialmente para uttiliza-las...
Quando o BE for protegido por senha...
Voce poderia alterar colocando direntamente a informação onde requerida... sem utilizar a linha acima...

Como utilizo um arquivo de paramentros exeterno onde contem varias definicioes do BD, como nome, caminho...
Irei aplicar no mesmo a senha.. e ao inver de utilizar esta linha aplicar o arquivo de parametros...

O ideal seria fazer a conexão acima buscado a tabela no Be..

Para resolver esta questão:


Private Sub Form_Open(Cancel As Integer)
Parametros_de_Inicializacao "SysPen.par"
Dim StrCaminhoBD As String
'A variável DirBancoDados apresenta o caminho do Be contido no arquivo externo de parametros,
'Adicionei a mesma em conjunto com o nome do Be na variável StrCaminhoBD
StrCaminhoBD = DirBancoDados & "Syspen_be.Accdb"
'----------------------------------------------------------------------------------
'Verifica a presença do programa WinRAR na pasta Arquivos de Programas
'Se não encontrar verifica na pasta Program Files
'Grava o caminho na variável strLocalWinRar para ser usado na chamada do programa
'-----------------------------------------------------------------------------------

If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE") & "") = 0 Then
If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "") > 0 Then
strLocalWinRar = Environ("programFiles")
Else
Me!selWinrar.Enabled = False
End If
Else
strLocalWinRar = "c:\Arquivos de programas"
End If
'Desabilitei a linha abaixo que era utilizada para extrair as informações do be, mediante o vinculo entre tabelas BexFe
'StrCaminho = CurrentDb.TableDefs("Detentos").Connect
Me!txOrigem = StrCaminhoBD



No evento noTimer:

Na linha que refeferencia a senha no be:

If fncProtegido = True Then
Dim objws As Object
Set objws = CreateObject("wscript.shell")
'Desabilitei a linha seguinte aplicando em seguida a senha contida no arquivo externo de parâmetros
'objws.SendKeys fncCapturaSenha, True '"a1234"
objws.SendKeys SenhaBD
objws.SendKeys "{ENTER}"
Me!txDestino = fncDestinoBackup
End Sub



Grato pela atenção.

Opa! Essa eu vou copiar e usar!
Forte abraço amigão!