Accessのバージョンを調べる　　　メニューへ　　ホームへ

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

スポンサードリンク

AccessのVersion

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




Access-Access!

Copyright(C) 2008 FeedSoft