Office中国论坛/Access中国论坛

标题: ＃怎样打开指定数据库的指定窗体？＃ [打印本页]

作者: eio 时间: 2002-12-7 06:03
标题: ＃怎样打开指定数据库的指定窗体？＃
[fly]我无知。[/fly]

作者: zhengjialon 时间: 2002-12-7 16:01
打开窗体前首先要打开数据库。

作者: eio 时间: 2002-12-7 19:00
标题: 我想在
本数据库【直接打开】引用或未用的数据库的【指定窗体】

作者: Trynew 时间: 2002-12-7 21:10
两个办法（我知道的）
1、用超链：直接在按钮（控件）的“超级链接地址”上选定数据库，“超级链接子地址”上，用书签按钮选窗体名。也可动态赋值：
Me.命令1.HyperlinkAddress = "MdbName.mdb"
Me.命令1.HyperlinkSubAddress = "Form FormName"
Me.命令1.ControlTipText = "Click to Open FormName"
2、用Access.Application对象：
Dim appAccess As Access.Application
' 将字符串初始化为数据库的路径。
Dim strDB As String
strDB = CurrentProject.Path & "\MdbName.mdb"
' 创建 Microsoft Access 的实例。
Set appAccess = _
CreateObject("Access.Application")
' 在 Microsoft Access 窗口中打开数据库。
appAccess.OpenCurrentDatabase strDB
' 打开指定窗体。
appAccess.DoCmd.OpenForm "FormName"
' 显示窗体
appAccess.Visible = True

作者: eio 时间: 2002-12-7 21:53
标题: OK！
就是输入密码的代码我不会了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)