本文介绍一种打开其它数据库的工具菜单中的启动对话框,可解决菜单--工具--启动 中所有的"允许"都取消了.重新打数据库时,菜单栏只有:文件\窗口\帮助.其他内容都没有了,请教:如何才能恢复初始有全部菜单的界面.并且,右键功能也没有了.按鼠标右键都没有反应了的问题。点击下载此附件,可打开附件中的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