如何用代码取得程度的启动窗体名和当前打开的窗体名。
这里分两种情况，一种是本数据库启动窗体，另一种是其它数据库启动窗体
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
指提就是当前窗体名
