Dudas con If anidados

[shadow.darknesses]

como puedo hacer, miren esto funca
if text1="" and text2= "" then
blablba
pero esto no
if text1="" , text2="" and text3 "" then
blabla
y tampoko asi
if text1="" and text2="" and text3 "" then
alguien me podria decir como la coloko 

[hjKg_DR]

Verde!!!! Valedor. Tu choro esta peor que Trabalenguas.
Ya sacate cualquier Objeto Alargado y de formación esponjosa que tengas en el receptaculo que usas para nutrirte.

Que es lo que quieres hacer exactamente...
Validar 3 cadenas...
Segun parlas que cuando pones 2 text="" funciona
pero si pones un tercero no...
1.- Primero para que lo quieres.. el contexto es muy importante....
2.- Prueba usando TRIM() para forzar a que los TEXT esten limpios y se comparen con ""
YO HARIA ALGO ASÍ

if trim(text1)="" and trim(text2)="" and trim(text3)="" then

endif

Ahora para depurar donde viene el pedo...
if trim(text1)="" then
   if trim(text2)="" then
       if trim(text3)="" then
           call msgbox("Si son todos vacios")
       else
            call msgbox(MostrarASCII(text3))
       endif
   else
        call msgbox(MostrarASCII(text2))
   endif
else
   call msgbox(MostrarASCII(text1))
endif


'Esta funcion muestra el valor en ascii de toda la cadena para saber si es igual a "" o no y ver que valor se esta metiendo de mas.
Private function MostrarASCII(texto as string)
   dim i as integer
   dim cadena as string
   'barrer toda la cadena
for i=0 to len(texto)
  cadena=cadena & asc(mid(i,cadena,1)) & ","     'Extraer caracter a caracter y sacar el ASCII
next

mostrarASCII=cadena
end function


Chido ESE!

[Guan]

Código:

if text1.text= "" and text2.text= "" then
  if text3.text= "" then
  blablabla
  end if
end if

Si los dos primeros son "" entonces comprueba el 3º, si es "" entonces blablabla


Saludos

[vladek]

bueno esta funcion la hice yo, si te referis a esto :

lo que hace, es comprobar si los tres son iguales, si los tres son iguales tira un msgbox.

Private Function ComprobarTexto s(texto1 As TextBox, texto2 As TextBox, texto3 As TextBox)
If texto1 = texto2 And texto2 = texto3 Then
MsgBox "Son Iguales"
End If
End Function

ahora si lo que queres es hacer lo mismo, pero con textos diferentes, ejemplo : Si Text1.text = "Hola1", Text2.text = "Hola 2", Text3.text = "Hola 3" entonces BLABLA.


Private Function ComprobarTexto s2(TextBox1 As TextBox, TextBox2 As TextBox, TextBox3 As TextBox, Texto1 As String, Texto2 As String, Texto3 As String)

If TextBox1 = Texto1 And TextBox2 = Texto2 And TextBox3 = Texto3 Then
MsgBox "hola"
End If
End Function


Espero que te sirva. By Vladek

[SiL3nC3]

Por lo que entendí la respuesta de Guan, seria la mas adecuada, porq lo que kiere es ver si 3 text son vacios, pero por logica, cuando se usa la funcion And, solo puedes unir 2 en una misma linea

[vladek]

es lo mismo que hice yo pero con mas IF...puso un if dentro de un if