哈喽，哈喽，大家好。我的Edon
最近chatGPT很火，这个AI不光会聊天，还会写论文，写诗词，做PPT，写代码，等等。有些人就开始急了，说现在AI都这么强了，那我们这些码农是不是都将被取代了？我个人感觉，大家不用急，有新的事物出现，总是会有旧的被取代，同样的也会有新兴的行业出现，所以，我们还是接着来学习Access开发吧。
那今天，给大家分享点简单点的示例吧。
当我们用Access开发系统后，为了让系统更加安全，不让用户看到表，让有什么办法来彻底隐藏表呢？
01
属性隐藏表
之前，我们都知道右击表，在属性里面勾选隐藏就行了，如下图：
这个方法虽然简单，但是，其实本身我们还是可以看到的，我们只需要在导航选项里面设置一下，如下图：
设置之后，我们就可以看到隐藏的对象了：
02
隐藏表代码
那具体的隐藏代码怎么写呢？代码很简单，只需要两行，第一行是隐藏，第二是隐藏后刷新一下。
CurrentDb.TableDefs("表2").Attributes = dbHiddenObject
Application.RefreshDatabaseWindow
03
显示表代码
那我们已经会隐藏了，那怎么找到呢，还一样，只需要两行代码
CurrentDb.TableDefs("表2").Attributes = 0
Application.RefreshDatabaseWindow
好了，到这里的话示例我们就讲完了，代码量是不是很少，也很简单，大家快去试一下吧。
