ACC2000: How to Programmatically Save a Database as an MDE File

ID: Q202039

The information in this article applies to:

Microsoft Access 2000

Moderate: Requires basic macro, coding, and interoperability skills.

SUMMARY

This article shows you how to programmatically create an MDE file from an existing database.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

You can use Microsoft Visual Basic for Applications to create an MDE file from your existing Microsoft Access database. You can run the following sample function from any database other than the database that you want to convert to an MDE file. This function has one argument, MyPath, the full path to the database from which to create the MDE file.

NOTE: You can use the SendKeys method to bypass the dialog box. Although this method allows you to programmatically save a database as an MDE file, it may cause an errant "ENTER" to be processed somewhere in one of your programs or open files, so use this method with caution.

Create a new module, and then type the following function:


Function GenerateMDEFile(MyPath As String)

   Dim NAcc As Access.Application

   Set NAcc = CreateObject("Access.Application")

   'The following lines simulate accepting the default
   'name, clicking Make MDE, and clicking Save
   SendKeys MyPath & "{Enter}{Enter}"
   SendKeys "{Enter}"

   NAcc.DoCmd.RunCommand acCmdMakeMDEFile

   Set NAcc = Nothing

End Function

To run this function, do the following:

Click Immediate Window on the View menu to open the Immediate window.

Type ?GenerateMDEFile(<Path&DBName>), where <Path&DBName> is the full path and database name from which you want to create an MDE file. Press ENTER.

NOTE: The resulting MDE file will have the same name as the original database.

REFERENCES

For more information about MDE files, click Microsoft Access Help on the Help menu, type "mde" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

Additional query words:

Keywords : kbdta PgmHowto
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbhowto