** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Botón derecho
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBotón derecho

 Responder Responder
Autor
Mensaje
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 123
Enlace directo a este mensaje Tema: Botón derecho
    Enviado: 04/Octubre/2021 a las 23:28
Hola a todos

Quisiera consultarles si existe alguna posibilidad de abrir un formulario al hacer click al botón derecho del ratón ya que no he encontrado referencias mas que la creación de un menú contextual con un botón, que implica un paso intermedio que realmente sería innecesario. 
No he podido encontrar otra sugerencia buscando en diferentes sitios WEB y es por eso que recurro a uds por si acaso conocen si esto es posible de alguna otra manera u orientarme donde puedo buscar.

desde ya muchas gracias.

Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 05/Octubre/2021 a las 01:06
Hola,

Prueba manejando el evento MouseDown del formulario. Ahí puedes controlar el botón que se ha pulsado y poner el código que quieras.

Eso si, si no vas a utilizar los menús contextuales, deshabilítalos o se lanzará después de ejecutar tu código.

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 123
Enlace directo a este mensaje Enviado: 05/Octubre/2021 a las 04:10
Mucha gracias Xavi!!

Realmente desconocía que esto se podía realizar y funcionó perfectamente lo que me indicaste.
Busqué bibliografía del evento MouseDown y encontré como aplicarlo.
En mi caso no lo use para el formulario sino para determinados campos por lo que lo aplique en el evento MouseDown de cada uno de ellos

Por si le sirve a alguien mas dejo el código que apliqué...

Private Sub proveedor_id_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = acRightButton Then
            Docmd...... (aqui lo quiero realizar )
        End If
End Sub

Nuevamente MUY AGRADECIDO!

este hilo se puede cerrar.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable