Determine version of Access

[Rick Allison]

Is there a function or a way to determine the version of Access?

I want to know if the person is running Access 2000, 2002(xp), or 2003.

Thanks,

Rick

 

[Ricky Hicks [MVP]]

Try this user defined function ...

Public Function fGetVerOfAccess() As String
Dim strTmp As String, strVer As String

strTmp = "Version " & SysCmd(7) & " detected."

Select Case SysCmd(7)
Case "2.0"
strVer = "Access 2.0"
Case "7.0"
strVer = "Access 95"
Case "8.0"
strVer = "Access 97"
Case "9.0"
strVer = "Access 2000"
Case "10.0"
strVer = "Access 2002"
Case "11.0"
strVer = "Access 2003"
End Select

fGetVerOfAccess = strTmp & " - " & strVer

End Function

R. Hicks

--
Ricky Hicks - Access MVP

Is there a function or a way to determine the version of Access?

I want to know if the person is running Access 2000, 2002(xp), or 2003.

Thanks,

Rick

 

[Rick Allison]

I will give it a try. Thanks much!!

--
Rick Allison
Try this user defined function ...

Public Function fGetVerOfAccess() As String
Dim strTmp As String, strVer As String

strTmp = "Version " & SysCmd(7) & " detected."

Select Case SysCmd(7)
Case "2.0"
strVer = "Access 2.0"
Case "7.0"
strVer = "Access 95"
Case "8.0"
strVer = "Access 97"
Case "9.0"
strVer = "Access 2000"
Case "10.0"
strVer = "Access 2002"
Case "11.0"
strVer = "Access 2003"
End Select

fGetVerOfAccess = strTmp & " - " & strVer

End Function

R. Hicks

--
Ricky Hicks - Access MVP

Is there a function or a way to determine the version of Access?

I want to know if the person is running Access 2000, 2002(xp), or 2003.

Thanks,

Rick