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
...全文
317 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中试试。
excel vba 函数速查
chm格式，非常方便查询，得之于网络，放此供大家共享
office chm合集
office vba 手册 chm合集 共10个 chm 够齐了
网页编程查询大全CHM包括VB和SQL编程必备
查询手册包括HTML.ADO.ASP.CSS.JAVASCRIPT.JSCCODSE.JSCRIPT.MYSQL.PHP.SQL.TSQL.VBSCRIPT. 不可多得的东西
MsgBox函数用法小结.pdf
MsgBox函数用法小结.pdf
VBScript 语言参考中文手册CHM
VBScript 语言参考 特性信息 字母顺序关健字列表 常数 错误 事件 函数 方法 对象 运算符 属性 语句 欢迎使用 VBScript 语言参考 通过对信息进行分组，可以使您方便地研究 Visual Basic 脚本的各个主题。 可以在“字母顺序关键字列表”中找到 VBScript 语言的所有主题。如果只需要查看某个主题（例如对象），则有对该主题进行详细说明的章节可供查阅。 如何操作呢？单击左边任意一个标题，即可显示该标题所包含的项目列表。从该列表中选择要查看的主题。打开所选主题之后，就能够很容易地链接到其他相关章节。 请尽情浏览 JScript 语言参考的各个部分，您会发现 VBScript 语言有多么丰富。 特性 说明 版本信息 按主机应用排序的 VBScript 版本列表和按版本排序的特性列表. VBScript 特性 VBScript 最新特性列表 未包含在 VBScript 中的 VBA 特性 VBScript 最新特性列表：未包含在 VBScript 中的应用程序编辑。 未包含在 VBA 中的 VBScript 特性 未包含在 Visual Basic 中的 VBScript 特性列表：应用程序编辑。 Microsoft Scripting 运行时特性 VBScript 中最新的 Scripting 运行时特性列表。 语言元素 说明 Abs 函数 返回数的绝对值。 加法运算符 (+) 两数相加。 And 运算符 执行两个表达式的逻辑连接。 Array 函数 返回含一数组的 变体 。 Asc 函数 返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=) 给变量或属性赋值。 Atn 函数 返回数的反正切值。 Call 语句 将控制移交 Sub 或 Function 过程。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的表达式。 CDate 函数 返回已被转换为日期子类型的变体的表达式。 CDbl 函数 返回已被转换为双精度子类型的变体的表达式。 Chr 函数 返回指定 ANSI 字符码的字符。 CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体的表达式。 颜色常数 颜色常数列表。 比较常数 用于比较运算的常数列表。 连接运算符 (&) 强制两个表达式的字符串连接。 Const 语句 声明用于字母值的常数。 Cos 函数 返回角度的余弦值。 CreateObject 函数 创建并返回对“自动”对象的引用。 CSng 函数 返回已被转换为单精度子类型的变体的表达式。 CStr 函数 返回已被转换为字符串子类型的变体的表达式。 日期和时间常数 在日期和时间运算中用来定义星期几和其他常数的常数列表。 日期格式常数 用于日期和时间格式的常数列表。 Date 函数 返回当前系统日期。 DateAdd 函数 返回加上了指定的时间间隔的日期。 DateDiff 函数 返回两个日期之间的间隔。 DatePart 函数 返回给定日期 的指定部分。 DateSerial 函数 返回指定年月日的 日期子类型的变体 。 DateValue 函数 返回日期子类型的变体 。 Day 函数 返回日期，取值范围为 1 至 31。 Description 属性 返回或者设置说明某个错误的字符串。 Dictionary 对象 存储数据键、项目对的对象。 Dim 语句 声明变量并分配存储空间。 除法运算符 (/) 两数相除并以浮点数格式返回商。 Do...Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符 使两个表达式相等。 Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象 含有关于运行时错误的信息。 Eval 函数 计算并返回表达式的值。 Execute 方法 根据指定的字符串，执行正则表达式的搜索。 Execute 语句 执行单个或更多的指定语句。 ExecuteGlobal 语句 执行一个或多个在全局脚本名字空间中所指定的语句。 Exit 语句 退出 Do...Loop、For...Next
Access

7,732

社区成员

28,799

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章