¿Cómo controlar los botones con shortcut?

Hola a todos... Y Gracias por sus acertadas respuestas, quisiera saber como hago para manejar los botones con ek teclado en foma de shorcuts.. Por ejemplo para un botón nuevo aue se pueda utilizar la combinación de teclas: ¿CTRL+N?
Gracias espero puedan ayudarme...
Y como siempre es urgente

1 respuesta

Respuesta
1
Si, pero no es fácil. Access proporciona una funcionalidad para ello, que es una macro que tienes que crear y guardar con el nombre AutoKeys para que la reconozca, y que permite realizar acciones ante determinadas pulsaciones de teclas. El problema es que para hacer lo que dices, igual que para muchas de las cosas que se me ocurren, hace falta un poco de código en vba.
Vamos a tu ejemplo. Lo primero es que con Ctrl+N no me funciona, posiblemente porque sea una tecla que ya define access. Lo he hecho con Ctrl+R (que no tiene nada que ver, pero bueno).
Primero la macro. Creas una nueva, activas "ver/Nombres de macro", en la columna "Nombre de macro" le pones
^R
Para indicar la tecla a utilizar, y en la Acción le pones
EjecutarCódigo
Y en la parte de abajo (Nombre de función) le pones
keyCtrlN()
Que es como vamos a llamar al pedazo de código que hace el trabajo. Guarda la macro con el nombre que te he dicho (AutoKeys). Cambia a la pestaña de módulos y dile que uno nuevo, y le pegas lo siguiente
Function keyCtrlN()
Dim frm As Form
On Error Resume Next
Set frm = Screen.ActiveForm
On Error GoTo 0
If Not frm Is Nothing Then
If frm.CurrentView = 0 Then
CreateControl frm.Name, acCommandButton
End If
End If
End Function
Lo primero que hace es comprobar que el objeto activo es un formulario (a base de intentar asignarlo, y si no puede se queda con el valor Nothing), luego se comprueba que esté en vista diseño (=0) y si es así, se crea el control.
Fin de la historia. Guarda el módulo con cualquier nombre, abre un formulario en vista diseño y pulsa Ctrl+R. Debe darte el famoso botón vacío.
Como ves, como poder, se puede hacer, pero que sea fácil ya es otro tema...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas