Hi All
I hope every one have nice day like me .....:)

'Task to Acheive
'Make Destination mdb file Executable

FileCopy Me.txtFileName, DirectoryFileName
'where txtFileName = Name of Source file
'DirectoryFilename = Destination File Name



'Trying to change directory with no reason assuming it will
'change working folder

ChDir txtDirectoryPath

' Make it executable but not working
DoCmd.RunCommand acCmdMakeMDEFile

Any miricale programmer

Regards

Ayaz

A replicated database can't be saved as an .mde file; however, once a database is saved as an .mde file, it can be replicated.

Type "MDE Property" in the Access VBA help cbo for more details.

IOW, you can't create an mde with a file copy method.

HTH

mmcdonal

Hi mmcdonal

Thanks for your review

FileCopy is copying mdb file to different location and then i was trying to make mde from that mde file which stores on different location by using Docmd.RunCommand acCMmdMakeMDEFile

regards
Ayaz

Mistype

I was trying to make mde from that mdb file which stores on different location by using Docmd.RunCommand acCMmdMakeMDEFile

Hi

I've found this article on http://support.microsoft.com/kb/q202039/
I tried this but its opening dialog box asking to save mde and then keep asking to SaveAs

Microsoft explain it very simple but implementation is just like microsoft itself :)

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

Any idea, suggestion, advice

regards

Ayaz

You always have to use the Save As when doing an MDE since you can't save over the mdb. In other words, the file is an mdb, to SAVE AS an mde, you have to use that dialog box. Add commas after this line and see if there are clauses that allow you to prevent the save as prompt:

NAcc.DoCmd.RunCommand acCmdMakeMDEFile, , , ,

Did that help?

mmcdonal

NAcc.DoCmd.RunCommand acCmdMakeMDEFile, , , ,
 when press commma keys its shows RunCommand(Command As AcCommand)

But cant work invalid syntax error

Ayaz

Function GenerateMDEFile(MyPath As String)

    On Error Resume Next

    Dim NAcc As Access.Application
    Dim MDEName As String

    Set NAcc = New Access.Application

    'here switch the mdb extension with .mde
    'test if it has already been created

    MDEName = Left$(MyPath, Len(MyPath) - 4) & ".mde"

    If Not FileMDEExists(MDEName) Then
        SendKeys MyPath & "{Enter}{Enter}"
        SendKeys "{Enter}"
        NAcc.DoCmd.RunCommand acCmdMakeMDEFile
    Else
        MsgBox "this mde file already exists, specify a different name."
        Exit Function
    End If

    Set NAcc = Nothing


End Function

Public Function FileMDEExists(ByVal FileSpec As String) As Boolean
On Error Resume Next
FileMDEExists = (GetAttr(FileSpec) And vbDirectory) = vbNormal
End Function

<b>Still trying to open box and trying to save as mde but not cearting mde</b>

Any Idea Please its still not working