ENTER o ESC como keycode
Hola que tal,
Tengo el siguiente código:
Private Sub NOMBRE_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
Forms!SALIDA![referenciaventa subformulario2]!articulo = Forms!consulta!codigo
Case vbKeyF2
DoCmd.Close
End Select
End Sub
El cual me funciona bien pero es posible utilizar las teclas ENTER(intro) o ESC(escape) en vez
De FI y F2, gracias.
Tengo el siguiente código:
Private Sub NOMBRE_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
Forms!SALIDA![referenciaventa subformulario2]!articulo = Forms!consulta!codigo
Case vbKeyF2
DoCmd.Close
End Select
End Sub
El cual me funciona bien pero es posible utilizar las teclas ENTER(intro) o ESC(escape) en vez
De FI y F2, gracias.
Respuesta de Jose Mari Madinabeitia
1
Si, tienes que buscar el código de escape y enter y sustituirlos por el F1 y F2.
