Hi,

This way it is getting somewhere, but it would be nice
if the 0 will disapear right at the first click.

Thanks

Doron


>
>
>*/KeyPress Method of TextBox control
>LPARAMETERS nKeyCode, nShiftAltCtrl
>IF nKeyCode = 9 .OR. nKeyCode=13 .AND. AT(" ",This.Text)#0
> lcVal = CHRTRAN(This.Text,",.", "")
> This.Value = VAL( LEFT(lcVal, AT(" ",lcVal) ))
>ENDIF
>
>Zero or some other number still shows, but value on exit should be ok !