MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Esconder e Mostrar tabelas

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Esconder e Mostrar tabelas

    Mensagem  =>Nois em Ter 15 Jul 2014, 20:51

    Estou a utilizar o código abaixo pego aqui no forum - Utilizo o Access 2007 (Esse codigo sim oculta a tabela nem marcando mostrar objetos ocultos aparece) fiz no access 2003 funcionou legal mas no 2007 não

    Function EscondeTabelas()
    Dim Tb As TableDef
    For Each Tb In CurrentDb.TableDefs
    If Not Tb.Attributes And dbHiddenObject Then
    Tb.Attributes = Tb.Attributes Or dbHiddenObject
    End If
    Next
    End Function

    Function MostraTabelas()
    For Each Tb In CurrentDb.TableDefs
    If Tb.Attributes And dbHiddenObject Then
    Tb.Attributes = Tb.Attributes Xor dbHiddenObject
    End If
    Next
    End Function




    Não estava funcionando, então dei uma mexida no código no esconder tabelas e funcionou no entanto o mostrar tabelas não consegui arrumar...

    Function EscondeTabelas()
    Dim Tb As TableDef
    For Each Tb In CurrentDb.TableDefs
    If Not dbHiddenObject Then
    Tb.Attributes = dbHiddenObject
    End If
    Next
    End Function


    agradeço a atenção!


    Última edição por noisnafita em Ter 05 Ago 2014, 19:12, editado 1 vez(es)


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

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Esconder e Mostrar tabelas

    Mensagem  formiga10x em Ter 15 Jul 2014, 21:04

    Importe este módulo para o teu projeto e faça a chamada.
    Abraço e sucesso.
    Anexos
    Esconde_E_MostraTabelas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 14 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Esconder e Mostrar tabelas

    Mensagem  =>Nois em Ter 15 Jul 2014, 21:09

    olá!

    é o mesmo código que vc me enviou

    esta dando erro nessa linha


    Tb.Attributes = Tb.Attributes Xor dbHiddenObject


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

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Re: [Resolvido]Esconder e Mostrar tabelas

    Mensagem  daniloreiis em Ter 15 Jul 2014, 21:13

    Boa tarde meu amigo:
    teste aqui e funcionou coloque os códigos em botões:

    Código:

    Private Sub Comando0_Click()
    'MOSTRA
    For Each Tb In CurrentDb.TableDefs
    If Tb.Attributes And dbHiddenObject Then
    Tb.Attributes = Tb.Attributes Xor dbHiddenObject
    End If
    Next
    End Sub

    Private Sub Comando1_Click()
    'ESCONDE
    Dim Tb As TableDef
    For Each Tb In CurrentDb.TableDefs
    If Not dbHiddenObject Then
    Tb.Attributes = dbHiddenObject
    End If
    Next
    End Sub



    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Esconder e Mostrar tabelas

    Mensagem  =>Nois em Ter 15 Jul 2014, 21:39

    Engraçado criei um bd novo e fiz conforme as orientações que me passaram e funcionou direitinho

    agora no meu banco atual continua dando erro.

    vou importar todos os dados para um novo banco e testar dai retorno

    por hora muito obrigado!


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

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

      Data/hora atual: Qua 07 Dez 2016, 08:36