Ответить на сообщение

Вы отвечаете на сообщение:

ник: час
На событие KeyPress в ListView проверяю какие данные поступают с клавы - точнее какая кнопка нажата.
Отфильтровываю только цифры, так как именно числовое поле в таблице буду заполнять.
If (KeyAscii < 48 Or KeyAscii > 57) Then Exit Sub
Далее передаю данные о текущем значении в поле и значение нажатой клавиши в функцию
STRR = FUN_IN_TEXT_BOX(Me!LV.SelectedItem.ListSubItems(2), Chr(KeyAscii))
====================================================================
Может советы или варианты етой функции у кто имеются

Public Function FUN_IN_TEXT_BOX(STR_1 As String, STR_2 As String) As String ' функция последовательного слияния данных, введённых в поле в ListView ' STR_1 уже записано в поле ' STR_2 добавить к написаному в поле Dim SUMMA As String If STR_2 = "-" Then ' удаление символа FUN_IN_TEXT_BOX = Left(STR_1, Len(STR_1) - 1) Else FUN_IN_TEXT_BOX = STR_1 & STR_2 End If If FUN_IN_TEXT_BOX = "" Then FUN_IN_TEXT_BOX = "0" If InStr(1, FUN_IN_TEXT_BOX, ",", 3) <> 0 Then SUMMA = Left(FUN_IN_TEXT_BOX, InStr(1, FUN_IN_TEXT_BOX, ",", 3) - 1) SUMMA = SUMMA & "." FUN_IN_TEXT_BOX = SUMMA & Mid(SUMMA, InStr(1, FUN_IN_TEXT_BOX, ",", 3) + 1) End If If Right(FUN_IN_TEXT_BOX, 1) = "." Then FUN_IN_TEXT_BOX = FUN_IN_TEXT_BOX & "0" End Function

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

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