Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ввод латиницы в поля как с этим бороться? / 19 сообщений из 19, страница 1 из 1
02.08.2019, 12:33
    #39844569
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Операторы, при заполнении полей, вводят ошибочно текст на английской раскладке клавы.
Как с этим бороться?
------------------------------------------------------------------------
Спасибо за ответ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 12:41
    #39844576
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Ловить символ и нулить его, делов-то...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 12:50
    #39844586
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
час58Как с этим бороться?"кури" свойство Язык клавиатуры / KeyboardLanguage полей ввода
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 13:05
    #39844594
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
AkinaЛовить символ и нулить его, делов-то...

типа
If (KeyAscii < 44 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 13:11
    #39844598
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
только вот в этом диапазоне.

If (KeyAscii > 58 Or KeyAscii < 123) And KeyAscii <> 8 Then KeyAscii = 0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 13:12
    #39844602
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
court,

спасибо.
покурил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 17:48
    #39844769
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
час58,

помогите с созданием функции преобразующей строку
;Струкачев А С;
в строку
;Струкачев А. С.;
----------------------------------
или есть встроенные функции access способные помочь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 18:01
    #39844777
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
час58,
нет, походу так просто не решить проблему.
там ведь куча вариантов, как могли неправильно написать ФИО...
что угодно может быть....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 19:45
    #39844811
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
час58,
попробуй так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Function STROKA2(STROKA) As String
Dim s1 As String
Dim retval() As String
  On Error GoTo STROKA2_Error
'-----------------------------------------------------------------------------
s1 = Replace(STROKA, ".", " ")
s1 = Trim(Replace(s1, "  ", " "))
s1 = Trim(Replace(s1, "  ", " "))
s1 = Trim(Replace(s1, "  ", " "))
s1 = Replace(s1, " ", ";")
 retval = Split(s1, ";")
STROKA2 = StrConv(retval(0), vbProperCase) & " "
If Len(retval(1)) = 1 Then
STROKA2 = STROKA2 & StrConv(retval(1), vbProperCase) & "." & " "
Else
STROKA2 = STROKA2 & StrConv(retval(1), vbProperCase) & " "
End If

If Len(retval(2)) = 1 Then
STROKA2 = STROKA2 & StrConv(retval(2), vbProperCase) & "."
Else
STROKA2 = STROKA2 & StrConv(retval(2), vbProperCase)
End If

'-----------------------------------------------------------------------------
   On Error GoTo 0
   Exit Function
STROKA2_Error:

End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2019, 23:39
    #39844867
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
час58, это типа "приятно поговорить с умным человеком..."?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2019, 06:51
    #39844889
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Akina,
Не такой уж он и умный.
Тупит постоянно.
😁
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 00:00
    #39849025
Архимедофф
Архимедофф
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Вешайте на событие получение фокуса в поле

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function KBDToENG()
' Переключение на английскую раскладку
Call LoadKeyboardLayout("00000409", &H1)
End Function


Public Function KBDToRUS()
' Переключение на русскую раскладку
Call LoadKeyboardLayout("00000419", &H1)
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 01:43
    #39849039
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Function my1(str)
Dim i, re, a
re = Split(str, " ")
For i = 0 To UBound(re)
If i = 0 Then a = a & re(i) & " " Else a = a & Left(re(i), 1) & "."
Next
my1 = a & ";"
End Function

Код: vbnet
1.
2.
?my1(";Струкачев А С;")
;Струкачев А.С.;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 01:56
    #39849042
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
лучше так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function my1(str)
Dim i, re, a
str = Replace(str, ";", "")
re = Split(str, " ")
For i = 0 To UBound(re)
If i = 0 Then a = a & re(i) & " " Else a = a & re(i) & "."
Next
my1 = ";" & a & ";"
End Function

Код: vbnet
1.
2.
?my1(";Сулейманов М-Ш;")
;Сулейманов М-Ш.;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 07:34
    #39849063
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
sdkuлучше так:Чёта дофига сложно...
Код: vbnet
1.
str = Replace(Join(Split(Trim(str) & " ", " "), "."), ".", " ", 1, 1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 07:37
    #39849065
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Или уж совсем просто
Код: vbnet
1.
str = Replace(Replace(Trim(str) & " ", " ", "."), ".", " ", 1, 1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 14:45
    #39849287
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Akina,
что тут происходит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2019, 15:50
    #39849316
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
В смысле? что делает код?

Сперва обрезает крайние пробелы
Код: vbnet
1.
2.
3.
' "    Иванов А А    "
Trim(str)
' "Иванов А А"

потом добавляет в конец один пробел
Код: vbnet
1.
2.
Trim(str) & " "
' "Иванов А А "

затем все пробелы меняет на точки
Код: vbnet
1.
2.
Replace(Trim(str) & " ", " ", ".")
' "Иванов.А.А."

затем только первую точку меняет на пробел
Код: vbnet
1.
2.
Replace(Replace(Trim(str) & " ", " ", "."), ".", " ", 1, 1)
' "Иванов А.А."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2019, 17:53
    #39849977
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ввод латиницы в поля как с этим бороться?
Akina,

Спасибо.
Но буквы могут быть и строчные и прописные и отчество с именем могут быть написаны, а может быть написано только одно из них.
Они ведь тварят, что хотят.
---------------------------------------
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ввод латиницы в поля как с этим бороться? / 19 сообщений из 19, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 158ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1610528]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 14ms
total:  158ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]