Validar Text de forma facil

[lebiatan123]

Hola mi pregunta es sencillita estoy asiendo un programita en visual basic 6.0 y quiero validar que los datos no se puedan guardar si hay campos vacios, yo lo hago asi Ejemplo

If cedula.Text = "" Or nombres.Text = "" Or apellidos.Text = "" Then

Guardo

esle
msgbox("datos vacios")
end if

el Problemita esta es cuando tengo muchos textos en un formulario tengo te hacer todo ese trabajo, si alguien conose una manera mas facil de hacer esta validacion le agradeceria mucho su aporte. de antemano les agradesco por aver leido este tema.

[David]

Podría ser algo como esto:

Código vb:

Dim Text As Object
For Each Text In Me.Controls 'Recorremos todos los controles de la ventana
    If TypeOf Text Is TextBox Then 'Comprobamos si es un TextBox
        If Text.Text = "" Then 'Comprobamos si está vacío
            MsgBox "El campo: " & Text.Tag & "está vacío" 'Se puede poner una descripción en la propiedad "Tag" del TextBox para identificarlo en el mensaje
            Exit Sub 'Salir de la función sin ejecutar el resto del código
        End If
    End If
Next Text
'Aquí va el código si todos los campos están correctamente llenados
 

El ejemplo recorre todos los controles, comprueba cuáles son TextBox y los valida. Se podría modificar dependiendo del caso para que solo algunos sean obligatorios.

[pakirringem]

yo lo manejo con con Arrays de controles, asi es mas sencillo recorrer todo los textos en este caso, por ejemplo, generas el arreglo texto(0), texto(1), texto(2)...... y asi hasta los que necesites, para recorrerlo y revisar que no esten vacios seria este codigo

for i=0 to texto.count-1
if texto(i).text="" then msgbox ("datos vacios"):texto(i).gotfocus:exit sub
next i

este codigo asi como esta t debe funcionar, pruebalo y me dices que tal funciona

[lebiatan123]

gracias a ambos los probe y funcionan bien, siempre se aprende algo nuevo
gracias nuevamente

[lebiatan123]

Iniciado por David el Grande

Podría ser algo como esto:

Código vb:

Dim Text As Object
For Each Text In Me.Controls 'Recorremos todos los controles de la ventana
    If TypeOf Text Is TextBox Then 'Comprobamos si es un TextBox
        If Text.Text = "" Then 'Comprobamos si está vacío
            MsgBox "El campo: " & Text.Tag & "está vacío" 'Se puede poner una descripción en la propiedad "Tag" del TextBox para identificarlo en el mensaje
            Exit Sub 'Salir de la función sin ejecutar el resto del código
        End If
    End If
Next Text
'Aquí va el código si todos los campos están correctamente llenados
 

El ejemplo recorre todos los controles, comprueba cuáles son TextBox y los valida. Se podría modificar dependiendo del caso para que solo algunos sean obligatorios.

[lebiatan123]

david me he puesto tu codigo a funcionar pero me tope con que tengo unos campos que no san obligatorios y no se como hacer para modificar eso, si podrias decirme te lo agradeceria.

[David]

Podrías usar la opción de indexar los controles y recorrer solo los controles indexados como te aconsejó pakirringem. O, colocar en la propiedad Tag de los que no son obligatorios algo como "OPCIONAL" y comprobarlo en el bloque If de la línea 4 del código:

Código vb:

If Text.Text = "" And Text.Tag <> "OPCIONAL" Then
 

[aldo1982]

buenas doy mi opinion, podes crear una matriz de control como dicen los muchachos o bien crear un control de usuario.

te paso proyecto con ocx ...

probalo y contame

aca va el download

www.sistemas-web.com.ar/vb6/99997_textbox.rar