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 Tabelas Vinculadas com Exceção

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 09/11/2012

    [Resolvido]Deletar Tabelas Vinculadas com Exceção

    Mensagem  =>Nois em Qua 17 Maio 2017, 00:54

    ola,

    Consigo deletar todas as tabelas conectadas ao banco com o codigo abaixo.

    É possivel colocar uma exceção em alguma parte especifica do mesmo, tipo tenho a tbl1, tbl2, tbl3 e tbl4, gostaria de manter a tbl3 e excluir o restante

    Código:
    Private Sub Comando113_Click()
    '------------------------------------
    'Deletar todas as tabelas vinculadas
    '------------------------------------

    Dim tbl As TableDef

    For Each tbl In CurrentDb.TableDefs
      If Len(tbl.Connect & "") > 0 Then

          '-------------------------------------------------------------------

          'Excluir a tabela vinculada, identificada pela presença de valor na

          'propriedade connect

          '-------------------------------------------------------------------
          DoCmd.DeleteObject acTable, tbl.Name
      End If
    Next

    MsgBox "Vínculos Excluídos!", vbInformation, "Aviso"

    End Sub


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 09/11/2012

    Re: [Resolvido]Deletar Tabelas Vinculadas com Exceção

    Mensagem  =>Nois em Qua 17 Maio 2017, 00:57

    achei

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Ter 21 Nov 2017, 10:10