Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как отключить колесико мыши? / 3 сообщений из 3, страница 1 из 1
21.01.2008, 00:33:43
    #35074641
Wipeout2097
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отключить колесико мыши?
Если в MS Access на основе таблицы сделать форму (автоформу), то по записям в этой форме можно перемещаться (переключать) колесиком мыши. Как это запретить? (чтобы при провороте колесика запись не менялась, а оставалась та, которая есть (текущая)

Я пробовал вариант:

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
DoCmd.GoToRecord acDataForm, "Тест", acNext, CurrentRecord
End Sub

не работает... может я в чем-то ошибаюсь?
...
Рейтинг: 0 / 0
21.01.2008, 09:56:06
    #35074925
LETME
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отключить колесико мыши?
...например здесь обсуждалась эта тема.

)) Больше всего из предложенных решений понравилось все же это:
Код: plaintext
\nPrivate Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)\n    MsgBox "Прекратите крутить колесо мыши!"\nEnd Sub\n
...
Рейтинг: 0 / 0
23.01.2008, 13:40:51
    #35081735
Wipeout2097
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отключить колесико мыши?
LETME...например здесь обсуждалась эта тема.

)) Больше всего из предложенных решений понравилось все же это:
Код: plaintext
\nPrivate Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)\n    MsgBox "Прекратите крутить колесо мыши!"\nEnd Sub\n


Блин, если б ты жил в Ярославле, то я бы непременно поставил бы тебе ящик, нет, два ящика пива!!! Спасибо за ссылку. Проблема решена. Кстати, решение очень оригинальное... Надо же, кто-то додумался...
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как отключить колесико мыши? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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