DB内の条件にあてはまるテーブルを削除する

自身のACCDB内の各テーブルのうち、
条件にあてはまるものを削除する方法です。
前回紹介したDoCmd.DeleteObjectメソッドを使い、削除します。

サンプルではテーブル名の最初の3文字が”WK_”であるものを削除しています。

Sub Sample_ObjectDelete2()
    Dim tbl As TableDef
    
    '警告メッセージの非表示
    DoCmd.SetWarnings False
    
    For Each tbl In CurrentDb.TableDefs
        'WK_で始まるテーブルの削除
        If Left(tbl.Name, 3) = "WK_" Then
            DoCmd.DeleteObject acTable, tbl.Name
        End If
    Next
        
    '警告メッセージの表示
    DoCmd.SetWarnings True
End Sub