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


4 participantes

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    Mensagem  ARGONZALE 26/9/2019, 15:54

    Prezados, bom dia.

    Posta abaixo parte do código que tirei de um exemplo do mestre Avelino.

    Trata-se de realizar um Backup do Bando de Dados e salvar em outra pasta.

    Porém, esta código salva somente em uma pasta e gostaria que salvasse duas pastas pastas sendo uma no meu PC e outra no Servidor.

    Como ficaria a alteração?

    Segue parte do código:

    Private Function fncDestinoBackup(Optional Destino As String = "local") As String
    Dim strNomeBackEnd As String
    Dim strDestino As String
    On Error Resume Next
    strDestino = Replace(Destino, "local", "C:\Users\alexandre\Desktop\clientes" & "\" & strPrefix & "Backup") 'Trocar o nome da pasta Backup caso queira
    If Len(Dir(strDestino, vbDirectory) & "") = 0 Then FileSystem.MkDir (strDestino)
    strNomeBackEnd = fncNomeBackEnd
    strNomeBackEnd = left(strNomeBackEnd, InStrRev(strNomeBackEnd, ".accdb") - 1)
    strNomeBackEnd = strNomeBackEnd & Format(Date, "dd-mm-yy") & " as " & Format(Time, "hh.mm.ss") & ".accdb"
    fncDestinoBackup = strDestino & "\" & strNomeBackEnd
    End Function


    .................................................................................
    Att.

    Alexandre Gonzales
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty Re: [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    Mensagem  crysostomo 26/9/2019, 19:41

    Faz uma nova função para salvar em outro lugar .
    Ao clicar no botão chama as 2 call


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty Re: [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    Mensagem  DamascenoJr. 26/9/2019, 20:18

    Se não me engano, no formulário que contém este código de backup existe a opção para clicar e selecionar uma nova pasta. Basta fazer isso para apontar um novo caminho e fazer uma nova cópia.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty Re: [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    Mensagem  ARGONZALE 30/9/2019, 18:53

    Boa tarde,

    crysostomo,

    Consegui fazer o backup em duas pastas, uma no Servidor e outra no "C:" conforme sua instrução de criar uma nova função.

    Ivan,

    Realmente existe esta opção para selecionar a pasta de destino mas minha intenção era evitar o clique do mouse e fazer uma rotina automática.

    Obrigado pelo retorno senhores.


    .................................................................................
    Att.

    Alexandre Gonzales
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty Re: [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    Mensagem  crysostomo 1/10/2019, 00:59

    Agradecemos. Estamos aí!
    Sucesso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cesaralvesemail
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 12/01/2014

    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty arquivo de

    Mensagem  cesaralvesemail 8/10/2019, 04:27

    um arquivo de exemplo pode ser?

    Conteúdo patrocinado


    [Resolvido]Salvar Banco de Dados em dois lugares com um clique Empty Re: [Resolvido]Salvar Banco de Dados em dois lugares com um clique

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:58