Office中国论坛/Access中国论坛

标题: 【求助】清空后如何保存有默认值控件的值 [打印本页]

作者: 紫风 时间: 2014-7-16 11:37
标题: 【求助】清空后如何保存有默认值控件的值
一个大家曾经或许遇到过的问题：
非绑定窗体里有N个控件，清空窗体后某些控件需要保存其属性里已设置的默认值，请问有没有解决办法？
例如：
1. 非绑定窗体录入记录保存后，需清空录入新记录
2. 假设combo1在属性里有设置默认值为“正常”，我需要在清空后combo1还是“正常”

cmd清空的代码如下：
Dim ctl As Control
For Each ctl In Form
      If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
         ctl = Null
      End If
Next
这样所有控件都=NULL了
请问：
有没有代码可以在清空后将有设置过默认值的控件回复成默认值而不是NULL？
我知道可以后面加上 Me.Combo1="正常"，但是窗体里有N个需要这样处理默认值的控件，想偷个懒……有劳各位老师了！

作者: 盗梦 时间: 2014-7-16 11:39
ctl = ctl.DefaultValue

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