UnHide All the Database Objects

[LisaB]

Does anyone know code to unhide all the hidden objects in the database?

1. I am going to run the Analyser/Documenter for all the objects in my
database.
2. However, Only the objects that are not hidden are available for selection
3. My Database has over 50 hidden forms and even more hidden queries
4. Its a big pain to go to each objects properties (individually) and
uncheck the hidden attribute

I use the following code to go through all the table objects and rename
them. Is there a similar code that I can use to go through each object in
the database and make the hidden attribute false?
---------------------
Public Function RenameTablesdbo()


Dim db As DAO.Database
Dim tbl As DAO.TableDef

Set db = CurrentDb()
For Each tbl In db.TableDefs
If Left$(tbl.Name, 4) = "dbo_" Then
tbl.Name = Mid$(tbl.Name, 5)
End If
Next tbl

End Function
----------------------

 

[Nikos Yannacopoulos]

Lisa,

Here's how you can do it for tables:

Sub Unhide_Tables()
For Each vObj In CurrentDb.TableDefs
vHidden = Application.GetHiddenAttribute(acTable, vObj.Name)
If Left(vObj.Name, 4) <> "MSys" And vHidden = True Then
Application.SetHiddenAttribute acTable, vObj.Name, False
End If
Next
End Sub

Likewise for QueryDefs (not like "~sq_"), Forms etc.

HTH,
Nikos

 

[LisaB]

Thank you

Lisa,

Here's how you can do it for tables:

Sub Unhide_Tables()
For Each vObj In CurrentDb.TableDefs
vHidden = Application.GetHiddenAttribute(acTable, vObj.Name)
If Left(vObj.Name, 4) <> "MSys" And vHidden = True Then
Application.SetHiddenAttribute acTable, vObj.Name, False
End If
Next
End Sub

Likewise for QueryDefs (not like "~sq_"), Forms etc.

HTH,
Nikos