No4558.テーブルの存在有無を確認するには

OS:2000
Access Version:2000

あるテーブル名のテーブルが存在するかどうかチェックしたいのですが
どうすればいいのか教えてください。

例えば、「テーブルA」というテーブルが存在するかどうかチェックしたいのですが、
どんなフィールドが存在し、データ型は何で・・・ということは決まっていません。
任意のExcelファイルを「テーブルA」という名称でインポートしているからです。

過去ログ:
http://www.accessclub.jp/bbs3/0070/superbeg26131.html
http://www.accessclub.jp/bbs2/0056/beginter18243.html

> 過去ログ:
> http://www.accessclub.jp/bbs3/0070/superbeg26131.html
> http://www.accessclub.jp/bbs2/0056/beginter18243.html

過去ログも検索したのですが自分では見つけられませんでした。
参考になりました。

> 例えば、「テーブルA」というテーブルが存在するかどうかチェックしたいのですが、

下記のような関数を作製しておいて、

Public Function ExistTable(TableName As String) As Boolean
On Error Resume Next
ExistTable = CurrentDb.TableDefs(TableName).Name = TableName
End Function

下記のように使えばどうでしょうか。

If ExistTable("テーブルA") Then
MsgBox "テーブルAは存在します。"
Else
MsgBox "テーブルAは存在しません。"
End If

参考になりました。ありがとうございました。

> > 例えば、「テーブルA」というテーブルが存在するかどうかチェックしたいのですが、
>
> 下記のような関数を作製しておいて、
>
> Public Function ExistTable(TableName As String) As Boolean
> On Error Resume Next
> ExistTable = CurrentDb.TableDefs(TableName).Name = TableName
> End Function
>
> 下記のように使えばどうでしょうか。
>
> If ExistTable("テーブルA") Then
> MsgBox "テーブルAは存在します。"
> Else
> MsgBox "テーブルAは存在しません。"
> End If