如何用代码隐藏查询

lazybird

在发布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

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

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

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

roych

写进ADO吧。

lazybird

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

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