安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access判断查询是否存在

2018-01-09 16:20:00
tmtony8
原创
1702

有时候,我们需要动态删除某个查询。但是删除之前需要先判断查询是否存在

在前面的学习中,我们知道如何判断一个已知的表对象是否存在,参见《Access判断数据表是否存在


判断查询是否存在的自定义函数:

Function ExistQuery(qryName As String) As Boolean
    
    
    Dim obj As AccessObject
    Dim dbs As Object
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllQueries
        If obj.Name = qryName Then
            ExistQuery = True
        End If
    Next obj
End Function

窗体中调用函数,如果查询存在。返回信息




    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.19
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    雷恩加尔项链 斗破苍穹结局 0131快船vs雷霆 k7娱乐真人百家乐 f1摩纳哥站在线直播 堡垒之夜手游下载教程 骰子的玩法 莱万特玛莎拉蒂质量 宝石探秘财富加倍注册 天涯明月刀傅红雪