Visual Basic - CAJAS DE TEXTO

Buenas.

Mi consulta es la siguiente.

Estoy desarrollando una aplicacion en Visual Basic 6.0, tiengo un SSTab, y necesitaria saber como puedo averiguar si las cajas de texto , sin formar una matriz, que tengo en una de esas pestañas estan llenas o vacias.

Gracias de antemano y un saludo.

Simplemente haces la referencia if Text1.text="" then , el que este en una de las paginas del SStab no impide que puedas hacer la referencia directa

Pero yo quiero saberlas todas a la vez.

Prueba con esta subrutina:

Sub Verificar_Cajas(L As Form)
For Each Obj In L.Controls
If TypeOf Obj Is TextBox Then
if Obj.text="" then
Msgbox "Algunas Cajas estan Vacias"
exit sub
end if
End If
Next
msgbox "Todas estan llenas"
End Sub

Perdona pero no entiendo la rutina. Me la puedes explicar rapidamente.

Un saludo

Antes que nada colocale Public antes del Sub, fue un error de mi parte.
mira la subrutina se programa en un modulo y lo puedes llamar desde cualquier formulario por eso lo de (F as Form)
Si quieres chequear las cajas de texto desde un boton pones:
Private Sub Command1_click()
call Verificar_Cajas(Me) ' Donde Me es el formulario activo en ese momento
End sub

El funcionamiento es simple, el primer if pregunta por el objecto textbox
si lo encuentra entra al segundo if en donde pregunta si esta vacio, si lo esta te manda el mensaje y te sales de la subrutina, porque ya encontraste uno vacio, caso contrario sigue adelante hasta que al final te manda el mensaje de que no hay ninguna caja vacia

Cuando pongo esto:
Public Sub Verificar_Cajas(L As Form)
For Each Obj In L.Controls
If TypeOf Obj Is TextBox Then
If Obj.Text = "" Then
MsgBox "Algunas Cajas estan Vacias"
Exit Sub
End If
End If
Next
MsgBox "Todas estan llenas"
End Sub

Me dice que el Obj no esta definido, que he de hacer, gracias nuevamente

al comienzo del modulo ponle:
Global Obj as Object
Avizame si te salio

Parece que si funciona gracias por todo, y si necesitas alguna vez algo, mi correo es [email protected]

Un saludo.

Analizando y probando todo lo que me has dicho, me encuentro con un problemilla.

El problema es que hay cajas que pueden que esten vacias dependiendo de otras condiciones, que deben estar asi. Entonces esto no me serviria.

Como puedo hacerlo entonces, lo ideal seria poder hacerlo dependiendo de la etiqueta en la que se encuentre.

Un saludo.

Prueba con esto

Public Sub Verificar_Cajas(L As Form)
For Each Obj In L.Controls
If TypeOf Obj Is TextBox Then
If not Obj.name=\"Text1\" then \' Por ejemplo si esa va a permanecer vacia
If Obj.Text = \"\" Then
MsgBox \"Algunas Cajas estan Vacias\"
Exit Sub
End If
End If
end if
Next
MsgBox \"Todas estan llenas\"
End Sub