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

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


#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 \|