[Resolvido]Back-up no Maestro

Boa tarde, a Todos

Gostaria de saber o que devo fazer para que a rotina de back-up faça uma cópia do back-end e não do front-end? no Maestro.

Atenciosamente,

Adilson

Olá Adilson
O que é "Maestro"?

É um programinha desenvolvido com a opção de backup você encontra ele no site

www.usandoaccess.com.br


Adilson

Não conhecia... parece interessante, mas ainda uso o 2003.
Desculpe entrar no tópico fora do do teu assunto.
Valeu!

Amigão, veja a vídeo-aula do Avelino, seguindo ela não dá erro...

Veja aqui:
http://www.usandoaccess.com.br/tutoriais/tuto14.asp?id=1#inicio

Estive falando com Avelino.

Ele me passou mudanças para o back-end, mas só que o que acontece é que ele utiliza a tabela caminhobe da rotina dele de atualização do caminho do back-end e estou usando outra rotina que ele me passou diferente da do site dele, pois a dele só atualiza manulamente.

A que tenho atualiza o caminho do back-end uma unica vez e não precisa mais ser feito. Portanto a rotina do backup está atrelada a tabela caminhobe.

Preciso de uma rotina de backup diferente. Entendeu, amigão?

Adilson

Olha a mensagem que acabei de encontrar na minha caixa de entrada do hotmail enviada pelo Avelino que deu certo. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk.


Olá Adilson


Coloque esta função num módulo global.


Public Function fncLocalBe() As String

Dim strCon As String

Dim strTabelaLink As String

Dim tbl As DAO.TableDef


On Error GoTo trataerro


For Each tbl In CurrentDb.TableDefs

If Len(tbl.Connect & "") > 0 Then strTabelaLink = tbl.Name

Next

'-----------------------------------------------------

'Vou usar a última tabela vinculada, para obter

'o caminho do back-end (propriedade Connect).

'-----------------------------------------------------

strCon = CurrentDb.TableDefs(strTabelaLink).Connect

'-----------------------------------------------------

'Agora vou retirar apenas o caminho do accdb,

'sem o ";DATABASE=" que o precede na string Connect.

'-----------------------------------------------------

fncLocalBe = Right$(strCon, (Len(strCon) - (InStr(1, strCon, ";DATABASE=", 2) + 9)))


sair:

Exit Function

trataerro:

MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext

Resume sair:

End Function



E altere a função do formulário de backup para :

Private Function fncOrigemBackup() As String

fncOrigemBackup = fncLocalBe

End Function


Sucesso!