>Hello Ed,
>Thanks for your help.
>I apply what you told me but I get an error saying :
> 'Operator/Operand type mismatch'
>
>
>The controlsource of the textbox control has a field of Type numeric( 15,2 ).
>
>
>This is what I did :
>
>LPARAMETERS nKeyCode, nShiftAltCtrl
>DO CASE
> CASE BETWEEN (nKeyCode,48,57)
> This.Value= This.Value+CHR(nKeycode)
> NODEFAULT
>ENDCASE

It's simpler to use character values. For integers it will be:
this.value=10*this.value+val(chr(nKeycode))