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

bjcompass

如题。请各位老师给一个例子吧！谢谢。

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
   

复制代码

access新新新手

roych 发表于 2016-6-22 02:33
同一个数据库请使用：currentdb().properties("StartupForm")
否则，请使用dao来打开数据库再检查，详见附 ...

请问
同一个数据库 如何判断当前打开的窗体名。

xinrenq

access新新新手 发表于 2016-6-22 08:12
请问
同一个数据库 如何判断当前打开的窗体名。

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

access新新新手

xinrenq 发表于 2016-6-22 10:14
有一个对象 叫作：screen
这个对象里有个属性是,activeform，指是提当前窗体
screen.activeform.name  ...

谢谢！我测试下。

李力军2

有一个对象 叫作：screen

bjcompass

谢谢roych老师！
原本只是想请教怎样判断本数据库启动窗体，老师还给了一个判断其它数据库启动窗体的例子。
再次感谢1