| Pregunta: | 6525 - ¿COMO VACIAR VARIOS CAMPOS DE UN FORMULARIO? |
| Autor: | Oisin Cabrera Vera |
| Tengo un formulario con muchísimos campos y quisiera saber si hay algún método para liberar todos los campos automáticamente sin tener que poner p.ej: Text1.text = "" cuando pulse [Añadir], trabajo sin DataControls. | |
| Respuesta: | Onorio Palavicini |
| Create el siguiente sub de alcance global:
Sub LimpiarTextBox (byval DeQueFormulario as Form) Dim i as Integer With DeQueFormulario For i = 0 to .Controls.Count -1 if TypeOf .Controls(i) is TextBox Then .Controls(i).Text = "" end if Next i End With end Sub Despues de lo llamas en el lugar indicado de la siguiente manera: LimpiarTextBox Me Lo puedes mejorar para acoplarlo a tus necesidades, saludos. | |