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

隐藏查询的示例

时 间:2018-09-11 08:59:11
作 者:伊西军   ID:63090  城市:临汾
摘 要:论坛网友询问如何彻底隐藏查询,所写的一个提供参考的示例
正 文:

一、问题描述:

通过自带的 SetHiddenAttribute  函数隐藏了的查询,如果勾选了显示隐藏对象,查询仍然是可见的,希望寻找一个可以彻底隐藏掉查询的方法:

二、相关代码:

Function setHidenQuery(qryName As String, booHide As Boolean)
    CurrentDb.TableDefs("YSys参数").Attributes = 1
    On Error Resume Next
    Dim tblName As String
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("select * from YSys????")
    rst.FindFirst ("strName='" & qryName & "'")
    tblName = "__TMPTableName"

    If booHide = True Then
        If rst![strName] <> qryName Then
            If (CurrentDb.QueryDefs(qryName).Type = dbQCompound) or _
                CurrentDb.QueryDefs(qryName).Type = dbQCrosstab or _
                CurrentDb.QueryDefs(qryName).Type = dbQSelect or _
                CurrentDb.QueryDefs(qryName).Type = dbQSetOperation Then
                CurrentDb.Execute "Select * INTO " & tblName & " FROM " & qryName
                CurrentDb.TableDefs(tblName).Attributes = 1
            End If
            rst.AddNew
            rst![strName] = qryName
            rst![strSQL] = CurrentDb.QueryDefs(qryName).SQL
            rst![strType] = CurrentDb.QueryDefs(qryName).Type
            rst.Update
            CurrentDb.QueryDefs().Delete qryName
            CurrentDb.TableDefs(tblName).Name = qryName
        End If
    End If

    If booHide = False Then
        If rst![strName] = qryName Then
            If (rst!strType = "160" or rst!strType = "16" or rst!strType = "0" or rst!strType = "128") Then
                CurrentDb.TableDefs().Delete qryName
            End If
            Call CurrentDb.CreateQueryDef(qryName, rst![strSQL])
            rst.Delete
        End If
    End If

    rst.Close
    Set rst = Nothing
    
End Function 


、示       例:

点击下载此附件



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

常见问答:

技术分类:

相关资源:

专栏作家

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