批量删除ACCESS里的表格

wj　发表于：2011-01-12 21:11:34 　

ACCESS数据库里有很多表格，我想删除开头字母为ABC的所有表，用VBA或者SQL语言怎么写谢谢

王樵民发表于：2011-01-13 10:24:57

可参考下面的过程

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 Mid(obj.Name, 1, 3) = "ABC" Then
         DoCmd.DeleteObject acTable, obj.Name '删除表
        End If
    Next obj
End Sub

Top

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

Access交流中心

批量删除ACCESS里的表格