如何用VBA代码开启另一个mde文件？

xryaccess2

有两个mde文件：“code1”，“code2”中，如何在“code1”中用按钮以VBA代码开启另一个mde(如：“mde2”)文件呢？请高手赐教。

一点通

请参考

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=37339&id=47796&skin=0

fan0217

打开别的MDE有什么意图，想获取其中的什么吗？

xryaccess2

一点通大师之前给的代码是：

可以用OpenCurrentDatabase的方式打开另一个数据库，DoCmd.Quit 退出当前数据库



    Dim appAccess As Access.Application
    Dim strDB As String




    Const strConPathToSamples = "C:\Program " _
          & "Files\Microsoft Office\Office11\Samples\"



    strDB = strConPathToSamples & "Northwind.mdb"



    Set appAccess = _
    CreateObject("Access.Application")



    appAccess.OpenCurrentDatabase strDB
    DoCmd.Quit acQuitSaveNone

但我照样写却不行，(看到那个db1.mdb文件后有个db1.ldb，象是打开了一样，但不风任何窗体，我已在启动项选择了窗体的。)代码如下：

Dim appAccess As Access.Application
Dim strDB As String
     Const strConPathToSamples = "D:\其它不可丢失的资料\软件技术\db1.mdb"
    strDB = strConPathToSamples
    Set appAccess = _
    CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase strDB
    DoCmd.Quit acQuitSaveNone