新增时清空控件(文本框和组合框）

望天　发表于：2013-07-16 17:52:43 　

变速箱在新增窗体中采用dao.recordset的方式。

当rst.update更新以后，关闭rst.close。set rst = nothing

可是新增窗体中有文本框及组合框的内容需要清空 me.controls.item(i).value = null

教程中是一个一个对控件进行清空处理。

我想能不能对控件进行循环的方式进行清空：

   For i = 1 To Me.Controls.Count
     If Me.Controls.Item(i).ControlType = acComboBox Or Me.Controls.Item(i).ControlType = acTextBox Then

        a = Me.Controls.Item(i).ControlType
        Me.Controls.Item(i).Value = Null

End If
Next

value属性只在个别控件中才有(我个人认为，不对拍砖指教），所以加了条判断语句，判断控件是否为文本框及组合框

Top

望天发表于：2013-07-16 17:56:48

把附件添加上 新增窗体

这里的照片怎么批量添加呢？

Top

漏蛧尐魚℡ 发表于：2013-07-16 19:50:03

附件上传示例：http://www.accessoft.com/article-show.asp?id=7063

Top

殷小宝发表于：2013-07-16 23:01:40

dim ctl as control

for each ctl in me.controls

if typeof ctl is ComboBox or typeof ctl is textbox then

ctl.value=""

end if

Top

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

Access交流中心

[5分]新增时清空控件(文本框和组合框）