Article ID: 202039
Article Last Modified on 10/11/2006
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, follow these steps:
Keywords: kbhowto KB202039