17-10-12, 05:21 PM
كاتب الموضوع : AhmedEssawy
كود :
Private Sub ClearForm()
Dim obj As Control, objGrp As Control
For Each obj In Form.ActiveForm.Controls
If TypeOf obj Is GroupBox Then
For Each objGrp In obj.Controls
If TypeOf objGrp Is TextBox Then
If objGrp.Name <> "txtCNO" Then objGrp.ResetText()
End If
Next objGrp
End If
Next obj
End Sub