How do I programmatically obtain the version of Access??

[yankee428]

I can run application.version on AcXP, but that property does not exist in Ac97. Anyone know how to programmatically get the version number in Ac97?

 

[namliam]

Search and ye shall find...

http://www.access-programmers.co.uk/forums/showthread.php?t=62562&highlight=Version

 

[yankee428]

That is brilliant! Works like a charm, only one problem. I now realize that I need to run this as a VB script instead of an Access Module. Can I use these two modules in a VB 6 script by creating an Access obj?

Thanks

 

[ghudson]

Check out the post I started for it works for all versions of Access...

Get version of Access for each db

 

[yankee428]

thanks hudson, but not really what i am looking for. Not so much concerned about the version of the file was created in as much as the version of the application.

 

[ghudson]

This will give you the version number of the Access program that the opened file is running in...

MsgBox "Access Version = " & SysCmd(acSysCmdAccessVer)

It will work in all versions of Access.

 

[yankee428]

Solution

Ok, here is the solution. If you would like to migrate users one at a time from one version of access to another (Ac97 to AcXP is my example).
1. Leave DB is 97 format
2. Split DB
3. Convert a copy of the FE to XP
4. XP users should use the XP FE, 97 users should use the 97 FE. After you migrate everyone migrate the BE to XP and delete the 97 FE.

If you don't want users to have to choose which FE to use or you don't want to go around changing shortcut files on all the user's desktops you can have all users use this script which will run the appropriate FE for their PC.

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
if WshShell.RegRead("HKCR\Access.Application\CurVer\") _
= "Access.Application.10" _
then _
wshshell.Run "c:\XPFE.mdb"_
else wshshell.Run "c:\97FE.mdb" _
end if

Paste this in a text file and name it anything.vbs and you're off and running (replace 10 with whatever version you would like to test for)