閉じる

ACCESSのバージョンを調べる。　（　SysCmd　）


Dim strVersion As String

Dim VerName As String



strVersion = SysCmd(acSysCmdAccessVer)



Select Case strVersion

    Case "8.0": VerName = "Access97"

    Case "9.0": VerName = "Access2000"

    Case "10.0": VerName = "Access2002"

    Case "11.0": VerName = "Access2003"

    Case "12.0": VerName = "Access2007"

End Select



MsgBox "バージョンは、" & VerName & "　です。"