HELP!!!如何在VBA中删除所有表(链接表)???
下面是我写的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
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
...全文


