如何用VBA打開另外一個ACCESS文件

olderdream2007@

如何在A.mdb 中 用VBA打開同文件夾下的B.mdb  (類似于直接用鼠標(biāo)打開B的效果)。

請高人指點(diǎn)  謝謝

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@

謝謝高人指點(diǎn) 學(xué)習(xí)中

olderdream2007@

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

請高人指點(diǎn)，代碼中db對象是什么作用？看代碼中打開數(shù)據(jù)庫庫語句是acc.OpenCurrentDatabase strDbName，為何還要有db.  疑惑中???

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