dtermine access DB version

[sramey00]

i would like to determine the version of access the database was created with. i tried using

getobject("c:\...").version

but that returns the current installed version of access.
any help?

Mr. Steve

 

[PHV]

To get the Jet version:
CurrentDB.Version
You may also consider this:
CurrentDB.Properties("AccessVersion")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hermanlaksko]

Function GetVer() 'Access version
Dim ResStr, Ver As Object
ResStr = CurrentDb.TableDefs("YrAttTable").Connect
ResStr = Mid(ResStr, 11, Len(ResStr))
Set Ver = GetObject(ResStr)
GetVer= Ver.Version
End Function


Herman
Say no to macros

 

[sramey00]

thanks...

i have a few hundred access db which are password protected.. im trying to write this script which converts them to 2003 and unlocks them. any know how on this subject? i am having problems unlocking the file.

im using
DoCmd.RunCommand acCmdSetDatabasePassword

to pop up the password box...

Mr. Steve