Office中国论坛/Access中国论坛

标题: 如何用VBA代码开启另一个mde文件？ [打印本页]

作者: xryaccess2 时间: 2007-3-19 01:29
标题: 如何用VBA代码开启另一个mde文件？
有两个mde文件：“code1”，“code2”中，如何在“code1”中用按钮以VBA代码开启另一个mde(如：“mde2”)文件呢？请高手赐教。

作者: 一点通 时间: 2007-3-19 01:58
请参考

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

作者: fan0217 时间: 2007-3-19 02:12
打开别的MDE有什么意图，想获取其中的什么吗？

作者: xryaccess2 时间: 2007-3-19 03:58
标题: 非常感谢一点通，但还是不行，请教!
一点通大师之前给的代码是：

可以用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

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