Esta es mi forma:
Y En este ejemplo lo que hago es borrar el contenido de cada control:
'Loop through all control looking for the typename TextBoxes
For Each cname In expensesForm.Controls
If TypeName(cname) = "TextBox" Then
cname.Value = ""
End If
Next cname
'now loop controls looking for checkBoxes with set value true
For Each cname In expensesForm.Controls
If TypeName(cname) = "CheckBox" Then
cname.Value = False
End If
Next cname
End Sub
No hay comentarios:
Publicar un comentario