0

名前に「tbl」が含まれるすべてのテーブルを削除するために呼び出すことができる関数またはサブ (モジュール内) を探しています。正しく動作しないコードをいくつか見つけました。

私の質問を明確にするために：

私はアクセスで働いています。私のプロジェクトでは、VBA を使用していくつかのテーブルを生成しています。これらのテーブルの名前が事前にどうなるかはわかりません。削除 ("DROP") したいテーブルの名前に "tbl" が含まれていることは知っています。

私が探しているのは、次のようなコードです。

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

このコードが機能しないことはわかっていますが、達成したいことについて少し洞察を与えるはずです

4

1 に答える 1

5

現在、「Access へのアクセス」はありませんが、次のようなマクロを作成できます。

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
于 2013-07-23T08:49:44.210 に答える