How to determine Access version programatically ?

[Br]

We're using an Access2000 ADP with an SQL2000 back-end. Because SQL2000
was released after Access2000 you need to be running Access2000 SP1 (2
or 3) for it to work properly.

Is there an easy way for the ADP to determine programatically wether the
correct service pack is installed (or if they are using a newer version
such as 2002/2003)?

Ta.

Br@dley

[Tom van Stiphout]

On Fri, 18 Mar 2005 00:43:45 GMT, "Br@d!ey" <[e-mail].c om> wrote:

Check this out:
CurrentProject. Properties("Acc essVersion")
CurrentProject. Properties("Bui ld")

-Tom.

We're using an Access2000 ADP with an SQL2000 back-end. Because SQL2000
was released after Access2000 you need to be running Access2000 SP1 (2
or 3) for it to work properly.

Is there an easy way for the ADP to determine programatically wether the
correct service pack is installed (or if they are using a newer version
such as 2002/2003)?

Ta.

Br@dley

[Br]

Tom van Stiphout wrote:

On Fri, 18 Mar 2005 00:43:45 GMT, "Br@d!ey" <[e-mail].c om> wrote:

Check this out:
CurrentProject. Properties("Acc essVersion")
Returns "08.50" on an "Access 2000 (9.0.0.6620) SP3" machine?
CurrentProject. Properties("Bui ld")
Returns "6620" which is a little more helpful. I need the full version
as users could be using Access 2000/2002/2003.

Thanks Tom

I ended up using some code from
http://www.mvps.org/access/api/api0065.htm

Since different installations can actually have slightly different
version numbers I used a range to determine which version & service pack
it is. It seems to work ok even though it's a bit "clunky".

Note: The version number displayed in Access 2000 is actually the
version of the file MSO9.DLL. My code checks the version on MSACCESS.EXE
as this is contant across all Access versions. The version on this file
however is slightly different.

eg.

Function GetAccessEXEVer sion() As String
On Error Resume Next
Dim AccessVer As String, AccessVerDesc As String
AccessVer = fGetProductVers ion(Application .SysCmd(acSysCm dAccessDir) &
"msaccess.e xe")
Select Case AccessVer
Case "9.0.0.0000 " To "9.0.0.2999 ": AccessVerDesc = "Microsoft Access
2000 (" & AccessVer & ")"
Case "9.0.0.3000 " To "9.0.0.3999 ": AccessVerDesc = "Microsoft Access
2000 (" & AccessVer & ") SP1"
Case "9.0.0.4000 " To "9.0.0.4999 ": AccessVerDesc = "Microsoft Access
2000 (" & AccessVer & ") SP2"
Case "9.0.0.6000 " To "9.0.0.6999 ": AccessVerDesc = "Microsoft Access
2000 (" & AccessVer & ") SP3"
Case "10.0.2000. 0" To "10.0.2999. 9": AccessVerDesc = "Microsoft
Access 2002 (" & AccessVer & ")"
Case "10.0.3000. 0" To "10.0.3999. 9": AccessVerDesc = "Microsoft
Access 2002 (" & AccessVer & ") SP1"
Case "10.0.4000. 0" To "10.0.4999. 9": AccessVerDesc = "Microsoft
Access 2002 (" & AccessVer & ") SP2"
Case "11.0.0000. 0" To "11.0.59999.999 9": AccessVerDesc = "Microsoft
Access 2003 (" & AccessVer & ")"
Case "11.0.6000. 0" To "11.0.69999.999 9": AccessVerDesc = "Microsoft
Access 2003 (" & AccessVer & ") SP1"
Case Else: AccessVerDesc = ""
End Select
If SysCmd(acSysCmd Runtime) Then AccessVerDesc = AccessVerDesc & "
Run-time"
GetAccessEXEVer sion = AccessVerDesc
End Function

Br@dley

-Tom.

We're using an Access2000 ADP with an SQL2000 back-end. Because
SQL2000 was released after Access2000 you need to be running
Access2000 SP1 (2 or 3) for it to work properly.

Is there an easy way for the ADP to determine programatically wether
the correct service pack is installed (or if they are using a newer
version such as 2002/2003)?

Ta.

Br@dley

[Lyle Fairfield]

"Br@d!ey" <[e-mail].c om> wrote in news:Bfs_d.2166 $C7.2079@news-
server.bigpond. net.au:

Case "10.0.4000. 0" To "10.0.4999. 9": AccessVerDesc = "Microsoft
Access 2002 (" & AccessVer & ") SP2"
Case "11.0.0000. 0" To "11.0.59999.999 9": AccessVerDesc = "Microsoft
Access 2003 (" & AccessVer & ")"

Access 2002 has an SP3.

--
Lyle
--

[Br]

Lyle Fairfield wrote:

"Br@d!ey" <[e-mail].c om> wrote in news:Bfs_d.2166 $C7.2079@news-
server.bigpond. net.au:

Case "10.0.4000. 0" To "10.0.4999. 9": AccessVerDesc = "Microsoft
Access 2002 (" & AccessVer & ") SP2"
Case "11.0.0000. 0" To "11.0.59999.999 9": AccessVerDesc =
"Microsoft Access 2003 (" & AccessVer & ")"

Access 2002 has an SP3.

Ta. None of the people we deal with use 2002 anyway:)

Br@dley