MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Backup de Tabelas

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 18/04/2018

    Backup de Tabelas Empty Backup de Tabelas

    Mensagem  fernando rodrigo zanchini em 5/1/2021, 11:12

    Bom dia
    Gostaria de saber se tem como fazer Backup somente das tabelas e não de todo o Projeto em uma determinada pasta.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    Registrado : 06/11/2009

    Backup de Tabelas Empty Re: Backup de Tabelas

    Mensagem  Assis em 5/1/2021, 12:43

    Fernando  

    Aqui no forum veja ....

    Backup de Tabelas Sem_t167


    .................................................................................
    *** Só sei que nada sei ***

    Robystanley gosta desta mensagem

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 18/04/2018

    Backup de Tabelas Empty Re: Backup de Tabelas

    Mensagem  fernando rodrigo zanchini em 5/1/2021, 15:57

    esta dando erro nesta 2 linhas.

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

      Data/hora atual: 18/1/2021, 20:44