Tips186 - [ExcelでDAOとSQL] テーブルの存在確認

ループでTableDefオブジェクトのNameを調べ、テキストボックスに入力されたテーブル名と同一のものがあるかどうかチェックします。
見つかればセルに"その名前のテーブルは存在します"と表示し、見つからなければ"その名前のテーブルは存在しません"と表示します。

■見つからなかった場合

■見つかった場合

■実行コード

Private Sub CommandButton1_Click()

Dim DB As Database

Dim tlist As TableDef

If TextBox1 = "" Then

MsgBox "検索文字を入力してください。"

Exit Sub

End If

Range("C6") = ""

'データベースを開く

Set DB = OpenDatabase("C:\sample2.mdb")

'テーブルの名前のチェック

For Each tlist In DB.TableDefs

If tlist.Name = TextBox1 Then

Range("C6") = "その名前のテーブルは存在します"

Exit For

End If

Next

If Range("C6") = "" Then

Range("C6") = "その名前のテーブルは存在しません"

End If

DB.Close

Set DB = Nothing

End Sub