如何用代碼隱藏查詢

lazybird

在發(fā)布MDE文件時可以用以下代碼隱藏全部的表提高安全性 -
Dim tabDef As New TableDef
     Set dbs = CurrentDb
     For Each tabDef In dbs.TableDefs
             tabDef.Attributes = 1
     Next
但是同樣的代碼用來隱藏查詢時卻總是執(zhí)行不了 -   
Dim queDef As New QueryDef
     For Each tabDef In dbs.QueryDefs
             queDef.Attributes = 1
     Next
求老師們支招 -

roych

另一個方法是使用臨時名稱，詳見http://m.mzhfr.cn/access-allqry/584.html
關(guān)于這個，很久以前就寫過帖子了。具體請參考以下帖子。

無外乎就是把表更改名稱，把修改表名稱（加前綴Usys）當成系統(tǒng)對象，或者修改為臨時表（加前綴~TMPCLP）來隱藏罷了。

http://m.mzhfr.cn/thread-95999-1-1.html

roych

寫進ADO吧。

lazybird

roych 發(fā)表于 2018-8-3 10:05
另一個方法是使用臨時名稱，詳見http://m.mzhfr.cn/access-allqry/584.html
關(guān)于這個，很久以前就 ...

謝謝老師，這下明白了  ：）