【Access示例】删除查询“销售订单 * ”-某.强人
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access示例】删除查询“销售订单 * ”

发表时间:2021/8/22 9:03:03 评论(0) 浏览(2697)  评论 | 加入收藏 | 复制
   
摘 要:删除存在于数据库,所有开头为"销售订单"的查询。
正 文:

一、学友问题描述:

      有学友提问说,因个人原因会产生一些错误的表或查询,如何用代码直接删除呢?每次手动删会很麻烦。


二、解决方法:

      经查看,这些错误的表或查询都有存在相同的部分。因此是可以批量删除的。


示例代码如下:

Private Sub Command0_Click()
Dim Query1 As QueryDef '(如需删除表,将代码中所有的Query替换成Table即可)
CurrentDb.QueryDefs.Refresh
For Each Query1 In CurrentDb.QueryDefs
    If Mid(Query1.Name, 1, 4) = "销售订单" Then    '筛选出满足条件"销售订单"的查询
        CurrentDb.QueryDefs.Delete Query1.Name '删除该查询
End If
Debug.Print Query1.Name
Next Query1
RefreshDatabaseWindow '删除查询后及时刷新数据窗口
End Sub


演示图:


Tips:

1:在使用Debug.Print Query1.Name进行输出时,你可能会注意到~sq,这意味着是一个储存查询,如下图画框部分为窗体frm销售订单_Eidt中客户ID的底层记录源。



2:在使用该代码时,建议先使用Debug.Print 进行调试,以免误删


附   件:

点击下载此附件


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Access删除查询】删除偶数记录的示例一则,用删除查询删除奇数...  【麥田  2013/12/19】
【Access删除查询】删除空值记录的示例一则,用删除查询删除空值...  【麥田  2014/5/22】
【Access删除查询】删除0值记录的示例一则,用删除查询删除0值...  【麥田  2014/5/24】
【Access删除查询】删除两个表中同时满足一样条件的记录示例;A...  【麥田  2018/1/10】
【Access删除查询】多条件删除空值记录的示例一则,用删除查询删...  【麥田  2018/7/17】
【Access删除查询】删除2018年10月20日至10月31日之...  【麥田  2019/3/5】
【Access删除查询示例】删除性别不是“男”或“女”的记录,即性...  【麥田  2021/5/31】
【Access删除查询】如何使用查询删除附件字段并清理附件字段所占...  【某.强人  2021/6/6】
常见问答
技术分类
相关资源
文章搜索
关于作者

某.强人

文章分类

文章存档

友情链接