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


    Backup de Tabelas

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

    Respeito às regras : Respeito às Regras 100%

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

    Backup de Tabelas Empty Backup de Tabelas

    Mensagem  fernando rodrigo zanchini 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 : Respeito às Regras 100%

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

    Backup de Tabelas Empty Re: Backup de Tabelas

    Mensagem  Assis 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 : Respeito às Regras 100%

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

    Backup de Tabelas Empty Re: Backup de Tabelas

    Mensagem  fernando rodrigo zanchini 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

    Conteúdo patrocinado

    Backup de Tabelas Empty Re: Backup de Tabelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2021, 11:19