Hide Tables

[tcb]

Tables can be hidden individually using this below. Is there a global
setting that would allow for all tables to be hidden?

Application.SetHiddenAttribute acTable, "tableName" , True

 

[Dirk Goldgar]

Tables can be hidden individually using this below. Is there a global
setting that would allow for all tables to be hidden?

Application.SetHiddenAttribute acTable, "tableName" , True

You can hide the whole database window (or navigation pane, for Access
2007), and in Access 2007 I believe you can decide what types of objects
will be seen on the navigation pane. But aside from that there is no global
setting to hide tables. You can write code to loop through the tables and
hide them all; something along these lines:

Dim ao As AccessObject

For Each ao In CurrentData.AllTables
If Left(ao.Name, 4) <> "MSys" Then
Application.SetHiddenAttribute acTable, ao.Name, True
End If
Next ao

 

[fredg]

Tables can be hidden individually using this below. Is there a global
setting that would allow for all tables to be hidden?

Application.SetHiddenAttribute acTable, "tableName" , True

Cycle through the TabelDefs and set the attribute of all non-system
tables.

Sub HideTables()
Dim tbf As TableDef
For Each tbf In CurrentDb.TableDefs
If Left(tbf.Name, 4) = "Msys" Or Left(tbf.Name, 1) = "~" Then
Else
Application.SetHiddenAttribute acTable, tbf.Name, True
End If
Next
End Sub

 

[jinjiangaaa]

Cycle through the TabelDefs and set the attribute of all non-system
tables.

Sub HideTables()
Dim tbf As TableDef
For Each tbf In CurrentDb.TableDefs
If Left(tbf.Name, 4) = "Msys" Or Left(tbf.Name, 1) = "~" Then
Else
Application.SetHiddenAttribute acTable, tbf.Name, True
End If
Next
End Sub