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 : 18
    Registrado : 11/03/2012

    [Resolvido]Deletar todas tabelas com 01 critério

    Mensagem  egnaldo em 9/3/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 : 6853
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 10/3/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 : 18
    Registrado : 11/03/2012

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

    Mensagem  egnaldo em 10/3/2018, 19:18

    Boa tarde Alexandre, joia é isso mesmo, obrigado!

      Data/hora atual: 17/8/2018, 21:48