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

    102 códigos vba - Copiar todas tabelas do BD

    Compartilhe

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    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

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3674
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    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: Sab 25 Nov 2017, 00:03