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

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

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

同时我们判断当前打开的窗体名可以用对象 ：screen

这个对象里有个属性是,activeform，指是提当前窗体screen.activeform.name 指提就是当前窗体名