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

    102 códigos vba - Copiar todas tabelas do BD

    Compartilhe

    flecha
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 11/01/2012

    102 códigos vba - Copiar todas tabelas do BD

    Mensagem  flecha em Ter 13 Jan 2015, 15:48

    Olá,

    Estou tentando executar através de botão, com a chamada Call, mas esta dando erro de sintaxe na linha For i = 0 to .....

    Código:

    Public Function BackupTabelas()
    'By JPaulo ® Maximo Access
    Dim MinhasTabelas As TableDefs
    On Error Resume Next
    Set MinhasTabelas= CurrentDb.TableDefs
    For i = 0 To MinhasTabelas - 1)
    strTabelas = MinhasTabelas(i).Name
     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


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: 102 códigos vba - Copiar todas tabelas do BD

    Mensagem  Silvio em Ter 13 Jan 2015, 20:22

    Olá....

    strCaminho = "C:\SeuBanco.mdb" onde "C:\nome_do_seu_banco_de_dados.accdb

    Por algum acaso você colocou o nome de seu banco na linha acima que esta em vermelho ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    flecha
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 11/01/2012

    Re: 102 códigos vba - Copiar todas tabelas do BD

    Mensagem  flecha em Ter 13 Jan 2015, 21:47

    Coloquei sim Silvio,
    até alterei para um nome curto e dá o erro de sintaxe,
    achei que era os parenteses da sentença mas não tive sucesso.

    Qual o erro de sintaxe dessa linha

    For i = 0 To MinhasTabelas - 1)
    Original do texto do JPaulo eta assim como acima.
    Eu até coloquei abertura de parenteses após o To ( mas também dá erro.


    Essa dica está nos posts do Administrador.

    [Você precisa estar registrado e conectado para ver este link.]


    Última edição por flecha em Ter 13 Jan 2015, 21:52, editado 1 vez(es) (Razão : Completando o pensamento.)

    flecha
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 11/01/2012

    Re: 102 códigos vba - Copiar todas tabelas do BD

    Mensagem  flecha em Qua 14 Jan 2015, 12:21

    Achei uma dúvida no Forum:
    com a correção do JPaulo, mas não copiou nem deu erro.

    Código:

    Public Function BackupTabelas()
    'By JPaulo ® Maximo Access
    Dim MinhasTabelas As TableDef
    On Error Resume Next
    Set MinhasAtuaisTabelas = CurrentDb.TableDefs
    For I = 0 To (MinhasAtuaisTabelas.Count - 1)
    strTabelas = MinhasAtuaisTabelas(I).Name
    If Left(MinhasAtuaisTabelas(I).Name, 4) <> "MSys" Then
    strEnviaTabelas = MinhasAtuaisTabelas(I).Name
    strCaminho = "E:\Gestão Vendas.mdb"
    On Error Resume Next
    DoCmd.CopyObject strCaminho, strTabelas & Now(), acTable, strEnviaTabelas
    End If
    Next
    End Function

      Data/hora atual: Sex 09 Dez 2016, 03:49