[求助]保存后自动清空窗体

zhb_88_88

求助各位 我想要一组保存后能够自动清空窗体的代码  我在网上找了好久了 可以没有太适合的 求各位大虾帮助小弟一下  先谢过了~！~！

zhb_88_88

非常感谢一点通大哥和Grant 大哥 如果小弟还有什么不明白的地方 还请大家多多指点一下~!

Grant

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

不是呀大哥 这样只能逐个清空  我想要一次清空整个窗体文本框中的内容

一点通

ME.文本框名 = ""