Комбинация VBA Access 2010 События KeyDown

Question

Я хотел бы добавить комбинации клавишных клавиш (например, «Alt + 1») на определенные кнопки в форме, но я не уверен, как именно это делать. Это то, что я до сих пор:

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

Select Case KeyCode 

    Case (KeyCode = vbKey2) And (Shift And acAltMask > 0) 
     Form_sbfrmSalesOrder_LineItem.cmdNew_Click 

    'Other Cases.. 

End sub 

Имейте в виду, что это для Vba Access 2010.

Answer 1

Код для проверки ключей является правильным, но Select Case утверждение правильно не сформирован.

Вы код должен быть:

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

    Select Case KeyCode 
    Case vbKey2 
     If Shift And acAltMask > 0 Then 
      Form_sbfrmSalesOrder_LineItem.cmdNew_Click 
     End If 
    'Other Cases.. 
    Case vbKey3 
    .... 
    End sub