Como hacer que el valor con decimales de Texbox1 es > a Texbox2 lance un MSGBOX

Tengo un formulario de ingreso de depósitos por cada cliente, pero necesito que si al ingresar una cantidad Texbox1 es mayor a Texbox2 lance un MSGBOX.

Este código si hace lo que requiero, por ejemplo si el crédito es de 19482.65 e ingreso 19490 me salta el MSGBOX, pero si se hace un deposito de 500, me vuelve a saltar el MSGBOX.

If Texbox1.Text > Texbox2.Text Then
X = MsgBox("El monto depositado es mayor al crédito… Intenta de nuevo con un monto igual o menor al crédito ", vbYesNo + vbQuestion, "AVISO")
Texbox1= ""
Texbox1.SetFocus
End If

Podrían apoyarme

1 respuesta

Respuesta
1

Fíjate si funciona esto

If cdec(textbox1) > cdec (textbox2) then Msgbox("Es mayor")

Mira estos ejemplos

https://youtu.be/0UuR_zRQCB4

https://youtu.be/smL4A-aRjCM

https://youtu.be/socIEugnEs0

Amigo, muchas gracias al parecer si funciono, solo que al querer eliminar la cantidad escrita en el texbox1 después del MSGBOX me salta este error.

Si quito la variable de que no me elimine la cantidad del texbox1 no me salta error. 

Saludos.

Pon al principio

on error resume next

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas