[Resolvido]Exibir consulta oculta

Boa noite colegas...encontrei, aqui mesmo no forum como ocultar/exibir tabelas e ocultar , somente, as consultas .O codigo abaixo e de autoria de JPaulo e é para ocultar a consulta a como é fazer o inverso agoraexibi-las.

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

Por um caso não teve a curiosidade de ver no help do VBA sobre o método SetHiddenAttribute ?

Application.SetHiddenAttribute acQuery, qdf.Name, false

Um dos melhores contribuição que posso oferecer ao novatos aqui do fórum é a minha vídeo-aula abaixo, que demonstra como estudar com o Access.

vídeo-aula de como estudar com o Access

Sucesso!

Obrigado colega, vou estudar um pouco mais....