Access - accion al presionar tecla

   
Vista:
Imágen de perfil de Alejandro

accion al presionar tecla

Publicado por Alejandro alejandrochel87@hotmail.com (98 intervenciones) el 30/03/2014 18:46:37
Hola me gustaría que me dijeran de qué manera puedo hacer que al presionar una tecla ejemplo tecla F7 me presione unos de los botones que tengo agregado en mi formulario. Sería como bien asignarle una tecla a un botón
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

accion al presionar tecla

Publicado por Neckkito (1104 intervenciones) el 01/04/2014 23:26:51
Hola!

Entiendo que lo que quieres es que al pulsar F7 se te ejecute el código que tienes asignado a ese botón. En base a esto será mi respuesta.

Supongamos que el botón se llama cmdElegido (propiedades -> Pestaña Otras -> Nombre), y que tiene su código asignado al evento "Al hacer clic".

Lo que tienes que hacer es:

- Saca las propiedades del formulario -> Pestaña Eventos -> Tecla de vista previa: Sí

- También en las propiedades del formulario -> Pestaña Eventos -> Al bajar una tecla, y le generas este código:

...
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF7 Then
Call cmdElegido_Click
KeyCode = 0
End If
End Sub
...

Y listo.

Por si no lo sabes te comento que si en el botón marcas alguna letra en su nombre (de manera que parezca subrayada) puedes acceder a su acción a través de ALT+letra subrayada.

Por ejemplo, supongamos que tu botón muestra el texto: "Abrir Informe" (propiedades del botón -> Formato -> Título).
Pues imaginemos que quieres marcar la A. En esa propiedad título escribes:

&Abrir Informe

Y accedes a la acción del botón a través de ALT+A

Si lo que quieres es marcar la "m", pues escribirías:

Abrir Infor&me -> Alt+m

Saludos,

http://neckkito.siliconproject.com.ar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Alejandro

accion al presionar tecla

Publicado por Alejandro (98 intervenciones) el 02/04/2014 00:57:11
Neckkito gracias pero me esta esta dando el sguiente error al presionar F7... :: botonreimprimir es el nombre el boton

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Neckkito

accion al presionar tecla

Publicado por Neckkito (1104 intervenciones) el 02/04/2014 10:21:12
Hola!

Como te comentaba, el código lo que hace es llamar al procedimiento asignado al botón, con lo que la "sensación" es que se había pulsado ese botón.

Por lo que veo en la imagen, tu boton "botonreimprimir" no tiene ningún código asignado, y por ello haces una llamada a algo que no existe.

Por ejemplo, como el código del botón "Comando107" sí existe, si pruebas:

1
2
3
4
5
6
7
8
...
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF7 Then
Call Comando107_Click
KeyCode = 0
End If
End Sub
...

verás que te debería funcionar.

Si me dices que el botón "botonreimprimir" no va a tener código, o tiene macro, puedes probar el siguiente código:

1
2
3
4
5
6
7
8
9
...
Private Sub...
    If KeyCode = vbKeyF7 Then
        Me.botonreimprimir.SetFocus
        SendKeys "{ENTER}"
        KeyCode = 0
    End If
End Sub
...

Saludos,

Neckkito
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Alejandro

accion al presionar tecla

Publicado por Alejandro alejandrochel87@hotmail.com (98 intervenciones) el 02/04/2014 17:59:52
excelente hermano me funciono a la perfeccion muchisimas gracias

1
2
3
4
5
If KeyCode = vbKeyF7 Then
Me.botonreimprimir.SetFocus
SendKeys "{ENTER}"
KeyCode = 0
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar