[求助]：如何在一个ACCESS窗体中启动外部另一个独立的ACCESS数据库？

Y9X

请教如何在一个ACCESS窗体中启动外部另一个独立的ACCESS数据库，样本在附件内，请路过的高手指点一下。（我对代码不大懂，如果有更便捷的办法的话，请不吝赐教）。谢谢

Henry D. Sy

1. Dim appAccess As Access.Application
   
2. Private Sub Label3_Click()
   
3.     Dim strPath As String
   
4.     strPath = CurrentProject.Path & "\b.mdb"
   
5.     Set appAccess = CreateObject("Access.Application")
   
6.     appAccess.OpenCurrentDatabase strPath
   
7.     appAccess.Visible = True
   
8. End Sub

复制代码

chaojianan

学习，收藏了。

Y9X

谢谢henry, 你又一次帮了我，我马上就可以应用到我的工作中了，谢谢。

Y9X

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

Henry D. Sy

1. Option Compare Database
   
2. Dim appAccess As Access.Application
   
3. Dim appA As Access.Application
   
4. Dim strPath As String
   
5. 
   
6. Private Sub Command4_Click()
   
7.     strPath = CurrentProject.Path & "\c.mdb"
   
8.     Set appA = CreateObject("Access.Application")
   
9.     appA.OpenCurrentDatabase strPath
   
10.     appA.Visible = True
    
11. End Sub
    
12. 
    
13. Private Sub Label3_Click()
    
14.     strPath = CurrentProject.Path & "\b.mdb"
    
15.     Set appAccess = CreateObject("Access.Application")
    
16.     appAccess.OpenCurrentDatabase strPath
    
17.     appAccess.Visible = True
    
18. End Sub

复制代码

ACMAIN_CHM

一句就行了。

1. 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

dddddddddddddd

7777777

ddddddddddd

13555609005

学习，收藏了。