这段代码开启数据库时,无法先最大化,请问怎样修改?

真主

Private Sub Form_Open(Cancel As Integer)

    Dim db2_path As String                                    '另外一个数据库文件的路径

    db2_path = CurrentProject.Path & "\系统前端.mdb"          '要求打开的文件相对路径

    Dim mypassword As String                                  '将要打开数据库的密码

    mypassword = "4575"

    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 "A201"                              '打开指定的窗体

    new_db.DoCmd.OpenForm "A207"                              '打开指定的窗体

    Application.Quit                                          '关闭当前的文件

End Sub

[此贴子已经被作者于2005-9-15 16:16:04编辑过]

真主

这个问题请大家帮忙看看,怎样解决?

nbzwjyh

同求

真主

顶上,希望有人搞定!

真主

再顶上,希望有人搞定!

真主

再顶上,希望有人搞定!

wu8313

楼主，你是否认为 Application.Quit 这一句 和注释意义相同呢？

真主

注释是有不妥,但我说的最大化第二开启库不知有没办法解决