Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
texnik-san
шапоклякистка 8-го дня
3630 / 2191 / 389
Регистрация: 26.06.2015
Сообщений: 4,648
Записей в блоге: 1
1

Как отменить дальнейшую обработку нажатия клавиши после перехвата?

31.10.2015, 22:31. Просмотров 796. Ответов 2
Метки нет (Все метки)

Хочу по нажатию Ctrl+P в форме вместо печати формы выводить на печать отчет.

Нажатие Ctrl+P перехватила, код:

Visual Basic
1
2
3
4
5
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 80 And (Shift And acCtrlMask) Then
        DoCmd.OpenReport "RouteSheet", , , "ID=" & [ID]
    End If
End Sub
Все ок, отчет на печать уходит. Но при этом еще и выскакивает диалоговое окно для печати формы. Как сделать так, чтобы оно не выскакивало?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2015, 22:31
Ответы с готовыми решениями:

Действие после нажатия клавиши
Еще раз здравствуйте. Наверное плохо ищу, не могу найти ответ на вопрос. Есть...

Экспорт информации с формы после нажатия клавиши
Всем привет! Как можно сделать так, чтобы по нажатию клавиши (кнопка17) на...

После нажатия клавиши Enter или нажатия на Button
Помогите пожалуйста.:-[ Задача: После нажатия клавиши Enter или нажатия на...

Побуквенный вывод слова через цикл + ожидания нажатия клавиши (после нажатия очистка и установка курсора на )
строку) Masm32 (com -программа) вообщем столкнулся с проблемой. к...

После нажатия клавиши, не обрабатывать другие клавиши
На форме по нажатию разных клавиш происходят разные вещи, но хочу реализовать...

2
mobile
Эксперт MS Access
23338 / 13143 / 2754
Регистрация: 28.04.2012
Сообщений: 14,395
31.10.2015, 23:15 2
Лучший ответ Сообщение было отмечено texnik-san как решение

Решение

Цитата Сообщение от texnik-san Посмотреть сообщение
Как сделать так, чтобы оно не выскакивало?
Visual Basic
1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 80 And (Shift And acCtrlMask) Then
        DoCmd.OpenReport "RouteSheet", , , "ID=" & [ID]
        KeyCode = 0 'Меняем значение KeyCode на несуществующее
    End If
End Sub
2
texnik-san
шапоклякистка 8-го дня
3630 / 2191 / 389
Регистрация: 26.06.2015
Сообщений: 4,648
Записей в блоге: 1
31.10.2015, 23:17  [ТС] 3


Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2015, 23:17

Как сделать повтор действия после нажатия любой клавиши
Задача : Разработать программу, в которой описать переменные для...

Ворд, всплывающее меню как после нажатия правой клавиши мыши
здравствуйте, после нужного события как сделать? только с нужными пунктами в...

Как можно заставить программу выполнять определенные действия после нажатия клавиши ENTER
кто-нибудь может подсказать!! я новенький в VB и почти ни какого опыта...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru