閉じる

Accessのバージョンを調べる（ acSysCmdAccessVer ）


　Dim　AccessVer　as string



 AccessVer = SysCmd(acSysCndAccessVer)



 Select Case AccessVer

     Case "8.0" : MsgBox "Access97"

     Case "9.0" : MsgBox "Access2000"

     Case "10.0" : MsgBox "Access2002"

     Case "11.0" : MsgBox "Access2003"

  End Select