删除带有“Planning_3039”字样的表

kupe　发表于：2011-01-30 22:12:26 　

请各位高手帮忙，在一个数据库中怎么用VBA来删除只要表名中有“Planning_3039”字样的表。

如：表名为：“Planning_3039AAAA”和表“Planning_3039BBBB"都能删除。

谢谢了

王樵民发表于：2011-01-31 10:44:20

可参考下面的过程

Sub 删除表()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    ' Search for open AccessObject objects in AllTables collection.
    For Each obj In dbs.AllTables
        If obj.Name = "Planning_3039AAAA" or obj.Name = "Planning_3039BBBB"Then
         DoCmd.DeleteObject acTable, obj.Name '删除表
        End If
    Next obj
End Sub

或

Sub 删除表(表名起始字符)
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    ' Search for open AccessObject objects in AllTables collection.
    For Each obj In dbs.AllTables
        Mid(obj.Name, 1,len(表名起始字符)) =表名起始字符

         DoCmd.DeleteObject acTable, obj.Name '删除表
        End If
    Next obj
End Sub

Top

kupe 发表于：2011-01-31 12:08:08

HI:王樵民

能不能做到表名中只要有"Planning_3039"字样的表全删除了?谢谢了

Top

王樵民发表于：2011-01-31 13:01:25

下面的过程就可以删除只要有"Planning_3039"字样的表

         DoCmd.DeleteObject acTable, obj.Name '删除表
        End If
    Next obj
End Sub

做法：创建一个模块，将上述代码复制到模块中，然后在窗体中加入一个命令按钮，该按钮的单击事件代码为：

删除表("Planning_3039")

即可

Top

kupe 发表于：2011-01-31 22:01:19

谢谢了，现已OK了。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

删除带有“Planning_3039”字样的表