【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 进行调试，以免误删。

附   件:

点击下载此附件