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 \| この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら...... T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件～でご支援します。 Access（アクセス）によるソフト開発ならおまかせください！スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします https://accdev.tsware.jp/