Algunas veces quieres borrar todos los campos de texto y combobox de un formulario de entrada de datos. Si el formulario contiene muchos controles puede ser tedioso y es fácil equivocarse.
La siguiente subrutina borra el contenido de esos campos de tu formulario automáticamente:


Public Sub ClearAllControls(frmForm As Form)
Dim ctlControl As Object

    ' Initialize all controls that can be initialized
    ' Any control with a text property or a list-index property
    On Error Resume Next
    For Each ctlControl In frmForm.Controls
        ctlControl.Text = ""
        ctlControl.ListIndex = -1
        DoEvents
    Next ctlControl

End Sub

Simplemente llama al procedimiento desde tu código :

Call ClearAllControls(Me)

From--John Baumbach [jbaumbach@kw.edu]

Si sólo quisieras borrar alguno de ellos podrías emplear la propiedad Tag para indicar los que quieres borrar y preguntar por ella dentro del bucle.

José Rubí, jrubi@arrakis.es http://www.arrakis.es/~jrubi