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

删除名称中<string>的所有表</string>

1 个答案: