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

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

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

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

помогите с созданием функции преобразующей строку
;Струкачев А С;
в строку
;Струкачев А. С.;
----------------------------------
или есть встроенные функции access способные помочь?
...
Рейтинг: 0 / 0
02.08.2019, 17:48
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39844777
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
час58,
нет, походу так просто не решить проблему.
там ведь куча вариантов, как могли неправильно написать ФИО...
что угодно может быть....
...
Рейтинг: 0 / 0
02.08.2019, 18:01
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #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, 19:45
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39844867
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
час58, это типа "приятно поговорить с умным человеком..."?
...
Рейтинг: 0 / 0
02.08.2019, 23:39
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39844889
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Akina,
Не такой уж он и умный.
Тупит постоянно.
😁
...
Рейтинг: 0 / 0
03.08.2019, 06:51
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #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, 00:00
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #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:43
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #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, 01:56
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39849063
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
sdkuлучше так:Чёта дофига сложно...
Код: vbnet
1.
str = Replace(Join(Split(Trim(str) & " ", " "), "."), ".", " ", 1, 1)
...
Рейтинг: 0 / 0
14.08.2019, 07:34
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39849065
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Или уж совсем просто
Код: vbnet
1.
str = Replace(Replace(Trim(str) & " ", " ", "."), ".", " ", 1, 1)
...
Рейтинг: 0 / 0
14.08.2019, 07:37
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39849287
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Akina,
что тут происходит?
...
Рейтинг: 0 / 0
14.08.2019, 14:45
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #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
14.08.2019, 15:50
| Ответить | Цитировать | Написать  
Ввод латиницы в поля как с этим бороться?
    #39849977
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Akina,

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


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