前回はコードからのテーブル作成を行いました、

今回はコードからのテーブルの削除を行います、

前回同様にVBAでテーブルを削除する機会はあまりないかもしれませんが、
自分でサンプル等を作成し試してみてください。









Private Sub 削除_Click()

    Dim db As DAO.Database
    Dim tbname As String
    
    'データベースの取得
    Set db = CurrentDb()
    
    '削除したいテーブル名取得
    tbname = InputBox("削除したいテーブル名を入力して下さい")
   
    db.TableDefs.Delete tbname
   
    MsgBox ("テーブルの削除に成功しました")
   
    db.Close
    Set db = Nothing
End Sub

上の例ではINPUTBOXを利用して削除したテーブル名を入力させ削除をおこなっています。