用代码打开指定Access文件

用VBA代码实现打开指定文件夹里面一个Access文件的方法。

‘打开当前文件夹里面一个access文件的方法
Private Sub Command75_Click()
‘打开没密码的Access的文件
Dim Acc As New Access.Application

Acc.Application.OpenCurrentDatabase CurrentProject.Path & “Data无密码.mdb”
Acc.UserControl = True ‘用户激活新打开的文件
End Sub

‘打开指定路径文件夹里面一个access文件的方法
Private Sub Command75_Click()
‘打开没密码的Access的文件
Dim Acc As New Access.Application
‘打开D盘文件夹里面的数据库

Acc.Application.OpenCurrentDatabase “D:Data无密码.mdb”
Acc.UserControl = True ‘用户激活新打开的文件
End Sub

说 明：
如需要打开accdb格式的数据库，则上面代码直接改成你的accdb后缀名的文件名称即可。

用Access VBA代码实现打开指定文件夹里面一个access文件的方法，用代码打开指定MDB数据库的命令，用代码打开指定ACCDB数据库的命令【Access软件 】