Office中国论坛/Access中国论坛

标题: 如何用VBA打开另外一个ACCESS文件 [打印本页]

作者: olderdream2007@ 时间: 2014-8-29 17:08
标题: 如何用VBA打开另外一个ACCESS文件
如何在A.mdb 中用VBA打开同文件夹下的B.mdb (类似于直接用鼠标打开B的效果)。

请高人指点谢谢

作者: netguestcn 时间: 2014-8-31 11:25
本帖最后由 netguestcn 于 2014-8-31 15:59 编辑

Private Sub Command1_Click()
On Error GoTo Command1_Click_Err
Static acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = CurrentProject.Path & "\B.mdb"

Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False)
'Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, "

WD=123456")
acc.OpenCurrentDatabase strDbName
db.Close
Set db = Nothing

Command1_Click_Exit:
Exit Sub

Command1_Click_Err:
MsgBox Err.Description
Resume Command1_Click_Exit

End Sub

作者: olderdream2007@ 时间: 2014-9-6 07:35
谢谢高人指点学习中

作者: olderdream2007@ 时间: 2014-9-6 07:57

netguestcn 发表于 2014-8-31 11:25
Private Sub Command1_Click()
On Error GoTo Command1_Click_Err
Static acc As Access.Applica ...

请高人指点，代码中db对象是什么作用？看代码中打开数据库库语句是acc.OpenCurrentDatabase strDbName，为何还要有db. 疑惑中???

Dim db As DAO.Database
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False)

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