＃怎样打开指定数据库的指定窗体？＃

eio

[fly]我无知。[/fly]

zhengjialon

打开窗体前首先要打开数据库。

eio

本数据库【直接打开】引用或未用的数据库的【指定窗体】

Trynew

两个办法（我知道的）
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

就是输入密码的代码我不会了