Office中国论坛/Access中国论坛

标题: [求助]保存后自动清空窗体 [打印本页]

作者: zhb_88_88 时间: 2007-6-27 23:58
标题: [求助]保存后自动清空窗体
求助各位我想要一组保存后能够自动清空窗体的代码我在网上找了好久了可以没有太适合的求各位大虾帮助小弟一下先谢过了~！~！

作者: 一点通 时间: 2007-6-28 00:25
ME.文本框名 = ""

作者: zhb_88_88 时间: 2007-6-28 01:30
不是呀大哥这样只能逐个清空我想要一次清空整个窗体文本框中的内容

作者: Grant 时间: 2007-6-28 02:23
Private Sub clearText()
                                             '清空窗体中文本框和组和框中的内容
Dim ctrl As Control
For Each ctrl In Me.Form.Controls
      If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
               ctrl = ""
            DoEvents
      End If
Next
Exit Sub
End Sub

作者: zhb_88_88 时间: 2007-6-28 16:52
非常感谢一点通大哥和Grant 大哥如果小弟还有什么不明白的地方还请大家多多指点一下~!

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