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

    [Resolvido]Desvincular Tabelas

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Desvincular Tabelas Empty [Resolvido]Desvincular Tabelas

    Mensagem  M2013 13/2/2015, 16:57

    Prezados,

    Tenho um banco (front) onde tenho várias tabelas que são anexadas durante todo dia.
    Todas essas tabelas tem início "DD_" , tipo "DD_21042014" e "DD_04022015" etc...

    Estava precisando desvincular (apagar) diariamente  essas tabelas de início "DD_" do meu banco Front.

    Tentei o código abaixo mas não aceita o * (asterisco)

    DoCmd.DeleteObject acTable, "DD_*"

    Alguém poderia ajudar?

    obrigado
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3798
    Registrado : 04/04/2010

    [Resolvido]Desvincular Tabelas Empty Re: [Resolvido]Desvincular Tabelas

    Mensagem  Avelino Sampaio 13/2/2015, 17:44

    Olá!

    Percorrar a coleção das tabelas. Exemplo:


    Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
       If InStr(tbl.Name, "DD_") > 0 Then
           'se a tabela tiver o prefixo DD_, deletar.
           DoCmd.DeleteObject acTable, tbl.Name
       End If
    Next
    'Atualiza a lista de objetos
    Application.RefreshDatabaseWindow


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Desvincular Tabelas Empty [Resolvido]Desvincular Tabelas

    Mensagem  M2013 23/2/2015, 11:06

    Perfeito Avelino ! Muito obrigado.

      Data/hora atual: 5/12/2022, 01:09