Amigos tengo el siguiente código que me muestra un mensaje cuando los valores de dos textbox son diferentes:
If Val(Text1.Text) <> Val(Text2.Text) Then
MsgBox ("Hay una nueva actualizacion...")
End If
El problema es que solo funciona con números enteros, lo que quiero es que funcione también con texto, por ejemplo:
Text1 = version 2.1
Text2 = version 2.2
y que aparezca el mensaje
gracias amigos ;D
podrias intentar con esto:
Private Sub Command1_Click()
If Val(Text1.Text) <> Val(Text2.Text) Then ' para enteros
MsgBox "nueva version"
ElseIf (Text1.Text) <> (Text2.Text) Then 'para texto
MsgBox "nueva versión"
else
msgbox "no hay nada"
End If
End Sub
If Text1.Text <> Text2.Text Then
MsgBox ("Hay una nueva actualizacion...")
End If
Quiero agregar el Option compare text para evadir problemas de distincion de minusculas o mayusculas (en el caso que necesites usarlo)
el Code de madantrax es correcto pero si hubiera diferencia de mayuscula y el option compare no estuviera te lo tomaria como distinto a pesar de la igualdad!
saludd!!!
If lcase(Text1.Text) <> lcase(Text2.Text) Then
MsgBox ("Hay una nueva actualizacion...")
End If