请高手写个模块，实现单击组合框自动下拉

大懒猫68 · 发表于 2011-11-24 21:34:56

本帖最后由大懒猫68 于 2011-11-24 21:37 编辑

高手能否写个模块，实现单击组合框自动下拉，假设组合框有很多个，我只会用下面的笨办法实现，但我想要用模块功能写出来，我思考了一段时间,这模块功能还不会实现，请高手指点帮忙

Private Sub 籍贯_GotFocus()
Me.籍贯.Dropdown
End Sub

Private Sub 性别_GotFocus()
Me.性别.Dropdown
End Sub

Private Sub 姓名_GotFocus()
Me.姓名.Dropdown
End Sub

tmtony · 发表于 2011-11-25 10:40:00

做个函数
里面写句代码
activecontrol.dropdown

然后将所有下拉框的gotfocus属性设置为这个函数

yehf · 发表于 2011-11-25 10:41:21

看附件

大懒猫68 · 发表于 2011-11-25 11:29:13

非常感谢,都是高手

chuyuchun · 发表于 2011-11-25 11:30:57

顶一哈

tmtony · 发表于 2011-11-25 11:39:28

也可用代码来批量设置GotFocus属性

andymark · 发表于 2011-11-25 22:54:21

用类实现的另一种方法：
http://www.office-cn.net/thread-107647-1-1.html

大懒猫68 · 发表于 2011-11-26 12:58:06

真是人才辈出啊

咱家是猫 · 发表于 2011-11-26 21:32:45

tz-chf 全无必要，写在属性里太隐蔽，以后改起来不方便。
_______________________________
你说的这个问题确实是很烦.但如果改为在窗体的打开事件上用代码给组合框统一挂事件.这就解决了你说的这个问题.

changweiren · 发表于 2011-11-28 23:31:30

既来之则顶之

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 请高手写个模块，实现单击组合框自动下拉

本帖子中包含更多资源

点评

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)