(...)
is there any way i can change a mde file to a mdb file
Check this link:
http://www.everythingaccess.com/mdeconversion.htm
They can restore also source VBA code.
Anyway you can convert MDE to MDB quickly (but without VBA code) using
something like this:
Public Sub MDE_2_MDB()
Dim sMDE As String, sMDB As String, sDir As String, sTitle As String
Dim sFilter As String, lNr As Long, Bin As String
WizHook.Key = 51488399
sDir = CurrentProject.Path
sFilter = "MDE files (*.mde)"
sTitle = "Open MDE file"
WizHook.GetFileName 0, "", sTitle, "", sMDE, sDir, sFilter, 0, 0, 0,
True
If Not (sMDE Like "*.mde") Then
MsgBox "Bad file extension", 64
Else
Bin = Space(FileLen(sMDE))
lNr = FreeFile
Open sMDE For Binary Access Read Shared As #lNr
Get #lNr, 1, Bin
Close #lNr
Bin = Replace(Bin, StrConv("MDE", vbUnicode), StrConv("MDB",
vbUnicode))
sMDB = Replace(sMDE, ".mde", "_restore.mdb")
lNr = FreeFile
Open sMDB For Binary Access Write Shared As #lNr
Put #lNr, 1, Bin
Close #lNr
End If
End Sub
KrisP, MVP, Poland
www.access.vis.pl