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

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

时 间:2021-08-22 09:03:03
作 者:某.强人   ID:73257  城市:长沙
摘 要:删除存在于数据库,所有开头为"销售订单"的查询。
正 文:

一、学友问题描述:

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


二、解决方法:

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


示例代码如下:

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群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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