Office中国论坛/Access中国论坛

标题: 不用"~TMPCLP",如何在Access中隐藏表? [打印本页]

作者: 明镜 时间: 2008-10-21 08:00
标题: 不用"~TMPCLP",如何在Access中隐藏表?
想把Access的表隐藏掉,但因为数据库已全部做好了,有什么办法不用"~TMPCLP"而把表隐藏,请各位大师指点.

作者: beenet 时间: 2008-10-21 13:46
这个倒没用过，一般我用usys开头命名表来隐藏

作者: kevindeng 时间: 2008-10-21 14:10
表右击属性,点选隐藏,就可以了啊
你的目的是干什么啊

[ 本帖最后由 kevindeng 于 2008-10-21 14:11 编辑 ]

作者: 咱家是猫 时间: 2008-10-21 14:16
Dim tabDef As New TableDef
Set dbs = CurrentDb
For Each tabDef In dbs.TableDefs
      If tabDef.Name = "table1" Then
         tabDef.Attributes = 1
      End If
Next

作者: ycxchen 时间: 2008-10-21 15:40
学习了，请问，4楼的猫版主，在什么地方运行这代码？另，如果隐藏查询用什么代码？谢谢。

作者: 明镜 时间: 2008-10-21 18:03
对表右击属性,点选隐藏,是可以隐藏的,但在工具\选项\视图中勾选隐藏对象后仍可以看到.所以这个办法是不行的.
做了一个数据库,然后再折分数据库,把有表的文件作为后台共享,另一个文件的表实际上是链接.所以用代码似也不行.
对共享的后台文件隐藏表后,可以提高安全性.
请问对此有什么解决的办法?

作者: kevindeng 时间: 2008-10-22 13:42
那你把后台数据库中的表名都加上~TMPCLP,前台每次运行时用代码链接后台的表,退出时删除链接,前台链接表的名称仍然用以前的表名(这样你就不必对前台做更改)

[ 本帖最后由 kevindeng 于 2008-10-22 13:47 编辑 ]

作者: 明镜 时间: 2008-10-22 19:13
7楼的办法很好,但不知这个代码怎么写.谁能提供一下?先谢了.

作者: kevindeng 时间: 2008-10-23 08:54
代码其实很简单,自己去查一下TransferDatabase的帮助好啦

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)