mdb内のテーブルの存在

質問

こんにちは。
AccessVBAで、CurrentMDB内にとあるテーブルが存在するか
どうかをチェックしたいのですが方法がわかりません。
どなたかお教えください。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

ADOXを使用します。
VBEのメニュー[ツール]→[参照設定]で、
「Microsoft ADO Ext. X.X for DLL and Security」
（X.Xはバージョン）
をチェックします。

コードは以下の通り。

Public Function TableExists(ByVal tableName As String) As Boolean

　　Dim cat As ADOX.Catalog　　　　'Catalogオブジェクト
　　Dim tbl As ADOX.Table　　　　　'Tableオブジェクト

　　On Error GoTo ErrHandle

　　TableExists = False

　　Set cat = New ADOX.Catalog
　　cat.ActiveConnection = CurrentProject.Connection

　　For Each tbl In cat.Tables
　　　　If (tbl.Type = "TABLE") And (tbl.Name = tableName) Then
　　　　　　TableExists = True
　　　　　　Exit For
　　　　End If
　　Next tbl

　　Set cat = Nothing

　　Exit Function

ErrHandle:
　　TableExists = False

End Function

Function化してあるので、適宜使用して下さい。

では。

お礼

maruru01さん！
Functionまで書いていただき、ありがとうございます。
早速使わせていただきました。
本当にありがとうございました。