Sub HideObjects()

' hide objects examples

SetHiddenAttribute acQuery, "Table1", True

SetHiddenAttribute acQuery, "query1", True

SetHiddenAttribute acForm, "Form1", True

SetHiddenAttribute acModule, "Module1", True

' refresh database window to show changes

RefreshDatabaseWindow

End Sub

​

Sub ShowObjects()

' show objects examples

SetHiddenAttribute acQuery, "Table1", False

SetHiddenAttribute acQuery, "query1", False

SetHiddenAttribute acForm, "Form1", False

SetHiddenAttribute acModule, "Module1", False

' refresh database window to see changes

RefreshDatabaseWindow

End Sub

​