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

    [Resolvido]Backup de Tabelas II

    Compartilhe
    avatar
    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.
    avatar
    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.
    avatar
    Maicon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    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: Sex 18 Ago 2017, 02:19