Version Of Access 1

[rgbanse]

I'm using Application.filesearch to read thru a folder.
Is there a way to determine the Access Version of the databases in the folder?
thx
RGB

 

[hymn]

not too sure but have a look at
thread181-419646

Hope this helps
Hymn

 

[rgbanse]

Sorry,
That gives me the version of the parent DB
What i'm trying is;
passing a variable (pull fath of database) and trying to determine its access version
thx
RGB

 

[Ed2020]

Get the version of Jet and then map that to the MS Access version.

This IIf statement will convert Jet version to Access version (up to Access 2000):

Database Version: IIf([tblFileList]![JetVer]=2,"Access 2",IIf([tblFileList]![JetVer]=3,"Access 97",IIf([tblFileList]![JetVer]=4,"Access 2000",IIf([tblFileList]![JetGuessVer]=3,"Est. Access 97",IIf([tblFileList]![JetGuessVer]=4,"Est. Access 2000","Unknown")))))



And this code will tell you what Jet version a database is using:

Public Function JetVer(ByVal strPath As String) As Double
On Error GoTo TrapErr

Dim dbs As DAO.Database

Set dbs = OpenDatabase(strPath)

JetVer = dbs.Version

ExitHere:
Exit Function

TrapErr:
Select Case Err.Number
Case 3033 'Secured database
JetVer = 0
Case Else
JetVer = 9999
End Select
Resume ExitHere

End Function

Ed Metcalfe.

Please do not feed the trolls.....