Comparacion con IF

[fedefrankk]

Hola a todos, quiero llenar 10 textbox, y que salga un cartel sino lo lleno,

es asi:

if text1="" or text2."" or text3="" ect.
msgbo"deve llenar el texto 1"
end if

mi pregunta es la siguiente, como se cuando no llena el text2, pero el 1 si lo lleno, entonces me tiene que salir uin cartelito que diga

msgbox "no lleno el text2"

espero a ver sido claro
saludos a todos

[David]

Si tienes varios TextBox será más fácil hacer la comprobación si están indexados. Así, solo tendrías que hacer un bucle For que los recorra y comprueba cada uno para mostrar el respectivo mensaje.

[fedefrankk]

Hola, tengo mis text box indexados creo... son asi. text1(0) - text1(1).. etc. hasta llegar a 10 text1.(10)..
eso es?... como se hace eso con el bucle for?

yo se esconder por ejemplo
for x=0 to 10
text1(x).visible=false
next x

pero comprobar no lo se :(

[Avellaneda]

Iniciado por fedefrankk

Hola, tengo mis text box indexados creo... son asi. text1(0) - text1(1).. etc. hasta llegar a 10 text1.(10)..
eso es?... como se hace eso con el bucle for?

yo se esconder por ejemplo
for x=0 to 10
text1(x).visible=false
next x

pero comprobar no lo se :(

Hola, podrías hacer algo como esto:

Código:

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Text1.Count - 1
    If Text1(i) = "" Then
        MsgBox "El TextBox " & i + 1 & " está vacío."
        Exit For
    End If
Next i

End Sub

E incluso lo podrías mejorar si en la propiedad Tag de cada TextBox le pones un identificador:

[fedefrankk]

Hola..!!! gracias por responder, eso de los tag... no se buen que es... si se que son etiquetas pero no se como emplearlas.
muchas gracias por tu ayuda
saludos

[Avellaneda]

Iniciado por fedefrankk

Hola..!!! gracias por responder, eso de los tag... no se buen que es... si se que son etiquetas pero no se como emplearlas.
muchas gracias por tu ayuda
saludos

Mira, es muy sencillo:
Esto lo puedes hacer en diseño: A cada TextBox le escribes la propiedad 'Tag' una descripción p.e. en el Text1(0) le escribes 'Código' (sin comillas) en el Text1(1), Nombre, etc, etc

Y después en el código que puse antes sólo cambias el MsgBox:

MsgBox "El campo " & Text1(i).Tag & " está vacío"

Y si dejas vacío el segundo TextBox, el mensaje será "El campo Nombre está vacío", así quedaría mas claro ¿no?

[AlfredoGoa]

bueno si no puedes con los tag podrias crear un arreglo

Código:

Private Sub Command1_Click()
Dim Etiqueta(9) As String
Etiqueta(0) = "Nombre1"
Etiqueta(1) = "Nombre2"
Etiqueta(2) = "Nombre3"
Etiqueta(3) = "Nombre4"
Etiqueta(4) = "Nombre5"
Etiqueta(5) = "Nombre6"
Etiqueta(6) = "Nombre7"
Etiqueta(7) = "Nombre8"
Etiqueta(8) = "Nombre9"
Etiqueta(9) = "Nombre10"
Dim i As Integer
For i = 0 To 9
    If Text1(i) = "" Then
        MsgBox "el " + Etiqueta(i) + " esta vacio."
        Exit For
    End If
Next i
End Sub

saludos

[fedefrankk]

Hola Muchas gracias por las respuestas, son muy amables, tengo un pequeño problema lo he echo varias veces pero y me ha salido pero ahora no.. no me sale

tengo el codigo d e "Avellaneda"

Código PHP:

  Private Sub Command3_Click() ACA GRABO DATOS
Dim i As Integer
For i = 0 To text1.Count - 1
    If text1(i) = "" Then
        MsgBox "El TextBox " & i + 1 & " está vacío."
        Exit For
    End If
Next i
MsgBox "grabo..!!!!!"
End Sub  
   

El problema es que comprueba el primer text1(1), si ese no está lleno me sale "el text 1(1) está vacío" y otro cartel que dice "grabo..!!!!!".. Y la idea es que primero compruebe todo y después me deje grabar.. me he bloqueado jaja
saludos y 10000 gracias

[Avellaneda]

Iniciado por fedefrankk

Hola Muchas gracias por las respuestas, son muy amables, tengo un pequeño problema lo he echo varias veces pero y me ha salido pero ahora no.. no me sale

tengo el codigo d e "Avellaneda"

Código PHP:

  Private Sub Command3_Click() ACA GRABO DATOS 
Dim i As Integer 
For i = 0 To text1.Count - 1 
    If text1(i) = "" Then 
        MsgBox "El TextBox " & i + 1 & " está vacío." 
        Exit For 
    End If 
Next i 
MsgBox "grabo..!!!!!" 
End Sub  
   

El problema es que comprueba el primer text1(1), si ese no está lleno me sale "el text 1(1) está vacío" y otro cartel que dice "grabo..!!!!!".. Y la idea es que primero compruebe todo y después me deje grabar.. me he bloqueado jaja
saludos y 10000 gracias

Hola,

La forma mas sencilla es sustituir

Exit For

por

Exit Sub

[fedefrankk]

Como siempre sos una gran ayuda..!!!!! muchas gracias a vos y a todos
saludos