powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ошибка обработки KeyDown
9 сообщений из 9, страница 1 из 1
ошибка обработки KeyDown
    #32332420
antimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть форма для ввода логина и пароля с кнопкой ОК. я хочу сделать, чтоб после ввода пароля и нажатия клавиши Enter выполнялся код как при нажатии на кнопку ОК.
вот отрывки кода:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Pass_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode =  13  Then
    Call OKLogin_Click
    KeyCode =  0 
End If
End Sub

а это стоит в коде к кнопке:
Код: plaintext
1.
2.
3.
4.
ElseIf IsNull(Me.Pass) Or Me.Pass =  "" Then
        MsgBox " Введите пароль"
        Me!Pass.SetFocus
       Exit Sub


Трабл: ввожу пароль, нажимаю на Enter, а он мне пишет "Введите пароль". ерунда какая то...
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32332421
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Я не знаю, почему это не работает, но можно того же результата достичь гораздо проще. У кнопки делается Default (свойство такое) = Yes, и все. Обрабатывать Enter в форме не надо.
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32332439
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто пока в поле вводятся символы, значение поля на самом деле не меняется. Перед вызовом Call OKLogin_Click переведите фокус на другой control - на ту же кнопку OKLogin и все будет ok. Или сохраняйте значение при вводе символа.
Me!Pass=Me!Pass.Text
Me!Pass.SelStart = Len(Me!Pass)
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32332444
antimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
с переводом фокуса всё работает.
спасибо :)
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32332445
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Но Владимир Саныч дал более простое решение и не работать оно может только если для поля установлено свойство Поведение по Enter (EnterKeyBehavior) Перевод строки (New Line In Field).
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32332496
antimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
попробовал с defaultом - действительно проще. спасибо Владимир Санычу :)
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32338501
antimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
формуляр. все поля со свойством .Enabled = False кроме одного. после ввода в это поле выполняется проверка и активируются остальные поля.
До этого всё хорошо работало: вводим в поле, нажимаем клавишу Enter и порядок. Но меня попросили переделать, чтоб вместо Enter можно было с тем же успехом нажимать на табулятор.
я где то прочитал, что у табулятора код 9, но

Код: plaintext
1.
2.
3.
If KeyCode =  9  Then
    KeyCode =  13 
End If


не работает. попробовал с помощю MsgBox KeyCode это прояснить и получилось, что код табулятора 0. Это правда или это какая-нибудь локальная настройка у меня?
если сделать

Код: plaintext
1.
2.
3.
If KeyCode =  0  Then
    KeyCode =  13 
End If


то всё работает так как я хочу. странно...
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32338509
antimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
нашлась ошибочка. это я сам табулятор на 0 садил при загрузке формуляра...
...
Рейтинг: 0 / 0
ошибка обработки KeyDown
    #32338615
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А чтобы потом не разбираться с такими вещами, не лучше ли вместо
Код: plaintext
If KeyCode = ... Then KeyCode = ...
писать
Код: plaintext
If KeyCode = ... Or KeyCode = ...
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ошибка обработки KeyDown
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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