17-10-12, 02:20 PM
كاتب الموضوع : Boutemine Oualid
السلام عليكم ورحمة الله و بركاتهكود :
Sub ClearTextBoxes(ByRef Parent As Form)
Dim Ctrl As Object
For Each Ctrl In Parent
If TypeOf Ctrl Is TextBox Then Ctrl.Text = vbNullString
Next Ctrl
Set Ctrl = Nothing
End Sub