Solved

finding version of access mdb that is given to you.. (older file)

Posted on 2015-01-29
8
270 Views
Last Modified: 2015-01-31
This access file is probably 2000 or 2002 or 2003.. is there a way to confirm what exactly is the version of the access file (mdb).

thanks.
0
Comment
Question by:25112
8 Comments
 
LVL 35

Assisted Solution

by:PatHartman
PatHartman earned 72 total points
ID: 40579093
Set db = CurrentDb()
Me.txtAccessVersion = db.Properties("AccessVersion")
Me.txtJetVersion = db.Version

This is code behind a form hence the "Me." references.
0
 
LVL 29

Assisted Solution

by:IrogSinta
IrogSinta earned 72 total points
ID: 40579103
Well one way would be to open the database and type CTRL-G, then in the Immediate Window, enter the following:
?SysCmd(acSysCmdAccessVer)

If the result you get is 9.0, you have Access 2000.
8.0 - Access 97
9.0 - Access 2000
10.0 - Access 2002
11.0 - Access 2003

Ron
0
 
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 284 total points
ID: 40579108
That tells you the version of Microsoft Access you are in ... not the version of the actual MDB format.

I have an A2000 mdb  open in A2013 ...
?SysCmd(acSysCmdAccessVer)
15.0
0
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 284 total points
ID: 40579113
And .Version just gives you a number like 4.0 ... which is not to useful
0
 
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 284 total points
ID: 40579145
OK I found this ... and it seems to be accurate ... will need to add Cases for later versions
Basically it's using CurrentProject.FileFormat

Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "C:\Access2003Clients\BLM\Data\AMAPSData.mdb"

intFormat = objAccess.CurrentProject.FileFormat

Select Case intFormat
    Case 2: Debug.Print "Microsoft Access 2"
    Case 7: Debug.Print "Microsoft Access 95"
    Case 8: Debug.Print "Microsoft Access 97"
    Case 9: Debug.Print "Microsoft Access 2000"
    Case 10: Debug.Print "Microsoft Access 2003"

End Select
0
 
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 284 total points
ID: 40579152
Seems for an A2013 ACCDB  the number is 12, which means that ...so ???

So I'm guessing from this  we cannot definitely tell exactly WHICH version of Access it really is.
Not sure what 11 - if it even exists - would be.  Might be A2007 ... IF ... there was any change between an A2007, A2010 and A2013 ACCDBs ...

And since 9 is 2000 and 10 is 2003 (I tested both of these) ... then A2002 is also 9 ... and I don't think there was any file format change between A2000 and A2002 ( aka XP).
0
 
LVL 4

Accepted Solution

by:
Monika Bharti earned 72 total points
ID: 40579192
Hi,

I think i got a relevant article written by David Klein to determine the version of (.mdb) Access file. The following article helps you to resolve your query of finding version of access mdb, he tried to accomplish that without opening the Access mdb database.

http://www.ssw.com.au/ssw/kb/KB.aspx?KBID=Q989827
0
 
LVL 5

Author Comment

by:25112
ID: 40582091
helped.thanks.
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

808 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question