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

    Formulário especial Backup com escolha de local e recuperação simples

    comjardel
    comjardel
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 25/03/2011

    Formulário especial Backup com escolha de local e recuperação simples Empty Formulário especial Backup com escolha de local e recuperação simples

    Mensagem  comjardel 4/6/2011, 03:20

    Olá pessoal, essa é minha primeira contribuição. Sou novo no ramo da programação mas adoro o Maximo Access.

    Estou postando para voces um sistema simples e direto que faz backup se forma muito simples.
    Para adaptar basta modificar o nome em vermelho para o nome do seu banco e para recuperar é só renomear o arquivo de backup inserindo a extenção ".accdb" no final do nome.

    Comentem!

    Function BackBD()
    On Error Resume Next
    Dim CopiaSegura As Object
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.Path & "\backup.accdb ou .mdb", Caminho & "backup sistema" & Format(Now, "_ddmmyyyy") 'nome do seu banco de dados com extenção'
    End Function

    sunny cheers sunny


    Última edição por comjardel em 9/6/2011, 20:40, editado 2 vez(es)

      Data/hora atual: 14/6/2021, 06:46