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

ник: pashulka
Re: проверка значений запятой Есть несколько вариантов решения поставленного вопроса, но самый правильный это - не давать вводить запятую, т.е. при попытке ввода запятой заменить её на точку.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then KeyAscii = 46
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyV And Shift = 2 Then KeyCode = 0
End Sub