Office中国论坛/Access中国论坛

标题: 清空窗体所有控件内的数据，待解决 [打印本页]

作者: liaoqiang234 时间: 2010-10-19 21:57
标题: 清空窗体所有控件内的数据，待解决
一个窗体有很多文本框，组合框，选择框
输入一条数据保存好，窗体所有控件数据都还在
而要在保存数据后，清空所有控件内的数据，只有这样使用 me.xx=""，很麻烦
有哪位高人知道代码可以清空窗体所有控件内的数据

作者: roych 时间: 2010-10-20 10:42
Sub Command6_Click()
For i = 0 To Me.Count - 1
Select Case Me.Controls.Item(i).ControlType
'清空文本框
Case 109
Me(i).Value = ""
'清空组合框
Case 111
Me(i).Value = ""
‘清空列表框，个人不建议清空列表框数据源。
Case 110
Me(i).RowSource = ""
End Select
Next i
End Sub

作者: hjb016 时间: 2010-10-20 10:51
正解!

作者: liuxiangyucdpc 时间: 2012-8-16 22:52

roych 发表于 2010-10-20 10:42
Sub Command6_Click()
For i = 0 To Me.Count - 1
Select Case Me.Controls.Item(i).ControlType

多谢多谢，搞定

作者: wang1950317 时间: 2012-8-17 09:09
学习！

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