DAO基礎テクニック──VBAでAccessデータベースの「テーブル／フィールドの作成、削除」を実践：Access VBAで学ぶ初心者のためのデータベース／SQL超入門（10）（4/4 ページ）

» 2016年02月26日 05時00分公開

[薬師寺国安，PROJECT KySS]

前のページへ 1|2|3|4 　　　　　　

「テーブルを削除」する機能を配置する

　最後に「テーブルの削除」機能を実装しよう。

　テーブル作成フォームの「デザインビュー」に切り替えて、以下のようなテーブル作成フォームを追加する（図8）。

図8　テーブル削除フォームを作成する

　これまでと同様に「テキストボックス」と「ボタン」コントロールを1セット配置し、書式を設定していこう。

　テキストボックスのラベルの標題は「削除するテーブル」、テキストボックス本体の名前は「削除テーブルテキストボックス」、同じくボタンの名前は「実行ボタン」と指定する。その他、フォント名、フォントサイズ、フォント太さなどの書式は、各自これまでと同様に設定してほしい。

　テーブル削除フォームで配置するコントロールは以下の通りだ。

配置するコントロール
コントロールの種類	名前
テキストボックス	削除テーブルテキストボックス
ボタン	実行ボタン

VBEで「テーブル削除」のためのコードを記述する

　コードの記述方法の手順もこれまでと同じだ。

　「作成実行ボタン」を選択した状態で、プロパティシート→「イベント」タブをクリックする。「▼」アイコンで［イベントプロシージャ］を選択し、「…」アイコンをクリック。VBAで生成されたコードを、リスト3のコードに書き換える。

Private Sub 実行ボタン_Click()
  Dim db As DAO.Database
  Dim myTable As DAO.TableDef
  Dim tableName As String
    If IsNull(削除テーブルテキストボックス.Value) Then
    MsgBox ("テーブル名を入力してください。")
    Exit Sub
  End If
  
  On Error GoTo エラー
  Set db = CurrentDb
  tableName = 削除テーブルテキストボックス.Value
  
  db.TableDefs.Delete Name:=tableName
  
  db.Close
  Set db = Nothing
    MsgBox (削除テーブルテキストボックス.Value & "を削除しました。")
  Exit Sub（A）
エラー:
  MsgBox ("エラーです")
  Exit Sub
End Sub

リスト3：「削除実行」ボタンがクリックされた時の処理

　リスト3のコードは、前述したエラー処理付きで記述してある（10行目、20～22行目）。

　このエラー処理は、指定したテーブルが開いている場合には、「エラー：ラベル」内を実行し、「エラーです。」と表示して処理を抜けるものだ。前述したリスト1、リスト2にもこのエラー処理を追加する応用も試してほしい。なお、「エラー：ラベル」の前に（A）のように（19行目）、Exit Subで処理を抜けるようにしておかないと、テーブルが正常に削除された後でも「エラーです」のメッセージが表示されるので、ここの部分は注意してほしい。

　この他は、以下のように記述してある。

2～3行目：Database型の変数dbを宣言する。TableDef型の変数myTableを宣言する。TableDefは、個々のテーブルの定義情報を格納しているクラスだ。
5～7行目：テーブル名が未入力だった場合は、警告メッセージを出して処理を抜ける。
11～12行目：カレントデータベースを参照するdbオブジェクトを作成し、変数tableNameに削除テーブルテキストボックスの内容を格納する。
14行目：Deleteメソッドで指定したテーブル名を削除する。削除する場合には「名前付き引数」でdb.TableDefs.Delete Name:=tableNameと指定している。