• 締切
  • 暇なときにでも

Access VBAでテーブルの確認

  • 質問No.3205
  • 閲覧数2737
  • ありがとう数7
  • 回答数1

お礼率 38% (63/163)

Access 200のVBAで、テーブルが存在しているかどうかのコードをつくれません。存在しなければSQLでCREATEさせるなどの処理をしたいのです。コードを教えてください。

回答 (全1件)

  • 回答No.1

ベストアンサー率 46% (643/1383)

Access2000及び下位互換な関数です。

Public Function ExistTableDef(TableName As String) As Boolean
'CurrentDBに指定したTableDefオブジェクトが存在するかを調べる(True=存在する)
Dim Dummy As String
On Error Resume Next
Dummy = CurrentDb.TableDefs(TableName).Name
If Dummy <> "" Then
ExistTableDef = True
Err.Clear
Else
ExistTableDef = False
Err.Clear
End If
End Function

Access2000 Onlyなら、AccessObjectオブジェクトを使えばいいでしょう。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ページ先頭へ