Проверка поля типа Number

[wowa]

Есть поле№1 , тип Number
Ввел туда не только числа но и буквы
Делаю сохранение
в QuerySave есть код

Value = doc.GetItemValue( "поле№1" )(0)

В этой строке и выскакивает ошибка...
в отладчике , посмотрел что в этос поле вообще нет никакого значения.
Что-то я не могу сообразить, как сделать.. Что если тут ошибка , то выдать, например Msgbox "Ошибка"

 

[morpheus]

Совсем недаво поднималась єта тема - вот

1. Проверить на HasItem
2. Проверить Len( doc.GetItemValue( "поле№1" )(0) ) > 0

On Error goto MyError

....


MyError:
Msgbox "KERNEL panic"
Continue = false

 

[wowa]

Не совсем мне это подходит
у меня есть

On Error Goto MyError
...........
.........
............
............
' в случае ошибки
MyError
If Strcompare( stErrMsg,"" ) = 0 Then
stErrMsg = "Код ошибки: " & Str(Err) & " Описание ошибки: " & Error$ & " Номер строки: " & Str(Erl) & " Ошибка произошла в процедуре: " & Getthreadinfo(1)	
End If
Msgbox stErrMsg,48 ,"Внимание!"
Continue = False

Дак вот, оно перейдет в метку и выдаст сообщение,. типа ошибка в той строке, там-то там-то
А я бы хотел сделать до этого

if в поле не число then
stErrMsg = "Введенный Вами код не является числовым"
goto MyError
End if

Далее оно переходит в метку и выводит мне красивое сообщение

 

[morpheus]

<!--QuoteBegin-wowa+12:12:2007, 15:07 -->
<span class="vbquote">(wowa @ 12:12:2007, 15:07 )</span><!--QuoteEBegin-->If Strcompare( stErrMsg,"" ) = 0 Then

[snapback]89604" rel="nofollow" target="_blank[/snapback]​

[/quote]
заменить на If Len( stErrMsg ) = 0 Then

Ну так и зделайте проверку есть ли в поле какието символы, и проверти являються ли эти символы цифрами IsNumeric = True. Если фальш - выводить ссобщеие