Noname > 26-08-10, 11:03 AM
Sub hideTable(H As Boolean)
On Error Resume Next
Dim DB As Database
Dim N As Byte
Dim i As Byte
Set DB = DBEngine.Workspaces(0).Databases(0)
N = DB.TableDefs.Count
For i = 1 To N - 1
Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H
Next
End Sub
N = DB.TableDefs.Count
N = DB.QueryDefs.Count
N= Forms.Count
N = Reports.Count
Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H
Application.SetHiddenAttribute acQuery, DB.QueryDefs(i).Name, H
Application.SetHiddenAttribute acForm, Forms(i).Name, H
Application.SetHiddenAttribute acReport, Reports(i).Name, H
Hidetable True
HideTable false