Accessのバージョンを調べる

現在のアクセスのバージョンは、Access95、Access97、Access2000、Access2002、Access2003、Access2007になりますが、どのバージョンか調べるには、SysCmd(acSysCmdAccessVer)を使用します。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim sVer As String
    sVer = SysCmd(acSysCmdAccessVer)
    Select Case sVer
        Case "7.0"
            MsgBox "Access95"
        Case "8.0"
            MsgBox "Access97"
        Case "9.0"
            MsgBox "Access2000"
        Case "10.0"
            MsgBox "Access2002"
        Case "11.0"
            MsgBox "Access2003"
        Case "12.0"
            MsgBox "Access2007"
    End Select
        End Sub