如何批量删除ACCESS的所有表

myszh

如何批量删除ACCESS的所有表  （但不能删除隐藏的表）

[ 本帖最后由 myszh 于 2007-10-11 10:41 编辑 ]

andymark

http://www.office-cn.net/forum.p ... ighlight=%2Bsxgaobo

myszh

提示有关系 无法删除 如何删除表的关系呢

[ 本帖最后由 myszh 于 2007-10-11 11:23 编辑 ]

myszh

關系沒有辦法刪除？？

t小宝

看看这个方法行不行,我没试过.

Sub DelRelation()
'用dao删除库中所有关系
    Dim dbs As dao.Database
    Dim rel As Relation
    Set dbs = CurrentDb
    For Each rel In dbs.Relations
        dbs.Relations.Delete rel.Name
    Next rel
    Set dbs = Nothing
End Sub

先删除关系,再删除表

[ 本帖最后由 t小宝 于 2007-10-14 21:55 编辑 ]