Access has an undoc'd (and thus unsupported) property called AccessVersion
on all mdbs. This is what you need to check. I don't remember the exact
values for each version, this code verifies if the mdb is an Access 97 one.
'******* Code Start *******
Function fIs97MDB(strRemoteDB As String) As Boolean
Dim lowrk As DAO.Workspace
Dim lodb As DAO.Database
On Error GoTo Err_handler
Set lowrk = CreateWorkspace("DownsizerWorkSpace", "Admin", "", dbUseJet)
Set lodb = lowrk.OpenDatabase(strRemoteDB)
With lodb
fIs97MDB = (.Properties("AccessVersion") > "07.00")
End With
Exit_Here:
lodb.Close
Set lodb = Nothing
lowrk.Close
Set lowrk = Nothing
DoEvents
Exit Function
Err_handler:
fIs97MDB = False
Resume Exit_Here
End Function
'******* Code End *******
HTH
--
Dev Ashish (Just my $.001)
---------------
The Access Web ( http://home.att.net/~dashish )
---------------
Mike <olsz...@fs.com> wrote in message news:7hekj6$934$1...@news.mr.net...
: I need to write an install script that will include updating an existing
:
: