Automatically hide any tables created in the database except one table (1 Viewer)

[MsLady]

I want to automatically hide all the tables in the database, and automatically hide any new tables that are created, imported thereafter, except one mastertable.
How do i achieve this?

 

[gemma-the-husky]

try this

sub hide_them_all

dim tdf as tabledef

    for each tdf in currentdb.tabledefs
          if tdf.name<>"requiredname" then
                tdf.attributes = tdf.attributes+hiddenobject
          end if
    next tdf

end sub

 

[MsLady]

Thanks gemma where do i put this code?

 

[gemma-the-husky]

in a module - if its a one-time code, just click the sub and run it directly

 

[KeithG]

This code won't hide tables made after you run the code. So if you run a make table query it won't be hidden. I don't think there really is a way that you can have a new table default to hidden. You could put Gemma's procedure in the On_Open event of your switchboard or startup form.