Hello,Everyone!
大家好久,好久,好久不见,真是想死大家了!
今天给大家分享一个小示例。
我们在开发过程中,有这样一个背景,大家做了一个新增窗口,在窗体中输入各种数据,接下去点击保存按钮,然后需要添加新的数据,需要点击清空按钮,那清空按钮的单击事件里我们会去写me!XXX=Null或者me!XXX="",类似这样的代码,如果窗体中有N个控件,那就需要写N个,这样是不是很是麻烦,但做为新时代的后浪,我们是不会这样写的。
SO,上示例!
第一步还是按我们的老规矩,建一个窗体,然后我们在窗体放上N个文本框、组合框、复选框、单选框,类似下图,放的越多越好,也不用放的太整齐,然后大家可以在控件上输入一些数据。当然了不要忘记放一个清空按钮。
第二步就是写代码!代码给大家写好了,大家直接复制就可以了。原理很简单,循环当前窗体中的所有控件,然后判断一下是复选框就让选中为false,如果不是那就为null。
清空按钮单击事件
1On Error Resume Next
2 Dim Ctl As Control
3
4 For Each Ctl In Me
5 Select Case Ctl.ControlType
6 Case acCheckBox
7 Ctl.Value = False
8 Case Else
9 Ctl.Value = Null
10 End Select
11 Next
最后一步就是测试,代码写好了要多动手测试。
好了,大家快去试一下吧!