テキストボックスにACCESSのバージョンを表示
- カテゴリ：パソコン/インターネット
- 2011/08/12 04:43:42
Private Sub Form_Load()
'ReturnValueにAccessのバージョンを表示させ制御
'Access2003は11.0、Access2002は10.0、Access2000は9.0、
'Access97は8.0、Access95は7.0を返します。
Me.ReturnValue = SysCmd(acSysCmdAccessVer)
If ReturnValue = "8.0" Then
Me.import.Visible = False
'ElseIf ReturnValue = "10.0" Then
'Me.import.Visible = False
End If
End Sub
