一、问题描述:

如何用代码取得程度的启动窗体名和当前打开的窗体名。

二、解答:

这里分两种情况，一种是本数据库启动窗体，另一种是其它数据库启动窗体

1、同一个数据库请使用：

currentdb().properties("StartupForm")

2、不同的数据库，用DAO来检查

具体代码如下：

Private Sub Command0_Click()
    Dim db As Database
    Set db = dao.OpenDatabase(CurrentProject.path & "/test.mdb")
    MsgBox "文件test的启动窗体是：" & db.Properties("startupform")
    db.Close    
End Sub