Vaciar textbox

Tengo la siguiente función que me vacía los textbox de un formulario pero me abre uno nuevo, y lo que quiero es que se vacíe en el mismo en el que estoy, gracias
Sub VaciarTextBox()
Dim ctrl As Integer
For ctrl = 0 To (FrmEmpleados.Controls.Count - 1)
Set controlsel = FrmEmpleados.Controls(ctrl)
If TypeOf controlsel Is TextBox Then
controlsel.Text = ""
End If
Next ctrl
End Sub

1 Respuesta

Respuesta
1
En vez de poner frmempleados
Pone me
Sub VaciarTextBox()
Dim ctrl As Integer
For ctrl = 0 To (me.Controls.Count - 1)
Set controlsel = me.Controls(ctrl)
If TypeOf controlsel Is TextBox Then
controlsel.Text = ""
End If
Next ctrl
End Sub
Con esto debería andar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas