打开其它数据库的工具菜单中的启动对话框

时　间:2010-06-14 07:59:34
作　者:王樵民   ID：5203  城市：郑州
摘　要:本文介绍一种打开其它数据库的工具菜单中的启动对话框，可解决菜单--工具--启动   中所有的"允许"都取消了.重新打数据库时,菜单栏只有:文件\窗口\帮助.其他内容都没有了,请教:如何才能恢复初始有全部菜单的界面.并且,右键功能也没有了.按鼠标右键都没有反应了的问题。
正　文:

本文介绍一种打开其它数据库的工具菜单中的启动对话框，可解决菜单--工具--启动   中所有的"允许"都取消了.重新打数据库时,菜单栏只有:文件\窗口\帮助.其他内容都没有了,请教:如何才能恢复初始有全部菜单的界面.并且,右键功能也没有了.按鼠标右键都没有反应了的问题。点击下载此附件，可打开附件中的db2.mdb数据库.其中db3数据库的密码为123，db4无密码。，但必须知道一个窗体的名称,本例中db3、db4中都有一个“表1”的窗体。

其原理见下面的论述：

建议在数据库的当前目录下创建一个新数据库，然后创建一个窗体，其命令按钮的代码如下，就可以设置其它数据库的启动属性
本例中要处理的数据库为db3.mdb,其密码为123，该数据库的一个已知窗体为“表1”，你可根据下面的代码修改成你要处理的数据库。
Private Sub Command0_Click()
 Dim path As String                                                                            '另外一个数据库文件的路径
 path = CurrentProject.Path & "db3.mdb"               '要求打开的文件相对路径及数据库名
 Dim mypassword As String                                                                          '将要打开数据库的密码
 mypassword = "123" '假设db3数据库密码为123
 'mypassword = "" '假设db3数据库没有密码
 Dim new_db                                                '用于创建文件
 Set new_db = CreateObject("access.application")           '创建一个新的ACCESS文件
 new_db.OpenCurrentDatabase path, False, mypassword        '在新文件中打开数据库文件
 new_db.UserControl = True
 new_db.DoCmd.OpenForm "表1" '打开一个已知的窗体
 new_db.DoCmd.RunCommand acCmdStartupProperties '打开工具菜单中的启动对话框
 Set new_db = Nothing
'Application.Quit '关闭当前数据库
End Sub