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

    [Resolvido]Deletar todas tabelas com 01 critério

    Compartilhe

    egnaldo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/03/2012

    [Resolvido]Deletar todas tabelas com 01 critério

    Mensagem  egnaldo em Sex 09 Mar 2018, 10:38

    Bom dia, tenho uma duvida de como fazer para deletar todas tabelas de um sistema execto as que começam com TBL_
    algo assim :

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    For Each tdf In db.TableDefs
    If Not (tdf.Name Like "MSys*") And tdf.Name Like "TBL_*" Then
    DoCmd.DeleteObject acTable, tdf.Name
    End If
    Next

    neste código apaga todas que começam com TBL_
    mas gostaria de deletar todas execto as que tem o nome iniciado por TBL.
    agradeço uma ajuda desde já, aguardo.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6723
    Registrado : 05/11/2009

    Re: [Resolvido]Deletar todas tabelas com 01 critério

    Mensagem  Alexandre Neves em Sab 10 Mar 2018, 16:02

    Boa tarde
    If Not (tdf.Name Like "MSys*") And Not tdf.Name Like "TBL_*" Then


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    egnaldo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/03/2012

    Re: [Resolvido]Deletar todas tabelas com 01 critério

    Mensagem  egnaldo em Sab 10 Mar 2018, 19:18

    Boa tarde Alexandre, joia é isso mesmo, obrigado!

      Data/hora atual: Sex 25 Maio 2018, 19:41