MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Backup ao fechar do formulario Principal

    Compartilhe
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 12/06/2017

    [Resolvido]Backup ao fechar do formulario Principal

    Mensagem  neves1 em 28/2/2018, 13:18

    Bom dia, alguem poderia me dar uma força, obrigado

    Meu Bd esta na pasta igual o da função conforme segue abaixo, não sei pq ficando dando erro:

    Erro em tempo de execução '52'

    Nome ou número de arquivo incorreto.

    Function BackBD()
    Dim CopiaSegura As Object
    Dim Caminho As String
    Caminho = "D:\FOLHA2017\Backup\" 'Nome da pasta e nome de inicio para o banco de backup
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.Path & "D:\FOLHA2017\FOLHA2017.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
    End Function

    Att.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Backup ao fechar do formulario Principal

    Mensagem  CassioFabre em 28/2/2018, 13:56

    Bom dia,

    Altere o trecho destacado:
    Function BackBD()
    Dim CopiaSegura As Object
    Dim Caminho As String
    Caminho = "D:\FOLHA2017\Backup\" 'Nome da pasta e nome de inicio para o banco de backup
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.Path & "\FOLHA2017.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
    End Function

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 12/06/2017

    Re: [Resolvido]Backup ao fechar do formulario Principal

    Mensagem  neves1 em 28/2/2018, 14:29

    Bom dia, obrigado ajudo bastante, pode me tirar mais 1 duvida sobre o arquivo de backup ddmmyyyy é possivel eu usar informações preenchida em 1 caixa de texto ?

    att.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Backup ao fechar do formulario Principal

    Mensagem  CassioFabre em 28/2/2018, 15:50

    Boa tarde,

    Sim, é possível, substituir o trecho destacado:
    CopiaSegura.CopyFile CurrentProject.Path & "\FOLHA2017.accdb", Caminho & Format(SeuTxtData, "_ddmmyyyy") & ".accdb"

    Obs.: notei que não deu resolvido no outro fórum que abriu e nem neste, caso tenha resolvido os problemas, clique no resolvido, caso não, retorne o que houve.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 12/06/2017

    Re: [Resolvido]Backup ao fechar do formulario Principal

    Mensagem  neves1 em 28/2/2018, 18:07

    Obrigado vou tentar adaptar as informações que foram passadas.

      Data/hora atual: 16/8/2018, 16:32