「Accessファイル操作可否」の編集履歴（バックアップ）一覧はこちら

「Accessファイル操作可否」(2013/05/09 (木) 23:53:47) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

***Accessファイル操作可否

- ソース
 ' ACC_CheckAccessFile
 ' VBAでMDBやACCDBを操作する際に行う簡単なチェックを行う
 ' 実行環境にはDAOの参照設定が必要です
 
 ' IsAccessDBFile
 ' 指定のファイル（含フルパス）が使用しているAccessのバージョンで開くことが可能なDBファイルかを確認する
 ' ①Accessのバージョンが2007以降では拡張子が「mdb」または「accdb」の実在するファイルのみTRUE
 ' ②Accessのバージョンが2003以前では拡張子が「mdb」の実在するファイルのみTRUE
 ' 上記①②以外はすべてFALSE
 ' その他のAccessに関連する拡張子のファイルは除外とします
 ' 引数：あり
 ' iFilePath ：String    ：ファイル（含フルパス）
 ' 戻り値：あり
 ' Boolean   ：確認結果
 Public Function IsAccessDBFile(ByVal iFilePath As String) As Boolean
     Dim file As String
     Dim versionNumber As Double
     Dim result As Boolean
     
     ' 返却値の初期化
     result = False
     
     ' バージョンの取得
     versionNumber = Application.Version
     
     ' ファイルの実在確認
     file = Dir(iFilePath, vbNormal)
     
     If file <> "" And Len(iFilePath) > 0 Then
         ' ファイルが実在する場合バージョンにより判断方法を分ける
         
         If versionNumber > 11 Then
         ' Accessのバージョンが2007以降の場合
             
             If Right(file, 4) = ".mdb" Or Right(file, 6) = ".accdb" Then
                 ' 拡張子が「mdb」または「accdb」の場合、返却値をTRUEにする
                 result = True
             End If
             
         Else
         ' Accessのバージョンが2003以前の場合
         
             If Right(file, 4) = ".mdb" Then
                 ' 拡張子が「mdb」の場合、返却値をTRUEにする
                 result = True
             End If
         End If
         
     End If
     
     IsAccessDBFile = result
 End Function
 


パッケージ化されたクラスは[[こちら>Accessファイルチェッククラス]]


[[トップ]]


　

***Accessファイル操作可否
- ソース
 ' ACC_CheckAccessFile
 ' VBAでMDBやACCDBを操作する際に行う簡単なチェックを行う
 ' 実行環境にはDAOの参照設定が必要です
 
 ' IsAccessDBFile
 ' 指定のファイル（含フルパス）が使用しているAccessのバージョンで開くことが可能なDBファイルかを確認する
 ' ①Accessのバージョンが2007以降では拡張子が「mdb」または「accdb」の実在するファイルのみTRUE
 ' ②Accessのバージョンが2003以前では拡張子が「mdb」の実在するファイルのみTRUE
 ' 上記①②以外はすべてFALSE
 ' その他のAccessに関連する拡張子のファイルは除外とします
 ' 引数：あり
 ' iFilePath ：String    ：ファイル（含フルパス）
 ' 戻り値：あり
 ' Boolean   ：確認結果
 Public Function IsAccessDBFile(ByVal iFilePath As String) As Boolean
     Dim file As String
     Dim versionNumber As Double
     Dim result As Boolean
     
     ' 返却値の初期化
     result = False
     
     ' バージョンの取得
     versionNumber = Application.Version
     
     ' ファイルの実在確認
     file = Dir(iFilePath, vbNormal)
     
     If file <> "" And Len(iFilePath) > 0 Then
         ' ファイルが実在する場合バージョンにより判断方法を分ける
         
         If versionNumber > 11 Then
         ' Accessのバージョンが2007以降の場合
             
             If Right(file, 4) = ".mdb" Or Right(file, 6) = ".accdb" Then
                 ' 拡張子が「mdb」または「accdb」の場合、返却値をTRUEにする
                 result = True
             End If
             
         Else
         ' Accessのバージョンが2003以前の場合
         
             If Right(file, 4) = ".mdb" Then
                 ' 拡張子が「mdb」の場合、返却値をTRUEにする
                 result = True
             End If
         End If
         
     End If
     
     IsAccessDBFile = result
 End Function
 


パッケージ化されたクラスは[[こちら>Accessファイルチェッククラス]]


[[トップ]]