Числовое поле

IsNumeric(doc.[твое поле])

If doc.GetItemValue("myField")(0) <> "" Then
 
If Not Isnumeric(doc.GetItemValue("myField")(0)) Then
Msgbox "Поле " & Chr(34) & "ПОЛЕ" & Chr(34) & " должно содержать числовое значение!", 48, "Ошибка"
source.GotoField("myField")
End If
End if

Function ValidateNumericFlds(doc As NotesDocument) As Integer
On Error Goto Errh
 
Dim rv As Integer
rv = True
 
lsf_ValidateNumericFlds = rv
 
Dim NumFlds List As String
NumFlds("FLD_NAME_1") = "LABEL_1"
NumFlds("FLD_NAME_2") = "LABEL_2"
 
Dim V As Variant
Dim VEmpty As Variant
Dim IsError As Integer
 
Forall x In NumFlds
V = VEmpty
IsError = False
 
On Error Resume Next
V = doc.GetItemValue(Listtag(x))(0)
On Error Goto Errh
 
If Not Isempty(V) Then IsError = Not Isnumeric(V) Else IsError = True
 
If IsError Then
Messagebox {Ой бяда, ребятушки! В поле "} + x + {" какое-то гогно!}, 0 + 16, "Бяда"
rv = False
Exit Forall
End If
End Forall
 
lsf_ValidateNumericFlds = rv
 
Exit Function
Errh:
Call lsf_ErrorTrack
Exit Function
End Function

Dim doc As NotesDocument
Dim v As Variant
 
Set doc = source.Document
 
v = doc.GetItemValue("Имя твоего поля")
 
if IsNumeric(doc.GetItemValue) Then
MessageBox "Введено число"
Else
MessageBox "Вы ввели текст"
End if

On Error 4412 Goto ErrHnd
 
[твой код]
 
Done:
Exit Sub
ErrHnd:
Msgbox "Поле не является строковым",16,"Предупреждение"
Resume Done