如何用VBA打开另外一个ACCESS文件

olderdream2007@

如何在A.mdb 中 用VBA打开同文件夹下的B.mdb  (类似于直接用鼠标打开B的效果)。

请高人指点  谢谢

netguestcn

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@

谢谢高人指点 学习中

olderdream2007@

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)