スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　DROP TABLE テーブル名 ;

DROP TABLEステートメントを使用して、テーブルを削除します。指定したテーブルが存在しない場合、または他のプロセスで使用している場合はエラーとなります。
サンプルでは、［商品テーブル］テーブルを指定しています。

●サンプル●
'テーブルを削除する
Public Sub Sample()

    Dim myDB As Database
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "DROP TABLE 商品テーブル;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLを実行する
    myDB.Execute mySQL

End Sub