如何彻底隐藏表？

哈喽，哈喽，大家好。我的Edon

最近chatGPT很火，这个AI不光会聊天，还会写论文，写诗词，做PPT，写代码，等等。有些人就开始急了，说现在AI都这么强了，那我们这些码农是不是都将被取代了？我个人感觉，大家不用急，有新的事物出现，总是会有旧的被取代，同样的也会有新兴的行业出现，所以，我们还是接着来学习Access开发吧。

那今天，给大家分享点简单点的示例吧。

当我们用Access开发系统后，为了让系统更加安全，不让用户看到表，让有什么办法来彻底隐藏表呢？

01

属性隐藏表

之前，我们都知道右击表，在属性里面勾选隐藏就行了，如下图：

这个方法虽然简单，但是，其实本身我们还是可以看到的，我们只需要在导航选项里面设置一下，如下图：

设置之后，我们就可以看到隐藏的对象了：

02

隐藏表代码

那具体的隐藏代码怎么写呢？代码很简单，只需要两行，第一行是隐藏，第二是隐藏后刷新一下。

CurrentDb.TableDefs("表2").Attributes = dbHiddenObject
Application.RefreshDatabaseWindow

03

显示表代码

那我们已经会隐藏了，那怎么找到呢，还一样，只需要两行代码

CurrentDb.TableDefs("表2").Attributes = 0
Application.RefreshDatabaseWindow

好了，到这里的话示例我们就讲完了，代码量是不是很少，也很简单，大家快去试一下吧。