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

    M2013
    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
    • Mensagem nº1

    [Resolvido]Desvincular Tabelas Empty [Resolvido]Desvincular Tabelas

    Mensagem  M2013 13/2/2015, 13: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
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº2

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

    Mensagem  Avelino Sampaio 13/2/2015, 14: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 vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    M2013
    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
    • Mensagem nº3

    [Resolvido]Desvincular Tabelas Empty [Resolvido]Desvincular Tabelas

    Mensagem  M2013 23/2/2015, 08:06

    Perfeito Avelino ! Muito obrigado.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 26/4/2024, 19:23