Access - accion al presionar tecla

 
Vista:
Imágen de perfil de Alejandro
Val: 16
Ha disminuido su posición en 4 puestos en Access (en relación al último mes)
Gráfica de Access

accion al presionar tecla

Publicado por Alejandro (110 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
Val: 529
Plata
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

accion al presionar tecla

Publicado por Neckkito (1157 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
Val: 16
Ha disminuido su posición en 4 puestos en Access (en relación al último mes)
Gráfica de Access

accion al presionar tecla

Publicado por Alejandro (110 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
Val: 529
Plata
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

accion al presionar tecla

Publicado por Neckkito (1157 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
Val: 16
Ha disminuido su posición en 4 puestos en Access (en relación al último mes)
Gráfica de Access

accion al presionar tecla

Publicado por Alejandro (110 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