怎样用代码取得一个access程序的启动窗体名称？

roych

同一个数据库请使用：currentdb().properties("StartupForm")
否则，请使用dao来打开数据库再检查，详见附件：

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

复制代码