HELP!!!如何在VBA中删除所有表（链接表）？？？

[lhxm007]

下面是我写的VBA代码，可是运行时系统总是在for语句那里报错，提示“文件已经在使用中”，大家帮忙看看是怎么回事？？

Dim MyTable As TableDef


For Each MyTable In CurrentDb.TableDefs

If MyTable.Name Like "MSys*" Then
Else
DoCmd.DeleteObject acTable, MyTable.Name
End If
Next

[OracleRoob]

系统出现异常需要修复


压缩修复一下MDB：

-->工具菜单
-->数据库实用工具
-->压缩和修复数据库


或用第三方工具修复一下：

到版主的个人网站上下载：

Access 文件修复工具
http://www.access911.net/index.asp?board=8&recordid=73FABE1E&tt=


或者新建一个MDB，将原来文件中的所有对象都导入到新的MDB中试试。

[OracleRoob]

你的代码没有问题。


系统出现异常需要修复


压缩修复一下MDB：

-->工具菜单
-->数据库实用工具
-->压缩和修复数据库


或用第三方工具修复一下：

到版主的个人网站上下载：

Access 文件修复工具
http://www.access911.net/index.asp?board=8&recordid=73FABE1E&tt=


或者新建一个MDB，将原来文件中的所有对象都导入到新的MDB中试试。

[wwwwb]

压缩和修复数据库试试