In the command bar Tools- Options there is a field Hidden Objects.Is it possible to set this field to False by code?
I have a function that hides the tables.It is an excellent function made by Hans from the same Forum.Can i also set the field Hidden Objects to false in the same code ?
Public Sub HideTables(f As Boolean)
‘To hide tables, use HideTables True
‘and to unhide them, use HideTables False
Dim tbl As AccessObject
For Each tbl In CurrentData.AllTables
If Not Left(tbl.Name, 4) = “MSys” Then
Application.SetHiddenAttribute acTable, tbl.Name, f
End If
Next tbl
Set tbl = Nothing
End Sub