MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Botão para fazer backup do banco de dados

    avatar
    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Botão para fazer backup do banco de dados Empty [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  Rosalvo Risso em 8/6/2016, 17:28

    Olá a todos!
    Me desculpem por criar um novo tópico sobre um assunto que já foi questionado e já resolvido aqui. Só que infelizmente ainda não foi o suficiente para meu precário entendimento.
    O que desejo é criar um botão em um formulário para poder fazer o backup do meu banco de dados. Agradeço desde já a boa vontade e paciência de todos. Muito obrigado!

    Eu usei esse código mas apresenta o seguinte erro:

    Erro em tempo de execução '76':
    caminho não localizado

    Private Sub Comando125_Click()
    Dim source As String
    Dim destine As String
    Dim fso As Variant

    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"
    destine = "C:\Users\ROSALVO\Documents\SUPERPET\PASTABACKUP"

    Set fso = CreateObject("Scripting.FileSystemObject")
    yearstr = Year(Date)
    monthstr = Month(Date)
    daystr = Day(Date)
    If monthstr < 10 Then
    monthstr = "0" & monthstr
    End If
    If daystr < 10 Then
    daystr = "0" & daystr
    End If
    destine = destine & yearstr & monthstr & daystr
    fso.CopyFolder source, destine, True
    Set fso = Nothing
    MsgBox "O Banco de dados foi salvo"
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  FabioPaes em 11/6/2016, 02:50

    Amigo, recomendo este utilitario de Backup:
    https://www.maximoaccess.com/t25056-backup-interativo

    Mas sobre o erro que apresenta possivelmente é aqui o Erro:
    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"

    Mude para:

    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1.accdb"

    Observe que vc deve especificar nao so a pasta de onde esta o aplicativo, mas tambem o Nome.extensao do aplicativo que pode ser nomeapp.accdb nomeapp.mdb...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Botão para fazer backup do banco de dados Empty Agradecimento

    Mensagem  Rosalvo Risso em 13/6/2016, 13:52

    Muito obrigado Fábio. Correu tudo certinho. Valeu mesmo, um grande abraço!
    avatar
    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    [Resolvido]Botão para fazer backup do banco de dados Empty Nao consegui usar o exemplo do Backup

    Mensagem  GilsonSoares em 26/7/2016, 20:08

    Boa tarde Amigo FabioPaes!


    Pegando o gancho do nosso amigo, tbem to com problema
    quando seleciono o local do destino ele aparece um erro no módulo (Erro de Compilação: O Tipo definido pelo usuário não foi definido)
    e quando clico no backup ele começa mas dá o seguinte erro: (O Arquivo nao foi localizado!) e já troquei o nome do sistema
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  FabioPaes em 26/7/2016, 21:28

    Erro de Referencia do VBA amigo...

    So nao da pra lhe dizer qual... pq to celular. Mas e algo do tipo Microsoft office xxx...
    Sendo xxx a versao office.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  GilsonSoares em 26/7/2016, 21:42

    Office 2010 plus
    avatar
    carlosbell10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 04/10/2016

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  carlosbell10 em 3/1/2017, 14:54

    desculpe to reabrindo esse topico, mais é que eu usei esse codigo e esta dando erro  em         yearstr =

    variavel nao definida, alguem pode me dizer o que estou fazendo errado, usei esse codigo


    Dim source As String
    Dim destine As String
    Dim fso As Variant

    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"
    destine = "C:\Users\ROSALVO\Documents\SUPERPET\PASTABACKUP"

    Set fso = CreateObject("Scripting.FileSystemObject")
    yearstr = Year(Date)
    monthstr = Month(Date)
    daystr = Day(Date)
    If monthstr < 10 Then
    monthstr = "0" & monthstr
    End If
    If daystr < 10 Then
    daystr = "0" & daystr
    End If
    destine = destine & yearstr & monthstr & daystr
    fso.CopyFolder source, destine, True
    Set fso = Nothing
    MsgBox "O Banco de dados foi salvo"
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  FabioPaes em 3/1/2017, 18:41

    Terá que declará as variaveis envolvidas...

    Como por exemplo:

    yearstr
    monthstr
    daystr


    Essas podem ser declaradas como Integer.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    carlosbell10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 04/10/2016

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  carlosbell10 em 3/1/2017, 19:12

    desculpe eu sou novo como faço para declarar as variaveis?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  FabioPaes em 3/1/2017, 22:19

    Aqui esta a declaração de algumas variaveis no codigo:

    Dim source As String
    Dim destine As String
    Dim fso As Variant


    De sequencia, com as faltantes:

    Dim yearstr, monthstr, daystr as Integer


    Ficará assim:

    Código:
    Dim source As String
    Dim destine As String
    Dim fso As Variant
    Dim yearstr, monthstr, daystr as Integer

    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"
    destine = "C:\Users\ROSALVO\Documents\SUPERPET\PASTABACKUP"

    Set fso = CreateObject("Scripting.FileSystemObject")
    yearstr = Year(Date)
    monthstr = Month(Date)
    daystr = Day(Date)
    If monthstr < 10 Then
    monthstr = "0" & monthstr
    End If
    If daystr < 10 Then
    daystr = "0" & daystr
    End If
    destine = destine & yearstr & monthstr & daystr
    fso.CopyFolder source, destine, True
    Set fso = Nothing
    MsgBox "O Banco de dados foi salvo"


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1224
    Registrado : 07/12/2011

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  tauron em 3/1/2017, 22:47

    Ola, por favor me corrijam se eu estiver errado mas, a linha no código apresentado neste topico, abaixo está correta?

    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1"


    ou seria:

    source = "C:\Users\ROSALVO\Documents\SUPERPET\Database1.accdb"
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    Registrado : 23/01/2018

    [Resolvido]Botão para fazer backup do banco de dados Empty Re: [Resolvido]Botão para fazer backup do banco de dados

    Mensagem  crysostomo em 21/4/2020, 01:38

    nao encontra caminho
    Código:
    Private Sub Form_Close()
    Dim source As String
    Dim destine As String
    Dim fso As Variant
    Dim yearstr, monthstr, daystr As Integer

    source = "C:\teste.accdb"
    destine = "C:\backup"

    Set fso = CreateObject("Scripting.FileSystemObject")
    yearstr = Year(Date)
    monthstr = Month(Date)
    daystr = Day(Date)
    If monthstr < 10 Then
    monthstr = "0" & monthstr
    End If
    If daystr < 10 Then
    daystr = "0" & daystr
    End If
    destine = destine & yearstr & monthstr & daystr
    fso.CopyFolder source, destine, True
    Set fso = Nothing
    MsgBox "O Banco de dados foi salvo"

    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 21/9/2020, 20:49