Work with Keys in vba

[dmarop]

Hello,

I have the following code in a form to checked the keys. I want to have and another choice in the case in combination with keys, for example ctrl+q.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
    Case vbKeyDown
        KeyCode = 0
        DoCmd.GoToRecord , , acNext
    Case vbKeyUp
        KeyCode = 0
        DoCmd.GoToRecord , , acPrevious
    Case vbKeyHome
        DoCmd.GoToRecord , , acFirst
    Case vbKeyEnd
        DoCmd.GoToRecord , , acLast
    End Select

End Sub

Can you help me?

Thank you!

Dimitris

 

[spikepl]

So which exact part of the documentation is not clear to you?

 

[burrina]

Your request was kind of vague, could you be more specific?

Here is a Macro Example:
HTH

 

[JHB]

Add the below to your code:

If (Shift And acCtrlMask) And KeyCode = 81 Then
  MsgBox "You pressed the <CTRL>+q"
End If

 

[dmarop]

Hello,

Thank you all for your help. The problem is been solved!!


Regards,
Dimitris