设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 7103|回复: 3

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

[复制链接]
发表于 2014-8-29 17:08:28 | 显示全部楼层 |阅读模式
如何在A.mdb 中 用VBA打开同文件夹下的B.mdb  (类似于直接用鼠标打开B的效果)。

请高人指点  谢谢

发表于 2014-8-31 11:25:04 | 显示全部楼层
本帖最后由 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
 楼主| 发表于 2014-9-6 07:35:35 | 显示全部楼层
谢谢高人指点 学习中
 楼主| 发表于 2014-9-6 07:57:26 | 显示全部楼层
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)

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-28 22:56 , Processed in 0.090839 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表