MS Access | Навигация по форме стрелками с клавиатуры

Есть обычная навигация (Tab с клавиатуры), принятая в формах MS Access по умолчанию.

Есть навигация, принятая в MS Excel (стрелками с клавиатуры), которая может быть удобна и применима и в Access формах:

 

1. На событие формы KeyDown:

 


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

On Error GoTo KeyDownERR

Select Case KeyCode

Case vbKeyUp 'Нажата клавиша вверх

   DoCmd.GoToRecord , , acPrevious

Case vbKeyDown 'Нажата клавиша вниз

   DoCmd.GoToRecord , , acNext

End Select

Exit Sub

KeyDownERR:

KeyCode = 0

End Sub


 

2. В свойствах формы Key Preview (Перехват нажатия клавиш) указать Yes:

 

 



© 2019 | Анна Петросян | pashelp@yandex.ru