[AccessD] A2K: Hide Queires via VBA

Darren - How do you get to see these hidden features (the tables in this
instance) after they are hidden away? Could there be something disguised on
the User's form that can Unhide them? Cheers paul

-----Original Message-----
From: Darren DICK [mailto:d.dick at uws.edu.au]
Sent: Monday, August 09, 2004 12:48 AM
To: AccessD List
Subject: [AccessD] A2K: Hide Queires via VBA


Hello all
I sent this one out a few weeks a go.
Don't think  got a reply so Here we go again:-))
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Hello all 
The following code hides all the tables in a dB- cool and it works well
But there seems to be no "dot attributes" (.Attributes) setting for Queries
from the QueryDefs object
I basically wanna run some enumerating code like below and hide queries,
forms etc
Similar to rightclicking in the object window (Tables,Forms,Queries etc)
then selecting an object say a table or form or a query then selecting
PROPERTIES, then ticking the 
Attributes: Hidden checkbox

Any ideas?

Many thanks

Darren

Function f_HideAllTables ()
Dim db As DAO.Database
Dim tbl As TableDef

Set db = CurrentDb()
For Each tbl In db.TableDefs
    tbl.Attributes = 2
Next
Application.RefreshDatabaseWindow
end function
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com