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]botão para backup

    Compartilhe

    sanderba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/08/2016

    [Resolvido]botão para backup

    Mensagem  sanderba em Ter 29 Ago 2017, 11:03

    amigos estou com esse codigo para criar um backup do bd numa pasta da rede mas esta dando um erro de compilação 76 e diz "caminho não encontrado".alguem poderia me ajudar? Ele aponta para o que esta sublinhado

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

    source = "\\10.32.16.3\s4\ferrantentaria\FERRAMENTARIA\Cadastro de ferramentas.mdb"
    destine = "\\10.32.16.3\s4\BEI\Pastas pessoais\PINHEIRO"

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]botão para backup

    Mensagem  ahteixeira em Ter 29 Ago 2017, 11:45

    Olá,
    A pasta destino existe?

    Tente assim:
    destine = "\\10.32.16.3\s4\BEI\Pastas pessoais\PINHEIRO\"

    Abraço

    sanderba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/08/2016

    Re: [Resolvido]botão para backup

    Mensagem  sanderba em Ter 29 Ago 2017, 12:47

    existe sim, mudei e continua a mesma coisa.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]botão para backup

    Mensagem  ahteixeira em Ter 29 Ago 2017, 15:24

    Olá Alex,
    Você quer copiar um ficheiro e não uma pasta (folder)
    E também falta a extensão do arquivo copiado.

    Altere estas duas linhas e teste:
    Código:
    destine = destine & yearstr & monthstr & daystr & ".mdb"
    fso.CopyFile source, destine, True

    Abraço

    sanderba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/08/2016

    Re: [Resolvido]botão para backup

    Mensagem  sanderba em Ter 29 Ago 2017, 20:33

    obrigado amigo funcionou perfeitamente.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]botão para backup

    Mensagem  ahteixeira em Qua 30 Ago 2017, 00:38

    Olá Alex,
    Obrigado pelo retorno.
    O fórum agradece.
    Abraço

      Data/hora atual: Qua 22 Nov 2017, 20:17