#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円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved