求助：如何用VBA打开另外一个access

大海　发表于：2015-09-30 14:36:00 　

打开access代码如下：

Private Sub 打开access_Click()
Dim acc As String
Dim strDB As String

On Error Resume Next

acc = Me.数据库名
strDB = CurrentProject.Path & "\" & acc & ".mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
End Sub

为什么闪一下就关闭了，请问要如何修改代码。

点击下载此附件

Top

杜超发表于：2015-10-01 11:08:40

这样写

Dim db2_path As String '另外一个数据库文件的路径
db2_path = CurrentProject.Path & "\db2.mdb" '要求打开的文件相对路径
Dim mypassword As String '将要打开数据库的密码
mypassword = "123"
Dim new_db '用于创建文件
Set new_db = CreateObject("access.application") '创建一个新的ACCESS文件
new_db.OpenCurrentDatabase db2_path, False , mypassword '在新文件中打开数据库文件
'MsgBox "[db2] 的 [窗体1] 已经打开,本数据库即将关闭!" '提示
'new_db.UserControl = True '用户激活新打开的文件
'new_db.DoCmd.OpenForm "窗体1" '打开指定的窗体
'Application.Quit '关闭当前的文件

Top

大海发表于：2015-10-01 19:39:24

谢谢！杜超老师。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

求助：如何用VBA打开另外一个access