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]Backup Automático no Access

    avatar
    alunoaccess
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2023

    [Resolvido]Backup Automático no Access Empty [Resolvido]Backup Automático no Access

    Mensagem  alunoaccess 30/10/2023, 20:28


    Olá amigos;

    Tenho o meu projeto dividido em front-end e back-end.

    Arranjei um código para fazer backup automático da bd que tem as tabelas e funciona muito bem. O código consiste em a construção de um módulo com a função para o efeito. Depois, ao fechar o painel principal, na opção fechar o formulário, ao fazer clique é chamada a função. O programa fecha e a cópia é efetuada.

    A cópia fica com o nome que eu dei e com a data.

    O que acontece é que as cópias vão sendo criadas na pasta da base de dados nas datas em que foram criadas.

    O que eu queria era que dentro da pasta, tivesse por exemplo a pasta backup, e as cópias ficavam dentro dessa pasta, separadas do resto.

    Deixo abaixo o código e agradeço a quem me possa ajudar.

    Obrigado

    MODULO:
    Public Function CreateMyBackup() As Boolean
    Dim Source As String
    Dim Target As String
    Dim a As Integer
    Dim objFSO As Object
    Dim Path As String
    Path = CurrentProject.Path 'get location of current folder
    Source = CurrentDb.Name
    Target = Path & "\BackupAutomatico "
    Target = Target & Format(Now(), "dd-mm-yyyy") & ".accdb"
    ' create the backup
    a = 0
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    a = objFSO.CopyFile(Source, Target, True)
    Set objFSO = Nothing
    End Function

    AO FAZER CLIQUE PARA FECHAR O PROGRAMA:
    Private Sub Form_Close()
    On Error Resume Next
    Call CreateMyBackup
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Backup Automático no Access Empty Re: [Resolvido]Backup Automático no Access

    Mensagem  JPaulo 31/10/2023, 11:28

    Olá

    O código já coloca o backup do banco na pasta BackupAutomatico que tem de estar junto do banco, mas falta ae uma barra invertida no final \.
    Se você quiser direcionar para uma nova pasta, então dentro da pasta BackupAutomatico , terá de criar uma nova pasta de nome Backup e fica ssim;

    Código:
    Target = Path & "\BackupAutomatico\Backup\ "


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup Automático no Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup Automático no Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup Automático no Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    alunoaccess
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2023

    [Resolvido]Backup Automático no Access Empty Re: [Resolvido]Backup Automático no Access

    Mensagem  alunoaccess 31/10/2023, 18:58

    Olá João Paulo;

    A pasta onde está a base de dados é "Limasoftware".

    O nome Backup Automatico refere-se ao nome do backup que fica assim: Backup Autopmático 30-10-2023.

    Na pasta LimaSoftware, criei a pasta Backup que é para onde quero enviar as cópias de segurança.

    [Resolvido]Backup Automático no Access View?usp=sharing

    Penso que agora expliquei melhor.

    Obrigado pela ajuda
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Backup Automático no Access Empty Re: [Resolvido]Backup Automático no Access

    Mensagem  JPaulo 2/11/2023, 12:42

    Código:
    Public Function CreateMyBackup() As Boolean
    Dim Source As String
    Dim Target As String
    Dim a As Integer
    Dim objFSO As Object
    Dim Path As String
    Path = CurrentProject.Path 'get location of current folder
    Source = CurrentDb.Name
    Target = Path & "\Backup\"
    Target = Target & "BackupAutomatico " & Format(Now(), "dd-mm-yyyy") & ".accdb"
    ' create the backup
    a = 0
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    a = objFSO.CopyFile(Source, Target, True)
    Set objFSO = Nothing
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup Automático no Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup Automático no Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup Automático no Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    alunoaccess
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2023

    [Resolvido]Backup Automático no Access Empty Re: [Resolvido]Backup Automático no Access

    Mensagem  alunoaccess 2/11/2023, 18:56

    Muito obrigado.

    cheers cheers cheers
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Backup Automático no Access Empty Re: [Resolvido]Backup Automático no Access

    Mensagem  JPaulo 3/11/2023, 10:45

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup Automático no Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup Automático no Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup Automático no Access Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Backup Automático no Access Empty Re: [Resolvido]Backup Automático no Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/7/2024, 13:33