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 |
●関連記事

VBA:OneDriveをインストール・アップデート後にVBAがエラーになる場合の対応方法(原因:パスがURLになるため)
【VBA】OneDriveインストール・アップデート後にVBAのDir関数などがエラーになる場合の対応方法(原因:パスがURLになるため)

VBA:ファイルコピーの違い。FileSystemObjectの「CopyFile」と「FileCopy」ステートメント
【VBA】VBAのコピーの方法のうち、FileSystemObjectの「CopyFile」と「FileCopy」ステートメントの違いについて説明します。

VBA:【FSO】フォルダーのディレクトリータイプのチェック「DriveType」(FileSystemObject)
【VBA】FileSystemObjectを使ってフォルダーのディレクトリーをチェックする方法