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

2 participantes

    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 : 116
    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 : 4487
    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 : 116
    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

      Data/hora atual: 26/9/2021, 11:46