473,321 Members | 1,748 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,321 software developers and data experts.

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
Nov 13 '05 #1
4 7109
On Fri, 18 Mar 2005 00:43:45 GMT, "Br@d!ey" <br@d.nowhere.com> wrote:

Check this out:
CurrentProject.Properties("AccessVersion")
CurrentProject.Properties("Build")

-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


Nov 13 '05 #2
Br
Tom van Stiphout wrote:
On Fri, 18 Mar 2005 00:43:45 GMT, "Br@d!ey" <br@d.nowhere.com> wrote:

Check this out:
CurrentProject.Properties("AccessVersion")
Returns "08.50" on an "Access 2000 (9.0.0.6620) SP3" machine?
CurrentProject.Properties("Build")
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 GetAccessEXEVersion() As String
On Error Resume Next
Dim AccessVer As String, AccessVerDesc As String
AccessVer = fGetProductVersion(Application.SysCmd(acSysCmdAcce ssDir) &
"msaccess.exe")
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.9999": AccessVerDesc = "Microsoft
Access 2003 (" & AccessVer & ")"
Case "11.0.6000.0" To "11.0.69999.9999": AccessVerDesc = "Microsoft
Access 2003 (" & AccessVer & ") SP1"
Case Else: AccessVerDesc = ""
End Select
If SysCmd(acSysCmdRuntime) Then AccessVerDesc = AccessVerDesc & "
Run-time"
GetAccessEXEVersion = 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

Nov 13 '05 #3
"Br@d!ey" <br@d.nowhere.com> 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.9999": AccessVerDesc = "Microsoft
Access 2003 (" & AccessVer & ")"


Access 2002 has an SP3.

--
Lyle
--
Nov 13 '05 #4
Br
Lyle Fairfield wrote:
"Br@d!ey" <br@d.nowhere.com> 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.9999": AccessVerDesc =
"Microsoft Access 2003 (" & AccessVer & ")"


Access 2002 has an SP3.


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

Br@dley
Nov 13 '05 #5

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

4
by: Yasutaka Ito | last post by:
Hi, Is there a way to determine which version of .NET Framework any given assembly is built with? thanks! -Yasutaka
6
by: seansan | last post by:
Hi, Does anyone know how to read the full access version number in visual basic? I need to know if the current program instance is SR-1 or SP-3, etc... I currently use: DB_DAO =...
1
by: Dana King | last post by:
Hi, I was wondering if anyone knows how to programmatically determine what version an Access Database is in? Thanks in advance...
1
by: Tarren | last post by:
I have to write an auto patcher for all of the client pcs, but some are running different versions of office. How can I determine which version of Microsoft Office is installed? Do I get it...
3
by: balakrishnan.dinesh | last post by:
hi frnds How to determine the version of the MSXML installed on a computer and How to determine the version of the MSXML used by Internet Explorer through javascript code. Can anyone say me ,...
8
by: G .Net | last post by:
Hi How can I find which version of Access is installed on a computer from within a vb.net application? G
3
dima69
by: dima69 | last post by:
Hi all. I use a following code to run a procedure in another application: Dim App as Access.Application set App = CreateObject("C:\MyApp.mde") App.Run "MyProc" ... The problem is that when...
2
by: auditor.software | last post by:
Hi. I need to run a function from another database, using: Dim App as Access.Application Set App = CreateObject("C:\LibDB.mde") App.Run "MyFunc", ... I use Access2K database format, and I...
2
by: mjworks2009 | last post by:
Is there any way VB can detect the current version of ms access ruining in the system, and return a message that will say (YOUR MS ACCESS VERSION IS then the version). thanks a lot for helping...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.