AccessVBA：テーブルの存在チェック
ここではテーブルの存在のチェック方法について説明してきます。
◆テーブルの存在をチェック
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
'//テーブルの存在チェック' '//テーブルがある場合はCheckTableExist=Trueが戻ります。' Private Sub checkTable_Click() If CheckTableExist("テーブル1") Then MsgBox "テーブルあり" Else MsgBox "テーブルなし" End If End Sub '//以下で存在するかどうかの判定' Public Function CheckTableExist(tableName As String) As Boolean On Error Resume Next '次のコードで存在有無の確認をし、ない場合はFalseでエラーとなるので、判定を続行するためエラーをスキップ' CheckTableExist = CurrentDb.TableDefs(tableName).Name = tableName End Function |
●関連記事
