Evento

[lizertina]

hola a todos!
Tengo un Text Box que no puede ser ni igual ni inferior a zero pero sí que puede ser zero coma algo. Utilizo el código siguiente y el problema es que cuendo intentas poner 0.1, por ejemplo, te sale el mensaje porque la orden es a la que cambie y si lo primero que pulsas es un zero o inferior sale el mensaje. Que deberia poner en lugar de _Change()? He probado con eventos de ratón y de botones pero no funciona, también he mirado en la ayuda de Visual pero nada y he buscado por internet pero no sé encontrarlo, seguramente es una chorrada... encontrar la palabra precisa...
En fin, muchas gracias.
Atentamente: Lizertina.

Private Sub txtCa_Change()
On Error Resume Next
If txtCa.Text <= 0 Then MsgBox "Dada a no vàlida"
Err.Raise 13
Err.Clear
End Sub

[tazzito]

prueba validalo en el lost focus (cuando pierde el foco el text)

private sub txtCa_LostFocus()
if val("0" & txtCa.text) <= 0 then
txtCA.text=""
msgbox "Dada a no Valida"
end if

[lizertina]

Hola!
Muchas gracias! Me has solucionado el problema!
.
Lizertina.