2003 compatibilty

[Andy]

I have an application which is complied at Ver 9 (Access 2000) as an mde
database. I have another application also complied at Ver 9 (Access 2000) as
a mdb database.

If I open the second 2K mdb database using Access 2003 it opens fine but
when this 2K database tries to open the first 2K mde database from within a
vba module using the OpenDatabase statement it fails with error 3041 'Cannot
open a database creates with a previous version of your application'.

Any ideas?

 

[John Spencer]

I think you are out of luck. If you want to open an mde you have to have
the same version that created the mde.

So you can get the mdb for the first database and convert it to 2003 format
and then use 2003 to make an mde.
OR
Get the mdb for the first database and use that with 2003
OR
Use Access 2000.

 

[Granny Spitz via AccessMonster.com]

If I open the second 2K mdb database using Access 2003 it opens fine but
when this 2K database tries to open the first 2K mde database from within a
vba module using the OpenDatabase statement it fails with error 3041 'Cannot
open a database creates with a previous version of your application'.

Something smells fishy in the state of Denmark. Access 2003 can open mdb and
mde files in Access 2000, 2002, and 2003 database file formats. It can't
open Access 95 and 97 mdb files unless it first converts them to Jet 4.0
format or *enables* them. Access 2003 can't open Access 95 and 97 mde files
because mde's can't be converted or enabled.

Double-check that your mde file isn't an Access 97 mde. If it truly is an
Access 2000 mde, then please post your VBA code that opens the Access 2000
mde (dim statements, too).

 

[John Spencer]

Looks as if I might be wrong on this. Please see Granny Spitz's response.

 

[Andy]

Thanks Granny - Yep truly trying to open 2k mde.

I'll post code on Monday

Andy.

 

[Andy]

As promised :-

Dim dbsFE As DAO.Database
Dim tdfLinked As DAO.TableDef
Dim dbsAdmin As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim SQLcmd As String
Dim TML As String
Dim FE As String
Dim BE As String
Dim tblName As String
Dim AdminLoc As Variant
Dim cc As Integer
Dim rc As Integer
Dim FEName As String
Dim FENameL As String
Dim BESearch As String
Dim BESearch1 As String
Dim FELen As Integer
Dim FELen2 As Integer
Dim BEN As Variant
Dim Ver As Variant
Dim Shellstr As String
Dim SDbl As Double
Dim DBVer As String
Dim DL As String
Dim DF As String

On Error GoTo Err_Command9_Click

DL = Me.cboDL.Value
DF = "AL." & Format(CDate(Date), "yymmdd") & "." & Format(CDate(Time),
"hhmmss")

FE = DL & ":\" & DF & "\AL" & Ver & ".mde"

MsgBox "Now refreshing links to your Back End database ..."

DoCmd.Hourglass True

' Open the FE database in order to link tables

Set dbsFE = OpenDatabase(FE, True)

Fails at Open statement (the databse referred to by variable FE is a 2K
database)