VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> Accessですでに存在しているテーブル名かどうかを返す関数ってありますか？
> Accessで別データベースからテーブルを取り込む際に、
> テーブル名1(お尻に追い番がついてしまいます）となってしまうので、
> すでに存在するテーブルかどうかをVBAで確認したいと思っていますが、(^^;

存在するかどうかを調べるよりも、取り込む前に、
既存のテーブルを破棄してしまえばよいのでは？

テーブルが無いときに破棄しようとすれば、当然エラーになりますが、
エラートラップして無視してしまえば済むように思えます。


> 関数（テーブル名）＝True
> とかできるような関数ってあるんでしょうか？

とりあえず、テーブルオブジェクトを For Each で列挙して調べるとか。

ありがとうございます。

> 
> 存在するかどうかを調べるよりも、取り込む前に、
> 既存のテーブルを破棄してしまえばよいのでは？

> テーブルが無いときに破棄しようとすれば、当然エラーになりますが、
> エラートラップして無視してしまえば済むように思えます。
そーなんです。
テーブルを破棄しようとしてて、
テーブルが無いときにエラーが返ってくるので、
テーブルがあるかないかを確認した方がいいのかなーと思ったわけなのです。

でも、、、、エラートラップすればいいということですが、、
すみません。。。
エラートラップして無視するってどういうことなのでしょうか？
恥ずかしながら、、よくわかりません。
エラーメッセージを表示しないようにする方法があるのでしょうね。ちょっと調べてみます。

> でも、、、、エラートラップすればいいということですが、、
> すみません。。。
> エラートラップして無視するってどういうことなのでしょうか？
> 恥ずかしながら、、よくわかりません。
> エラーメッセージを表示しないようにする方法があるのでしょうね。ちょっと調べてみます。
> 
　では,補足ということで追記します。テーブルが無かった場合にエラーメッセージが帰ってくると思いま
す。その時に,エラーメッセージの左上にエラー番号がでると思います。そのエラー?で判断させるという
ことです。例えばAccessでデータ操作をしているとよく起こる「Null値の使い方が不正です」というエラー
はエラー?が94なので,

Private Sub Command1_Click()

 On Error Goto Er       'エラートラップの開始

           ・
           ・
           ・
           ・
           ・
           ・
           ・
Exit Sub

Er:
 Select Case Err.Number
    Case 94
       Resume Next          '次の行から処理続行
 End Select
End Sub

　といった具合です。On Error GotoやResume Nextについての詳細はヘルプを参考にしてください。で
は。

> 　では,補足ということで追記します。テーブルが無かった場合にエラーメッセージが帰ってくると思いま
> す。その時に,エラーメッセージの左上にエラー番号がでると思います。そのエラー?で判断させるという
> ことです。例えばAccessでデータ操作をしているとよく起こる「Null値の使い方が不正です」というエラー
> はエラー?が94なので,
> 
> Private Sub Command1_Click()
> 
>  On Error Goto Er       'エラートラップの開始
> 
>            ・
>            ・
>            ・
>            ・
>            ・
>            ・
>            ・
> Exit Sub
> 
> Er:
>  Select Case Err.Number
>     Case 94
>        Resume Next          '次の行から処理続行
>  End Select
> End Sub
> 
> 　といった具合です。On Error GotoやResume Nextについての詳細はヘルプを参考にしてください。で
> は。

本当にすみません。
エラーのときに出てくるNoをそういうふうに使うんですね。すごーい。
まだ実際にはやっていませんが、トライしてみます。
本当に何度も助言くださいまして、ありがとうございました
感謝感謝！です。（^o^）

↓匿名になってしまいました。
すみません。。こばゆみが投稿しました。

ぽーらべあと申します。

> テーブルを破棄しようとしてて、
> テーブルが無いときにエラーが返ってくるので、
> テーブルがあるかないかを確認した方がいいのかなーと思ったわけなのです。

私は以下のモジュールを使用して、テーブルの存在を確認しています。
どこからとってきたソースかは不明。(--);

' 機  能：指定したテーブルが存在するか確認します
' 引　数：sFileName     ファイル名
'         sTableName    テーブル名
' 戻り値： 0            :正常終了　テーブルがない
'          1            :正常終了　テーブルが存在
'         -1            :異常終了
Public Function ExistTable(sFileName As String, sTableName As String) As Integer
    Dim MyDatabase As Database
    Dim nFlag As Integer
    Dim i As Integer
    On Error GoTo ErrorHandler
    ExistTable = 0
    Set MyDatabase = Workspaces(0).OpenDatabase(sFileName)

'指定したテーブルが存在するかチェックします。
    For i = 0 To MyDatabase.TableDefs.Count - 1
        If MyDatabase.TableDefs(i).Name = sTableName Then

'存在したら戻り値を「1」にセットします。
            ExistTable = 1
            Exit For
        End If
    Next i
    MyDatabase.Close
    Exit Function
ErrorHandler:
    ExistTable = -1
End Function

> ぽーらべあと申します。
> 
> > テーブルを破棄しようとしてて、
> > テーブルが無いときにエラーが返ってくるので、
> > テーブルがあるかないかを確認した方がいいのかなーと思ったわけなのです。
> 
> 私は以下のモジュールを使用して、テーブルの存在を確認しています。
> どこからとってきたソースかは不明。(--);

ぽーらべあさん、
どうもありがとうございます。

魔界の仮面弁士さんに教えていただいた方法で、実現することができました。
ぽーらべあさんのソースもさっそくやってみます。
結局、存在しているテーブルかどうかを返す関数というのは
ないみたいですが、いろいろな考え方を知ることができて大変参考になりました。
ほーーーんとに！ありがとうございました！！！！(^o^//

>>> テーブルがあるかないかを確認した方がいいのかなーと思ったわけなのです。
> 結局、存在しているテーブルかどうかを返す関数というのは
> ないみたいですが、いろいろな考え方を知ることができて大変参考になりました。

あまり汎用的ではありませんが、確認する方法はあります。

    TableName = "テーブル1"
    If CBool(DCount("*", "MSysObjects", "[Name]=""" & TableName & """")) = True Then
        MsgBox TableName & "は存在します。"
    Else
        MsgBox TableName & "は存在しません。"
    End If


まぁ今回は、あまり深く考えずに、

   On Error Resume Next
   CurrentDb.TableDefs.Delete TableName
   On Error GoTo 0

   '(インポート処理)

で良いとは思いますが。(^^A