Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

隐藏系统中所有的查询,以确保不会被非法链接

时 间:2008-06-08 23:02:19
作 者:小魏   ID:2173  城市:青浦
摘 要:隐藏系统中所有的查询,以确保不会被非法链接,

正 文:

不好意思,上次发的这段代码有误.需要修改一下.如下:

把这段代码放入到模块中.然后在窗体事件中调用即可.  CALL YINCANGCHAXUN() 

 

Function YinCangChaXun()
On Error GoTo Err_Com1

'==========================================
'隐藏系统中所有的查询,以确保不会被非法链接,
'DoCmd.SetWarnings 0     '关闭系统提示

 

Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
   
    db.QueryDefs.Refresh
    For i = db.QueryDefs.Count - 1 To 0 Step -1
   ' MsgBox db.QueryDefs(i).Name
  
      Application.SetHiddenAttribute acQuery, db.QueryDefs(i).Name, True
       'MsgBox db.QueryDefs(i).Name
    Next i
    Set db = Nothing
    
MsgBox "当前数据库中的所有查询都已被隐藏."

 
Exit_Com1:
    Exit Function

Err_Com1:
   ' MsgBox Err.Description
    Resume Exit_Com1
' DoCmd.SetWarnings -1
End Function

 

目前这段代码在实际运行时还有点问题,就是总会去试图隐藏系统查询而不得.所以,需要关闭系统提示.否则会烦死了,哈哈.



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助