Set Table Attributes to Hidden

[crhodus]

I have a few tables that my user will be importing from time to time. Is there a way to have the property for these tables, using vba or even a macro, automatically set to hidden, instead of manually right clicking on them and setting the property?

Thanks!

 

[PearlGI]

The following should sort you out. However, I can't find the VBA to un-hide it!! Let me know if you find it.


Sub Main()

Dim db As Database, _
td As TableDef

Set db = CurrentDb
Set td = db.TableDefs("{TableName}")

td.Attributes = dbHiddenObject

End Sub

 

[crhodus]

Thanks for your help!