刪除名稱中包含<String>的所有表

Question

我正在尋找一個函數或子模塊（我可以調用它來刪除名稱中包含「tbl」的所有表）。我發現了幾段不正確的代碼。

---

爲了澄清我的問題：

我在訪問工作。在我的項目中，我使用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