Forums Últimos mensajes - Powered by IBM
 

Limpiar cajas de texto

08/11/2004 - 10:00 por Barbaroja | Informe spam
Hola a todos. Tenfo un form con 15 cajas de texto. Me gustarias vaciarlas
todas con algun procedimiento rapido he probado esto pero no me funciona.
Alguna solución?

Public Sub LimpiarControles(ByVal frmForm As Form)

Dim ctlControl As Control

On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
Next ctlControl
Modificado = False
End Sub
 

Leer las respuestas

#1 Barbaroja
08/11/2004 - 10:49 | Informe spam
he solucionado el problema en parte con este codigo:
For Each obj In Me.Tab1.Controls
'For Each obj In Me.Controls
If TypeOf obj Is TextBox Then
CType(obj, TextBox).Text = ""
End If
Next obj
El gran problema es que tengo 3 tabs con 15 cajas de tetxo cada uno. y este
codigo no hace nada

"Barbaroja" wrote:

Hola a todos. Tenfo un form con 15 cajas de texto. Me gustarias vaciarlas
todas con algun procedimiento rapido he probado esto pero no me funciona.
Alguna solución?

Public Sub LimpiarControles(ByVal frmForm As Form)

Dim ctlControl As Control

On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
Next ctlControl
Modificado = False
End Sub

Preguntas similares