【Access示例】--用代码打开另一个Access文件

时　间:2017-04-26 10:42:49
作　者:宏鹏   ID：21115  城市：上海
摘　要:用VBA打开另一个Access文件
正　文:

点击下载附件

如下图所示，第一个文件打开两个Data文件：

 代码：

Private Sub Command57_Click()
    '打开有密码的Access的文件
    Dim Acc As New Access.Application
    Acc.Application.OpenCurrentDatabase CurrentProject.Path & "\Data.mdb", , "123" '123是数据库密码
    Acc.UserControl = True '用户激活新打开的文件
End Sub

Private Sub Command75_Click()
    '打开没密码的Access的文件
    Dim Acc As New Access.Application
    Acc.Application.OpenCurrentDatabase CurrentProject.Path & "\Data无密码.mdb"
    Acc.UserControl = True '用户激活新打开的文件
End Sub

 效果演示：