如何用代码隐藏查询

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
求老师们支招 -

lazybird

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

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