Re: UnHide All the Database Objects

Thank you


"Nikos Yannacopoulos" <nyannacoREMOVETHISBIT@xxxxx> wrote in message
news:ep4%232T9SFHA.3188@xxxxxxxxxxxxxxxxxxxxxxx
> 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 wrote:
> > 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
> > ----------------------
> >
> >


.

Relevant Pages

  • RE: sethiddenattribute - Tables
    ... Private Sub Form_Open ... Dim tbl As TableDef ... Dim strTblName As String ... For Each tbl In CurrentDb.TableDefs ...
    (microsoft.public.access.tablesdbdesign)
  • Re: Assigning values to an array of records
    ... Another way to load the array is if the data is in a table in a Word document ... Dim tbl As Table, i As Long, j As Long, m As Long, n As Long, dataitem As Range ... Sub AssignGreekLetters() ...
    (microsoft.public.word.vba.general)
  • Re: Creating Linked Tables (Access 97)
    ... > database, you don't define fields: they're defined by the original table. ... tbl As TableDef ... > End Sub ... >> I append it complains that there are no fields in the table and Append ...
    (microsoft.public.access.modulesdaovba)
  • Re: Creating Linked Tables (Access 97)
    ... you need a semi-colon in front of the word Database in the connect ... Dim db As Database, tbl As TableDef ... End Sub ... > I append it complains that there are no fields in the table and Append> fails. ...
    (microsoft.public.access.modulesdaovba)
  • UnHide All the Database Objects
    ... Does anyone know code to unhide all the hidden objects in the database? ... Public Function RenameTablesdbo() ... Dim tbl As DAO.TableDef ...
    (microsoft.public.access.modulesdaovba)
Loading