如何清除掉窗体中的所有文本框/组合框的残留数据?

白胖纸　发表于：2013-07-19 09:46:45 　

因为窗体中有很多文本框和组合框,在修改的时候,有一些残留数据在上头,怎样可以一次性清空他们?

如果一个组合框的更新后事件发生后,要清空所有文本框,又要如何做呢?

好像有个遍历所有对象的函数,但是不会做,请各位大侠帮忙~~~

煮江品茶发表于：2013-07-19 10:13:47

sub ResetControlsValue()
　　dim ctrl as control
　　for each ctrl in me.controls
　　　　if ctrl.controltype=acTextBox or ctrl.controltype=acComboBox then
　　　　　　ctrl.value=null
　　　　end if
　　next
end sub

Top

蟹仔发表于：2013-07-19 10:13:49

如果你的控件只有几十个，那就更新后直接写xxxx控件="" 不就行了，如果你有一两百个。那就把控件改成统计的格式。XX加上数字。接着

for i = 1 to 控件数

Me.Controls("XX" & 控件数)=“”

如果你有几千个控件。那就这样

Dim Tbox As Access.Control
For Each Tbox In Me.Controls
If Tbox .ControlType = acTextBox Then
Tbox = ""
End If
Next
不建议你用第三种。因为这样子所有文本框都会改变。

Top

白胖纸发表于：2013-07-19 11:05:18

哈哈,帮大忙了,太感谢各位大大了~

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何清除掉窗体中的所有文本框/组合框的残留数据?