Ms access 删除所有带有<；字符串>；以他们的名义

我正在寻找一个函数或子函数（在一个模块中），我可以调用该函数或子函数来删除名称中包含“tbl”的所有表。我发现了一些不正确的代码

---

为了澄清我的问题：

我在Access工作。在我的项目中，我使用VBA生成了几个表。我不知道这些桌子的名字。我知道我想删除（“删除”）的表的名称中有“tbl”

我要寻找的是这样的代码：

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

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

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

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

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

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

---

我真不敢相信我已经找了超过4小时了！就像一个字符，如果你不确定在字符串中的什么地方会出现这种情况，你可以在前面加上一个*“tbl”。这是一个很好的解决方案。任何要删除所有表的人，请使用

而不是像“MSys*”

来防止（错误）删除Access系统表我不敢相信我已经搜索了超过4小时！就像一个字符，如果你不确定在字符串中的什么地方会出现这种情况，你可以在前面加上一个*“tbl”。这是一个很好的解决方案。任何要删除所有表的人，请使用

而不是“MSys*”

来防止（错误）删除Access系统表