Making mde using code

[Guest]

How to I make an mde using vba code?

 

[Jeff Conrad]

in message:

How to I make an mde using vba code?

Here is some code by MVP Dirk "Yoda" Goldgar:

'----- start of code -----
Sub MakeMyMDE()

Dim accApp As Access.Application

Const PathToMDB As String = "C:\Your Path\YourApp.mdb"
Const PathToMDE As String = "C:\Your Path\YourApp.mde"

Set accApp = New Access.Application

accApp.SysCmd 603, PathToMDB , PathToMDE

accApp.Quit

Set accApp = Nothing

End Sub
'----- end of code -----