Question

我想将组合键盘快捷键（例如＆＃34; Alt + 1＆＃34;）添加到表单中的某些按钮，但我不确定如何去做。这就是我到目前为止所做的：

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

VBA Access 2010组合KeyDown事件

1 个答案: