On Wed, 22 Feb 2006 22:52:27 +1100, "Br@dley" <nu**@mail.oz> wrote:
Bradley probably meant that the CODE elements are removed. The design
elements are still available, using code like below. Also, the tables
and queries are still fully available.
Sub TestMde()
Const ThePath As String = "C:\Program Files\Microsoft
Office97\Office\Samples\Northwind.mde"
Const TheTempFolder As String = "C:\Junk\"
Dim db As DAO.Database
Dim cnt As DAO.Container
Dim doc As DAO.Document
Dim appData As Access.Application
Dim f As Form
Dim c As Control
Set appData = fGetRefNoAutoexec(ThePath) 'See
http://www.mvps.org/access/api/api0068.htm
Set db = appData.CurrentDb()
'DBEngine.Workspaces(0).OpenDatabase(ThePath)
Set cnt = db.Containers("Forms")
For Each doc In cnt.Documents
'appData.SaveAsText acForm, doc.Name, TheTempFolder & cnt.Name
& "_" & doc.Name & ".txt" 'Works for forms without code?
appData.DoCmd.OpenForm doc.Name, acNormal
Set f = appData.Forms(doc.Name)
For Each c In f
'Just showing you have access to all controls and
properties. Just save them in a meaningful way so you can recreate
them.
Debug.Print f.Name, c.Name, c.Left
Next c
DoCmd.Close acForm, f.Name
Next doc
db.Close
appData.CloseCurrentDatabase
Set appData = Nothing
End Sub
-Tom.
Bernard D wrote: Hi,
I've just been asked to bring a couple of Access 97 apps up to date.
The source files are 'difficult to locate' as they were done in 1999.
I have the mde files, but Access says it can't simply convert these to
Access 2003 mde's.
Is it possible to revert these files back to their original format,
and if so how?
Nope. The design elements are removed from the MDE so it can't be
converted/reverted/etc.
