MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]botão para backup

    avatar
    sanderba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]botão para backup Empty [Resolvido]botão para backup

    Mensagem  sanderba 29/8/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]botão para backup Empty Re: [Resolvido]botão para backup

    Mensagem  Alvaro Teixeira 29/8/2017, 11:45

    Olá,
    A pasta destino existe?

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

    Abraço
    avatar
    sanderba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]botão para backup Empty Re: [Resolvido]botão para backup

    Mensagem  sanderba 29/8/2017, 12:47

    existe sim, mudei e continua a mesma coisa.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]botão para backup Empty Re: [Resolvido]botão para backup

    Mensagem  Alvaro Teixeira 29/8/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
    avatar
    sanderba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]botão para backup Empty Re: [Resolvido]botão para backup

    Mensagem  sanderba 29/8/2017, 20:33

    obrigado amigo funcionou perfeitamente.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]botão para backup Empty Re: [Resolvido]botão para backup

    Mensagem  Alvaro Teixeira 30/8/2017, 00:38

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

    Conteúdo patrocinado


    [Resolvido]botão para backup Empty Re: [Resolvido]botão para backup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:00