MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Backup de Tabelas II

    Compartilhe

    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

    Backup de Tabelas II

    Mensagem  Nivaldo em Qua 07 Jul 2010, 02:31

    Boa noite a todos,

    O código abaixo do JPaulo (que peguei aqui no Forum) realiza backup somente das tabelas:

    Public Function BackupTabelas()
    'By JPaulo ® Maximo Access
    Dim MinhasTabelas As TableDefs
    Dim strTabelas, strEnviaTabelas, strCaminho
    On Error Resume Next
    Set MinhasTabelas = CurrentDb.TableDefs
    For i = 0 To (MinhasTabelas.Count - 1)
    strTabelas = MinhasTabelas(i).Name
    If Left(MinhasTabelas(i).Name, 4) <> "MSys" Then
    strEnviaTabelas = MinhasTabelas(i).Name
    strCaminho = "c:\teste.accdb"
    On Error Resume Next
    DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
    End If
    Next
    End Function


    Funciona que é uma beleza.

    Porém a função faz backup de todas as tabelas.

    Teria uma forma de alterar o código para fazer backup de somente 02 ou 03 tabelas do bd???

    Já tentei algo do tipo:

    TableDefs(0)

    TableDefs("name")

    TableDefs![name]

    Más infelizmente não deu certo.

    Nivaldo.

    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

    Re: [Resolvido]Backup de Tabelas II

    Mensagem  Nivaldo em Sex 09 Jul 2010, 00:08

    Olá Pessoal,

    Como preciso somente do backup de 03 tabelas, resolví da seguinte forma:

    Public Function BackupTabelas()
    'By JPaulo ® Maximo Access

    Dim strTabela1, strTabela2, strTabela3, strCaminho
    On Error Resume Next
    strTabela1 = "tabela1"
    strTabela2 = "tabela2"
    strTabela3 = "tabela3"
    strCaminho = "c:\teste.accdb"
    On Error Resume Next
    DoCmd.CopyObject strCaminho, strTabela1 & Now(), acTable, "tabela1"
    DoCmd.CopyObject strCaminho, strTabela2 & Now(), acTable, "tabela2"
    DoCmd.CopyObject strCaminho, strTabela3 & Now(), acTable, "tabela2"
    End Function


    Nivaldo.

    Maicon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 08/09/2012

    Valeu Fera

    Mensagem  Maicon em Qua 16 Abr 2014, 17:43

    só fera que resolve o próprio problema e posta para os demais , valeu !

      Data/hora atual: Dom 04 Dez 2016, 14:15