こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Access VBAでテーブルの確認

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

投稿日時 - 2000-05-27 11:53:37

QNo.3205

暇なときに回答ください

このQ&Aは役に立ちましたか?

7人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

ARC

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オブジェクトを使えばいいでしょう。

投稿日時 - 2000-05-27 15:05:27

あなたにオススメの質問