より大きいバージョンの07のMSアクセスを許可しないコード

Question

私は分割したくないプログラムを持っていますが、一部のユーザーが使用することを許可したいのですが、基本的にはそれを使用するプログラムを使用します。問題は2016年のユーザーが2,3人いることです。開かれていると参照が壊れてしまいました。私はちょうど1年後にここを見ているものを分割して配布したくないのですとにかく2016へ。

私の最初のフォームで、実行しているバージョンを確認し、2007より大きい場合にメッセージを表示してデータベースを閉じる方法がありますか？もしそうなら、私に例のコードを教えてください...ありがとう！

If CurrentProject.FileFormat <= 12 Then 
'"" 
End If 

If CurrentProject.FileFormat > 12 Then 
MsgBox Application.Name & ", Version " & "is to high to be ran with this database try a 2007 version" 
Exit Sub 

エンド

Answer 1

Application.Versionを使用すると、Accessアプリケーションのバージョンが返されます。

If CInt(Application.Version) > 12 
    MsgBox Application.Name & ", Version " & Application.Version & "is to high to be ran with this database try a 2007 version" 
    Application.Quit 
End If 

Answer 2

場合はCurrentProject.FileFormatプロパティを使用することができます。それが役に立てば幸い。

Dim strFormat As String 

Select Case CurrentProject.FileFormat 
Case acFileFormatAccess2 
strFormat = "Microsoft Access 2" 
Case acFileFormatAccess95 
strFormat = "Microsoft Access 95" 
Case acFileFormatAccess97 
strFormat = "Microsoft Access 97" 
Case acFileFormatAccess2000 
strFormat = "Microsoft Access 2000" 
Case acFileFormatAccess2002 
strFormat = "Access 2002 - 2003" 
Case acFileFormatAccess12 
strFormat = "Microsoft Access 2007" 
End Select 

MsgBox "This is a " &; strFormat &; " project."