HELP!!!如何在VBA中删除所有表(链接表)???

lhxm007 2007-04-03 09:43:02
下面是我写的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
...全文
316 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
wwwwb 2007-04-04
  • 打赏
  • 举报
回复
压缩和修复数据库试试
OracleRoob 2007-04-04
  • 打赏
  • 举报
回复
你的代码没有问题。


系统出现异常需要修复


压缩修复一下MDB:

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


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

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

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


或者新建一个MDB,将原来文件中的所有对象都导入到新的MDB中试试。
OracleRoob 2007-04-03
  • 打赏
  • 举报
回复

系统出现异常需要修复


压缩修复一下MDB:

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


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

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

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


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

7,732

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧