Category
Recent Entries
Search
Archive
Navigation
ホーム 戻る サイトマップ
Appeals
にわか日ハムファン友の会
Syndicate
RSS 1.0
Powered
Powered by blosxom 2.1.2

[Access] テーブルが存在するか調べる

データベースmdb内に任意名のテーブルがあるかどうかを調べる。 テーブルを処理毎に作り直す等の場合に利用する。


'----------------------------------------------------
'   Function : Table-Exist-Check
'----------------------------------------------------
Public Function gfnc_ExistTable(ByVal strTableName As String) As Boolean
    Dim dbs As Database
    Dim rst As Recordset
    Dim tdf As TableDef

    Set dbs = CurrentDb

'---< LOOP TABLEDEFS >
    For Each tdf In dbs.TableDefs
        If (tdf.Name = strTableName) Then
            gfnc_ExistTable = True
            Exit For
        End If
    Next tdf

End Function

gfnc_ExistTable("テーブル名")がTrueを返せば、その名称のテーブルが存在する。

前の記事:[F] ★ グリン3発被弾で納得の敗戦。(vsH)
記事のトップへ次の記事:[Windows] エクスプローラーの引数

Recent entries from same category

  1. [Access] 全てのオブジェクトをテキストとして保存する。
  2. [Access] データベースウィンドウ非表示
  3. [Access] 半角全角混じりの文字列をぴったり60Byteに揃える
  4. [Access] Microsoft Office Service Pack URL
  5. [Access] 値が入力されているかを調べる
  6. [Access] テーブルを削除する
  7. [Access] サブフォームのレコードソースを切り替える
  8. [Access] 入力にズームボックスを利用する