Office中国论坛/Access中国论坛

标题: [求助]如何用代码把一个MDB文件生成MDE[已解决] [打印本页]

作者: andymark 时间: 2007-2-10 01:17
标题: [求助]如何用代码把一个MDB文件生成MDE[已解决]
怎样才能在一个MDE或MDB文件,把另一个MDB生成mde 文件

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

在microsoft找到的文章,试验不成功

原文:http://support.microsoft.com/kb/202039/en-us

[此贴子已经被作者于2007-2-9 17:46:59编辑过]

作者: hi-wzj 时间: 2007-2-10 01:24
可以呀？

是否因为您测试用的mdb版本和您所使用的版本不相同？

比如2003版默认保存的是2000版格式的文件，需要升级为2003版的才可以生成mde文件。

作者: andymark 时间: 2007-2-10 01:45
我把保存格式转换成2003后还是不行

作者: andymark 时间: 2007-2-10 01:46
用下面代码已解决:

   Dim accessApplication As Access.Application
   Set accessApplication = New Access.Application

With accessApplication
      .SysCmd 603, sourceDB, targetDB
End With

Set accessApplication = Nothing

作者: qlm 时间: 2007-2-10 02:20
[em17]怎么想出来的

有没有mde->mdb的方法

作者: 一点通 时间: 2007-2-10 02:37
又多了一个生成MDB的方法,谢谢分享

作者: zzcjp 时间: 2009-7-17 16:52
不行啊，运行到：.SysCmd 603, sourceDB, targetDB 提示非法函数调用

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)