Office中国论坛/Access中国论坛

标题: [求助]：如何在一个ACCESS窗体中启动外部另一个独立的ACCESS数据库？ [打印本页]

作者: Y9X 时间: 2009-3-8 16:25
标题: [求助]：如何在一个ACCESS窗体中启动外部另一个独立的ACCESS数据库？
请教如何在一个ACCESS窗体中启动外部另一个独立的ACCESS数据库，样本在附件内，请路过的高手指点一下。（我对代码不大懂，如果有更便捷的办法的话，请不吝赐教）。谢谢

作者: Henry D. Sy 时间: 2009-3-8 20:19

Dim appAccess As Access.Application
Private Sub Label3_Click()
Dim strPath As String
strPath = CurrentProject.Path & "\b.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strPath
appAccess.Visible = True
End Sub

复制代码

作者: chaojianan 时间: 2009-3-8 21:04
学习，收藏了。

作者: Y9X 时间: 2009-3-9 08:27
谢谢henry, 你又一次帮了我，我马上就可以应用到我的工作中了，谢谢。

作者: Y9X 时间: 2009-3-9 08:57
henry,您好，昨天你帮我解决了《如何在一个ACCESS窗体中启动外部另一个独立的ACCESS数据库？》这个问题，我想接下去再请教你：当在一个ACCESS窗体中已经启动了外部B.MBD，然后要打开C.MDB时，B数据库就会自动关闭，如何能让前一个不关闭？

作者: Henry D. Sy 时间: 2009-3-9 09:29

Option Compare Database
Dim appAccess As Access.Application
Dim appA As Access.Application
Dim strPath As String
Private Sub Command4_Click()
strPath = CurrentProject.Path & "\c.mdb"
Set appA = CreateObject("Access.Application")
appA.OpenCurrentDatabase strPath
appA.Visible = True
End Sub
Private Sub Label3_Click()
strPath = CurrentProject.Path & "\b.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strPath
appAccess.Visible = True
End Sub

复制代码

作者: ACMAIN_CHM 时间: 2009-3-9 20:03
一句就行了。

Shell SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE " & """C:\temp\access\db1.mdb""", vbNormalFocus

复制代码

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: 7777777 时间: 2009-3-15 15:11
dddddddddddddd

作者: 7777777 时间: 2009-3-15 15:12
ddddddddddd

作者: 13555609005 时间: 2009-3-28 13:52
学习，收藏了。

作者: cjnt007 时间: 2011-9-18 21:25
学习，收藏了。

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