|
但是这样每次打开一个窗体都要起动一次ACCESS,以下的代码就没有这现象,但我不会将他们结合起来[em04]
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" '打开指定的窗体
只有再次麻烦andymark版主了[em04] |
|