Hi,
You need to declare the constat _valcheck as 1. And in the code check the value of err. Something like:-
[code:1:0305a25740]
Const _VALCHECK =1
Dim S as string * 10
dim W as word
s = "1234a"
w = val(s)
print s;" ";w;" ";ERR
s = "1234"
w = val(s)
print s;" ";w;" ";ERR
end
[/code:1:0305a25740]
Regards
Ian Dobson
↧