validar todos los textbox

[emilio21]

alguien sabe como puedo verificar si todos los textbox que tengo en mi formulario estan vacios?

creo que es utilizando el For Each. creo que puedo hacerlo asi.

Código:

Dim a as Object

For Each a In Me.Controls
 'aqui verifico pero NO SE COMO :'( 
Next

gracias de antemano!!

[jc_moty]

Proba asi:

Código:

    Dim ctl As Object
    Dim vacios As Boolean
    vacios = True
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            If Len(Trim(ctl.Text)) > 0 Then
                vacios = False
                Exit For
            End If
        End If
    Next
    If vacios = True Then MsgBox "Todos los Texboxs estan Vacios"

Espero te sirva

[emilio21]

gracias!

[Insomnia]

Hola

Otra opción mas sencilla sería crear un array de controles con los textbox y luego con un simple for recorrer todo el array (sin tener que recorrer todos los controles del formulario)

--Saludos--