Office中国论坛/Access中国论坛

标题: 如何用代码隐藏查询 [打印本页]

作者: lazybird 时间: 2018-7-23 09:13
标题: 如何用代码隐藏查询
在发布MDE文件时可以用以下代码隐藏全部的表提高安全性 -
Dim tabDef As New TableDef
   Set dbs = CurrentDb
   For Each tabDef In dbs.TableDefs
         tabDef.Attributes = 1
   Next
但是同样的代码用来隐藏查询时却总是执行不了 -
Dim queDef As New QueryDef
   For Each tabDef In dbs.QueryDefs
         queDef.Attributes = 1
   Next
求老师们支招 -

作者: roych 时间: 2018-7-23 09:13
另一个方法是使用临时名称，详见http://www.office-cn.net/access-allqry/584.html
关于这个，很久以前就写过帖子了。具体请参考以下帖子。

无外乎就是把表更改名称，把修改表名称（加前缀Usys）当成系统对象，或者修改为临时表（加前缀~TMPCLP）来隐藏罢了。

http://www.office-cn.net/thread-95999-1-1.html

作者: roych 时间: 2018-7-23 17:52
写进ADO吧。

作者: lazybird 时间: 2018-10-8 14:05

roych 发表于 2018-8-3 10:05
另一个方法是使用临时名称，详见http://www.office-cn.net/access-allqry/584.html
关于这个，很久以前就 ...

谢谢老师，这下明白了：）

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