[Resolvidos]Ocultar-esconder consultas

Grandes Mestres Boa tarde.

Com estes dados num Botão de comando consegue-se esconder todas as TABELAS.

Como seria para esconder as Consultas ?


If MsgBox("Selecione a Opcção Pretendida ! ", vbYesNo + vbQuestion, "Pergunta") = vbYes Then
DoCmd.SetWarnings False
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
MsgBox "Todas As Tabelas Foram Ocultas. ", vbExclamation, "Aviso "
Else
For Each Tb In Currentdb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
MsgBox "Todas As Tabelas Estão Visíveis. ", vbExclamation, "Aviso "
Exit Sub
End If
Exit Sub

Para consultas só conheço assim;

Function EscondeConsultas()

Dim qdf As QueryDef
For Each qdf In CurrentDb.QueryDefs
If qdf.Name Like "~*" Then
Else
Application.SetHiddenAttribute acQuery, qdf.Name, True
End If
Next qdf

End Function

Ola Assis bom dia.

Consegui desta forma.

Código:

Function EscondeConsultas()
Dim qry As QueryDef
    Dim x As Integer
   
    For Each qry In CurrentDb.QueryDefs
   
        If Left(qry.Name, 1) <> "~" Then
            If Not Left(qry.Name, 4) = "Usys" Then
                qry.Name = "Usys" & qry.Name
            End If
        End If
    Next
End Function

Código:

Function MostraConsultas()
Dim qry As QueryDef
    Dim x As Integer
   
    For Each qry In CurrentDb.QueryDefs
   
        If Left(qry.Name, 1) <> "~" Then
            If Left(qry.Name, 4) = "Usys" Then
                qry.Name = Mid(qry.Name, 5)
            End If
        End If
    Next
End Function

Boa tarde JPaulo

Afinal ficam escondidas até demais, pois depois de escondidas não se consegue abrir os formulários que dependem das consultas.
Obrigado

Boa tarde JPaulo

Será que tem solução

Obrigado

Tem razão, porque alterá-mos o prefix do nome das consultas.

Uma solução é as referencias dos forms terem já o prefix "Usys" das consultas.

Ou o outro code acima, que coloca Oculto o próprio objecto.

Function EscondeConsultas()

Dim qdf As QueryDef
For Each qdf In CurrentDb.QueryDefs
If qdf.Name Like "~*" Then
Else
Application.SetHiddenAttribute acQuery, qdf.Name, True
End If
Next qdf

End Function

Oi pessoal estou acompanho este poste de como ocultar as consultas poderiam explicar como faço para montar no bd?
Grata amandaalves.
Bom final de semana

Olá AmandaAlves1

Já de fim de semana ?

É o seguinte, o poste de ocultar consultas.

Num modulo novo copia e cola a funchão do GRANDE JPaulo.

Function EscondeConsultas()
Dim qdf As QueryDef
For Each qdf In CurrentDb.QueryDefs
If qdf.Name Like "~*" Then
Else
Application.SetHiddenAttribute acQuery, qdf.Name, True
End If
Next qdf
End Function

E num formulário coloca um botão de comando que ao fazer clique

Private seubotao_Click()

Call EscondeConsultas

End Sub

Até sempre

Olá Assis vou tentar, depois retorno para dizer se deu certo, só uma pergunta com as consultas ocultas o bd funciona normalmente?

Olá Amandaalves1


Infelizmento Não até ver.

O Grande Mestre JPaulo ainda não deve ter desistido de o conseguir fazer .... Espero

Boa noite e disponha

Bom Dia Assis e Amanda;

Com esse ultimo os formularios funcionam sim, ele faz apenas o SetHiddenAttribute.

Que é a mesma coisa que pressionar o botão direito do mouse em cima da consulta e marcar Oculta.

Com o outro codigo os formularios não funcionam devido a aplicarmos o prefix "Usys" ao nome, e com esse prefix o sistema esconde.

Oi JPaulo e Assis, obigada novamente pelas dicas, só mais uma curiosidade a respeito do código ele funciona normalmente em qualquer versão do windowns e do officce?
Muito obrigada e um ótimo final de semana, para vocês e suas familias

Olá galera,

Implementei em um botão o código citado pelo Assis no inicio deste tópico como ocultar as tabelas.

O inesperado foi que do total de tabelas, ele deixou de ocultar duas (Por coincidencia as duas mais importantes),

O sistema emitiu a seguinte critica:

"Não foi possível ler as definições. Sem permissão de leitura de definições na tabela ou consulta "MSysACEs"

Quando clico em DEPURAR aparece o código com sombreamento amarelo nesta linha:

Tb.attributes = Tb.attributes or Db hidden MSysACEs

Alguém pode me ajudar.
Tenho que habilitar alguma referência?? ou é outra coisa. Tô de mão atada.

RESOLVIDO:
Pessoal exportei as tabelas para um novo banco e o código funcionou perfeitamente.
Diagnóstico: O banco estava com problema rs.rs.rs.

Desculpe-me a atrapalhada.

faça sempre o Debug no VBA e o Compactar/Reparar quando alterar algo, senão o seu banco poderá ficar corrompido e todo o seu trabalho irá para o fundo do lago.