VB初心者友の会 - Q&A掲示板過去ログ

> データベースの削除を行う前にそのテーブルが存在しているかどうかを調べるにはどうしたら良いですか？
接続になにを使ってるのかわかりませんが、
DAOならTableDefsコレクションで調べれますが・・・

> > データベースの削除を行う前にそのテーブルが存在しているかどうかを調べるにはどうしたら良いですか？
> 接続になにを使ってるのかわかりませんが、
> DAOならTableDefsコレクションで調べれますが・・・
> 
DAOを使用しています。TableDefsコレクションの何を使用して調べるかわかりません。
おしえてください。

> > > データベースの削除を行う前にそのテーブルが存在しているかどうかを調べるには
どうしたら良いですか？
> > DAOならTableDefsコレクションで調べれますが・・・
> DAOを使用しています。TableDefsコレクションの何を使用して調べるかわかりません。

ヘルプでは、「TableDefs コレクションには、データベースに格納されている TableDef オブジェクトが
すべて含まれています。」(MSDNより)とあります。
ですから、TableDefsコレクションの中にあるTableDef(TableDefinition:テーブルの定義)を列挙して
いって、指定されたテーブル名の条件を満足するTableDefがあるかを調べればいいことになります。
そうすると、下のようなコードになるかと思います。

    Set dbDAO = OpenDatabase([データベースのパス])
    
    For Each tdfDAO In dbDAO.TableDefs
        If tdfDAO.Name = [削除したいテーブル名] Then
            dbDAO.TableDefs.Delete tdfDAO.Name
            
            Exit For
        End If
    Next
    
    Set dbDAO = Nothing

データベースのオブジェクトの階層はわかりずらいかもしれませんが、がんばってください。