#476 データベースファイルの形式を調べるには? VBA

VBAを使って、「CurrentProject」オブジェクトの「FileFormat」プロパティの値を調べると、そのデータベースファイルの形式(=Accessのバージョン)を確認することができます。

次の例は、データベースファイルの形式を調べる処理をFunctionプロシージャにしたものです。これを標準モジュールに記述したあと、たとえばイミディエイトウィンドウから「?GetAccFileFormat()」のような命令を実行すると、”Access2007”のような文字列としてAccessのバージョンが返されます。


Public Function GetAccFileFormat() As String
'データベースファイルの形式を調べる

  Select Case CurrentProject.FileFormat
      Case acFileFormatAccess2
          GetAccFileFormat = "Access2.0"
      Case acFileFormatAccess95
          GetAccFileFormat = "Access95"
      Case acFileFormatAccess97
          GetAccFileFormat = "Access97"
      Case acFileFormatAccess2000
          GetAccFileFormat = "Access2000"
      Case acFileFormatAccess2002
          GetAccFileFormat = "Access2002/2003"
      Case acFileFormatAccess2007
          GetAccFileFormat = "Access2007"
  End Select

End Function


※参考Tips「#038 MDBファイルのAccess(DAO)バージョンを調べる方法」
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved