Форумы HiProg.com - MS ACCESS, VBA, VB

ник: kot_k_k
а для чего?

If (KeyAscii < 48 Or KeyAscii > 57) Then Exit Sub

а если число 12,25 - тада как

чето похожее

Private Sub Поле14_KeyPress(KeyAscii As Integer)

Select Case KeyAscii - анализируем нажатую клавишу
Case 1040 To 1103 - это символы кирилицы (в данном случае)
N_G = N_G & ChrW(KeyAscii) - это к глобальной переменной добавил нажатый символ.
end select
end sub