Access VBAでテーブルを削除する方法｜メッセージで確認
VBAのテーブル削除は「DoCmd.DeleteObject acTable」で行います。
Homeへ 
Accessテーブルへ|
テーブルを削除するには「DoCmdオブジェクト」の「DeleteObjectメソッド」を使用します。 DeleteObjectメソッドの引数「ObjectType」には「acTable」をセットします。 構文は「DoCmd.DeleteObject acTable , テーブル名」になります。 ここでは、msgboxを使用し、「削除してもよろしいですか？」の確認後、削除するようにします。 テーブルを削除すると元に戻すことができません、なのでこのような確認が必要です。 アプリで使用する場合は、下のVBAコードをコピー＆ペーストしご利用ください。 関連する「SQL テーブルから全データを削除する」を参照してください。 |
テーブルを削除するAccess VBA
フォームを作成しコマンドボタンクリックイベントにVBAを入力する
● フォームの作成
フォームにコマンドボタンを配置し、クリック時イベント内で削除を行います。
削除するテーブルは、矢印部分の「T-abc分析」です。
● VBAの入力
下記のVBAコードを入力します。
- MsgBoxの引数「vbYesNoCancel」で、 [はい]・[いいえ]・ [キャンセル] の 3 つのボタンを表示し、［はい］がクリックされた時だで削除します。
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim nret As Long
nret = MsgBox("「T-abc分析」テーブルを削除してもよろしいですか？", _
vbYesNoCancel + vbExclamation, "Access VBA")
If nret = vbYes Then
DoCmd.DeleteObject acTable, "T-abc分析"
MsgBox "削除しました。"
End If
End Sub
● 実行結果
［テーブル削除］ボタンをクリックすると、「T-abc分析」テーブルを削除してもよろしいですか？」と表示されるので［はい］をクリックします。
これで、指定したテーブルが削除され表示されなくなりました。
Homeへ Accessテーブルへ