access动态删除数据表的vba代码

在access中，我们直接点击表格右键-删除即可删除表格

但是在程序中，希望动态删除数据表。可以用下面两个代码：

方法1：

  Dim db As DAO.Database

  Set db = CurrentDb

  db.TableDefs.Delete "表1"    '删除指定的表

  db.Close: Set db = Nothing

  Exit Sub

方法2：

  DoCmd.DeleteObject acTable, "表1"    '执行删除操作

删除成， 表1 不见了。