ms-access - 删除所有表以他们的名义

Question

我正在寻找一个函数或子（在一个模块中），我可以调用它来删除所有名称中包含“tbl”的表。我发现有几段代码不能正常工作。

---

为了澄清我的问题：

我在 Access 工作。在我的项目中，我使用 VBA 来生成一些表格。我不知道这些表的名称是什么。我确实知道我要删除的表（“DROP”）的名称中有“tbl”。

我正在寻找的是执行以下操作的代码：

DoCmd.runSQL (DROP ALL TABLE LIKE '%tbl%')

我知道这段代码不起作用，但它应该让我对我想要实现的目标有所了解

Answer 1

我现在没有“访问权限”，但您可以创建一个宏，例如：

Sub Delete_tbl
    Dim t as TableDef
    For Each t In CurrentDB.TableDefs
        If t.Name Like "tbl*" Then DoCmd.runSQL("DROP TABLE " & t.Name)
    Next
End Sub