Limpiar todo...
Sabes que tengo un form con muchos cuadros de texto, y el proceso de limpieza es demasiado largo, ¿conoces alguna herramienta que me permita limpiar todo con unas pocas líneas de código?
Gracias de antemano.
Gracias de antemano.
Respuesta de fvomaster
1
Tengo éste código, pero la verdad no lo he probado, hazlo y me cuentas..
Public Sub LimpiarControles(frmForm _
As Form)
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
ctlControl.ListIndex = -1
DoEvents
Next ctlControl
End Sub
En el formulario llame a la función de la siguiente forma:
LimpiarControles Me
Un abrazo desde Chile..
Fvomaster
Public Sub LimpiarControles(frmForm _
As Form)
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
ctlControl.ListIndex = -1
DoEvents
Next ctlControl
End Sub
En el formulario llame a la función de la siguiente forma:
LimpiarControles Me
Un abrazo desde Chile..
Fvomaster
