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