VALORES DE TEXBOX
Olá pessoal talvez minha duvida seja muito banal, mais não sei o que estou fazendo de errado a situação e a seguinte.
Tenho uma textbox1 com o texto marcado como 15, tenho outra texbox2 sem texto, certo ai vem o seguinte código se quando eu digitar algum texto na textbox2 e esse for mais que o da textbox1 apareça uma mensagem de erro ou seja
if textbox2.text > textbox1.text then
msgbox[Ô]Não a recusros suficientes[Ô]
end if
Porem o programa não funciona corretamente, pois se digito 4( ou outros numeros como o 2,3,4,5,6,7,8,9) da a mensagen de erro como se o valor fosse maior que 15 alguém pode me ajudar ?
Tenho uma textbox1 com o texto marcado como 15, tenho outra texbox2 sem texto, certo ai vem o seguinte código se quando eu digitar algum texto na textbox2 e esse for mais que o da textbox1 apareça uma mensagem de erro ou seja
if textbox2.text > textbox1.text then
msgbox[Ô]Não a recusros suficientes[Ô]
end if
Porem o programa não funciona corretamente, pois se digito 4( ou outros numeros como o 2,3,4,5,6,7,8,9) da a mensagen de erro como se o valor fosse maior que 15 alguém pode me ajudar ?
Private Sub txt2_Change()
If CLng(txt2.Text) > CLng(txt1.Text) Then
[ô]If Val(txt2.Text) > Val(txt1.Text) Then
[ô]CLNG: Converte uma expressão numérica em um número inteiro
[ô]VAL: Converte uma String com caracteres numéricos em uma variável númerica.
MsgBox [Ô]não pode[Ô]
Else
End If
End Sub
é mais ou menos assim.
Valeu.
If CLng(txt2.Text) > CLng(txt1.Text) Then
[ô]If Val(txt2.Text) > Val(txt1.Text) Then
[ô]CLNG: Converte uma expressão numérica em um número inteiro
[ô]VAL: Converte uma String com caracteres numéricos em uma variável númerica.
MsgBox [Ô]não pode[Ô]
Else
End If
End Sub
é mais ou menos assim.
Valeu.
Tópico encerrado , respostas não são mais permitidas