** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Activar bloque númerico con VBA para MS Access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoActivar bloque númerico con VBA para MS Access

 Responder Responder
Autor
Mensaje
Plinio Montano Ver desplegable
Habitual
Habitual
Avatar

Unido: 10/Marzo/2015
Localización: Cuba
Estado: Sin conexión
Puntos: 124
Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 22/Febrero/2020 a las 20:30
Usa este otro Senkeys:

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 23/Febrero/2020 a las 14:31
Prueba con

Interaction.SendKeys "{NUMLOCK}", True
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje 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

Arriba
Plinio Montano Ver desplegable
Habitual
Habitual
Avatar

Unido: 10/Marzo/2015
Localización: Cuba
Estado: Sin conexión
Puntos: 124
Enlace directo a este mensaje 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable