I would like to know the most simple way to determine whether a database has been Enabled or Converted to Access 2000, preferably without having to open it.
Anyone know if such a thing?
Thanks,
Randy
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » Determine whether Converted or Enabled (A2K)
Ok, I have several sites that have installed Access 2000. The users are not very PC friendly. Each site has many databases that have either been enabled in, or converted to Access 2000. I need to find out what the ‘state’ is of each database.
I suppose that they could try to create a new query, form, etc. and see if it let’s them, but that wouldn’t be conclusive evidence that it’s an enabled database since someone may have given them a database that prohibits that. But especially, I emphasize that they are not PC friendly; walking them through this for each database will be very time consuming.
I thought that their might be a way to tell programatically whether a database is enabled or converted. I thought of creating a module with the test and either having them import it to each database (I could have them select the database and export it from my utility), or perhaps perform the test directly from my test database.
I can’t find out if there even is such a property/test that I can use.
Thanks for your help.
Randy
This function will return Enabled or converted for the given mdb (with path)
Set the reference to Microsoft DAO 3.6 Object Library
Use it as TestVersion(“c:My DocumentsMyDatabase.mdb”)
Function TestVersion(strFile As String) As String Dim wrkJet As Workspace Dim db As DAO.Database Set wrkJet = CreateWorkspace("", "admin", "") Set db = wrkJet.OpenDatabase(strFile) Select Case db.Properties("version") Case "3.0" TestVersion = "Enabeld" Case "4.0" TestVersion = "Converted" Case Else TestVersion = "Unknow" End Select Set db = Nothing Set wrkJet = Nothing End Function
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.
Notifications