K
Kon
I wonder what's the mistake on that code to trap ALT+S or Alt+z and only the
Enter code works
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyS Then GoTo opened
If KeyCode = 13 Then GoTo opened
If Shift = 2 And KeyCode = vbKeyZ Then GoTo opened
End Sub
Enter code works
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyS Then GoTo opened
If KeyCode = 13 Then GoTo opened
If Shift = 2 And KeyCode = vbKeyZ Then GoTo opened
End Sub