VBA, MS Access MS Access в примерах

Разворот списка - По клику мышкой + Запрет редакции

По материалам: https://www.cyberforum.ru/ms-access/thread3103447.html

... Нужно, чтобы сама возможность ввода текста была заблокирована, а выпадающий список появлялся по нажатию мышкой в любом месте контрола ...
...
Не вопрос!
Обрабатываем 2 -3 события:
01. OnMouseDown
02. OnKeyDown
03. + Опционально - для красоты: Change
Примерно так:

Private Sub ПолеСоСписком1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp 'Нажата клавиша ВВЕРХ
        Case vbKeyDown 'Нажата клавиша ВНИЗ
        Case vbKeyReturn 'Нажата клавиша ENTER
        Case Else: KeyCode = 0
    End Select
End Sub
 
Private Sub ПолеСоСписком1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.ПолеСоСписком1.Dropdown
End Sub
 
Private Sub ПолеСоСписком1_Change() 'Опционально - для красоты ...
    Me.ПолеСоСписком1.SelLength = 0
    Me.ПолеСоСписком1.SelStart = 0
End Sub


Получаем:
- Редакция если не невозможна, то сильно затруднена (у меня не получилось)
- По клику мышкой - происходит разворот списка ...

Назад ToTop
L.E. 06.05.2023
Рейтинг@Mail.ru