خالی نمودن تمامی اینپوتهای فرم

[id1385]

با سلام
برای خالی نمودن اینپوتهای فرم به شکل زیر عمل می نماییم

فانکشن زیر را در یک ماژول قرار می دهیم

Public Function ClearTextBoxs(ByVal strFormName As String)
Dim c As Control
For Each c In Forms(strFormName)
If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then c.Value = Null
Next c
End Function


برای استفاده از فانکشن بالا در فرم به شکل زیر استفاده می نماییم

Private Sub Cmd_New_Click()
ClearTextBoxs (Me.Name)
End Sub



موفق باشید

[abdoreza57]

سلام خوشحال شدم از حضور مجددتون ،
کاربرد این ایده فکر کنم فقط تو فرم های آنبند و کمبوباکسها هست

خدانگهدار