• @知識の歪 [428]
  • 野球を見ようか [308]
    • 2004年 シーズン [6]
    • 2005年 開幕前 [10]
    • 2005年 前半戦 [37]
    • 2006年 開幕前 [16]
    • 2006年 前半戦 [88]
    • 2006年 後半戦 [10]
    • 2007年 前半戦 [84]
    • 2009年 シーズン [5]
  • 日記っぽいもの [15]
  • 断食してみた [19]
  • テキトーに園芸 [16]
  • 伯耆流居合兵法 [4]
  • 風景写真とか [11]
    • 野球の風景 [6]
    • 廃墟の風景 [1]
    • 季節の風景 [1]
    • スライドショー [3]
  • 放射化学か？ [4]
  • 技術的なメモ [51]
    • Access [11]
    • Blosxom [37]
    • GTD [1]
    • 手帳 [1]
    • Windows [1]

• [手帳] MOLESKINE + ONBOOK
• [居合] 姿勢について
• [園芸] やっとこ収穫してみた。
• [居合] 板につくために。
• [園芸] パセリを再セットアップ。
• [園芸] 昼間の光の下で見たい成長っぷり。
• [園芸] 秋らしくなってきたが、野菜は育つ。

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

posted at 2007-04-09(Mon) 10:00 in 技術的なメモ::Access [Edit]

データベース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を返せば、その名称のテーブルが存在する。