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


    Exportar e importar dados de tabelas e bds iguais mas armazenados em locais diferentes

    avatar
    erilioaraujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/01/2012

    Exportar e importar dados de tabelas e bds iguais mas armazenados em locais diferentes Empty Exportar e importar dados de tabelas e bds iguais mas armazenados em locais diferentes

    Mensagem  erilioaraujo em 22/1/2019, 15:11

    Alguém tem uma função  para exportar  e importar dados de tabelas  e bds iguais mas  armazenados em locais diferentes, tipo um backup mas somente das tabelas?
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Exportar e importar dados de tabelas e bds iguais mas armazenados em locais diferentes Empty Re: Exportar e importar dados de tabelas e bds iguais mas armazenados em locais diferentes

    Mensagem  crysostomo em 2/2/2019, 17:15

    Public Function BackBD()
    'elaborado por: JPaulo - 11/10/2006
    'objectivo: criar (1) uma copia de segurança por mês
    ' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
    'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
    'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
    ' à MDB da cópia.

    Dim CopiaSegura As Object
    Dim Caminho As String
    Caminho = "C:\Backup Sistema ASCP - Controle de Estoque\Backup" 'Nome da pasta e nome de inicio para o banco de backup
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.path & "\ASCP Controle de Estoque - Modificado.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
    End Function

    'Ao clicar em sair salva o BD
    Private Sub Botão_Sair_Click()
    If MsgBox("Deseja Sair do Sistema? ", vbYesNo, "Aviso de Saída") = vbYes Then
    Call BackBD
    Quit acQuitSaveAll
    End If
    End Sub

      Data/hora atual: 25/5/2019, 21:05