Office中国论坛/Access中国论坛

标题: 怎样用代码取得一个access程序的启动窗体名称？ [打印本页]

---

作者: bjcompass    时间: 2016-6-21 18:25
标题: 怎样用代码取得一个access程序的启动窗体名称？
如题。请各位老师给一个例子吧！谢谢。

---

作者: roych    时间: 2016-6-22 02:33
同一个数据库请使用：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
   

复制代码

[attach]59332[/attach]

---

作者: access新新新手    时间: 2016-6-22 08:12

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

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

---

作者: xinrenq    时间: 2016-6-22 10:14

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

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

---

作者: access新新新手    时间: 2016-6-22 10:22

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

谢谢！我测试下。

---

作者: 李力军2    时间: 2016-6-23 08:58
有一个对象 叫作：screen

---

作者: bjcompass    时间: 2016-6-24 10:16
谢谢roych老师！
原本只是想请教怎样判断本数据库启动窗体，老师还给了一个判断其它数据库启动窗体的例子。
再次感谢1

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3