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

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 12 дек 2007.

  1. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Есть поле№1 , тип Number
    Ввел туда не только числа но и буквы
    Делаю сохранение
    в QuerySave есть код
    Код (Text):
    Value = doc.GetItemValue( "поле№1" )(0)
    В этой строке и выскакивает ошибка...
    в отладчике , посмотрел что в этос поле вообще нет никакого значения.
    Что-то я не могу сообразить, как сделать.. Что если тут ошибка , то выдать, например Msgbox "Ошибка"
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Совсем недаво поднималась єта тема - вот

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

    Код (Text):
    On Error goto MyError

    ....


    MyError:
    Msgbox "KERNEL panic"
    Continue = false
     
  3. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Не совсем мне это подходит
    у меня есть
    Код (Text):
    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
    Дак вот, оно перейдет в метку и выдаст сообщение,. типа ошибка в той строке, там-то там-то
    А я бы хотел сделать до этого

    Код (Text):
    if в поле не число then
    stErrMsg = "Введенный Вами код не является числовым"
    goto MyError
    End if
    Далее оно переходит в метку и выводит мне красивое сообщение
     
  4. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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. Если фальш - выводить ссобщеие
     
Загрузка...
Похожие Темы - Проверка поля типа
  1. Ruska132
    Ответов:
    12
    Просмотров:
    996
  2. Dragon108
    Ответов:
    8
    Просмотров:
    4.230
  3. xKlonx
    Ответов:
    6
    Просмотров:
    3.472
  4. susinmn
    Ответов:
    6
    Просмотров:
    3.710
  5. Gor
    Ответов:
    5
    Просмотров:
    3.793

Поделиться этой страницей