با سلام
در مورد hidden کردن خاصی که شما فرمودید متوجه نشدم منظورت اینه که بالفرض موقع لود شدن فرم ها جدولها مخفی بشوند یا چیز دیگری...
Public Function HideTable(strTableName As String) As Integer
Dim dbs As DAO.Database
Set dbs = CurrentDb()
dbs.TableDefs(strTableName).Properties("Attributes ").Value = dbHiddenObject
End Function
Public Function ShowTable(strTableName As String) As Integer
Dim dbs As DAO.Database
Set dbs = CurrentDb()
dbs.TableDefs(strTableName).Properties("Attributes ").Value = 0
End Function