T
T1000
День добрый.
Есть форма. В ней простейший диалог. В диалоге 2 поля - текстовое и числовое.
Если в числовое занести какое-то буквенное значение, то лотус пишет "cannot convert text to a number". как успеть отловить это неверное значение и вписать свой код. Привет того, что я пытаюсь сделать:
Есть форма. В ней простейший диалог. В диалоге 2 поля - текстовое и числовое.
Если в числовое занести какое-то буквенное значение, то лотус пишет "cannot convert text to a number". как успеть отловить это неверное значение и вписать свой код. Привет того, что я пытаюсь сделать:
Код:
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim v
Dim cdoc As NotesDocument
Set cdoc=Source.Document
Continue=True
Print "v="+Source.FieldGetText("digReady4")
v=Source.FieldGetText("digReady4")
Print "3"
If Not Isnumeric(v) Then
Continue=False
Msgbox {Введите численное значение},,"Ошибка"
End If
Print "4"
' Input Translation
End Sub