Activar bloque númerico con VBA para MS Access |
Responder |
Autor | |
Plinio Montano
Habitual Unido: 10/Marzo/2015 Localización: Cuba Estado: Sin conexión Puntos: 124 |
Tema: Activar bloque númerico con VBA para MS Access Enviado: 22/Febrero/2020 a las 20:21 |
Saludos colegas
Necesito encender el bloque númerico y bloquearlo para que no se apague hasta que cierre la aplicación. ¿ Como podría hacerlo? Sucede que cada vez que utilizo el Sendkeys se apaga. |
|
pmv
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 22/Febrero/2020 a las 20:30 |
Usa este otro Senkeys:
|
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
Enviado: 23/Febrero/2020 a las 14:31 |
Prueba con Interaction.SendKeys "{NUMLOCK}", True
|
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
Enviado: 23/Febrero/2020 a las 14:37 |
Supongo que ya sabes que la instrucción SenkKey es peligrosa .......... No siempre apunta donde tu quieres.... Ponlo en un Modulo Standard Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Public Function funNumLock() As Boolean funNumLock = CBool(GetKeyState(144)) If funNumLock = True Then MsgBox ("Num Lock esta ON"), vbInformation, "Num Lock ON" Else MsgBox ("Num Lock esta OFF"), vbExclamation, "Num Lock OFF" Interaction.SendKeys "{NUMLOCK}", True MsgBox ("Ha cambiado ahora Num Lock esta ON"), vbInformation, "Num Lock ON" End If End Function Para llamar a la función desde cualquier sitio Call funNumLock |
|
Plinio Montano
Habitual Unido: 10/Marzo/2015 Localización: Cuba Estado: Sin conexión Puntos: 124 |
Enviado: 23/Febrero/2020 a las 21:53 |
Muchas gracias a todos por su colaboración.
Por favor si es posible me gustaría cerrar este hilo. Saludos cordiales. |
|
pmv
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |