UnHide All the Database Objects
- From: "LisaB" <lbagley(ReTHis)@mayatech.com>
- Date: Wed, 27 Apr 2005 17:27:26 -0400
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
----------------------
.
- Follow-Ups:
- Re: UnHide All the Database Objects
- From: Nikos Yannacopoulos
- Re: UnHide All the Database Objects
- Prev by Date: Re: Remove Non-Printing characters
- Next by Date: Re: Help with Excel Automation Import
- Previous by thread: testing if a word document is open within Access (several instances of word)
- Next by thread: Re: UnHide All the Database Objects
- Index(es):
Relevant Pages
|
