If MyTable.Name Like "MSys*" Then
Else
DoCmd.DeleteObject acTable, MyTable.Name
End If
Next
...全文
3163打赏收藏
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