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

Tema cerradoBotón derecho mouse

 Responder Responder
Autor
Mensaje
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 95
Enlace directo a este mensaje Tema: Botón derecho mouse
    Enviado: 26/Junio/2020 a las 17:58
Hola a todos

Los molesto para pedirles ayuda con el siguiente inconveniente.

Quisiera asignar al botón derecho del mouse en la vista previa de un informe la posibilidad de abrir un formulario.
Anduve investigando y llegue a realizar dos pasos que son los siguientes.

Primero : anular el menu contextual por defecto de la siguiente manera:
---------------------------------------------------------------------------------
CommandBars("Print Preview Popup").Enabled = False
---------------------------------------------------------------------------------
(este paso funcionó perfectamente)


Segundo: Asignar el evento al boton derecho de la siguiente manera:
------------------------------------------------------------------------------------------------------
Private Sub Detail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = acRightButton Then
        DoCmd.OpenForm "frm_seleccion_opciones", acNormal 
Forms!frm_seleccion_opciones!opciones.RowSourceType = "Value List" Forms!frm_seleccion_opciones!opciones.RowSource = "1;IMPRIMIR INFORME;2;ENVIAR"
    End If
End Sub
--------------------------------------------------------------------------------------------------------
Pero aqui es donde no logro que funcione... 
al hacer el click en el boton derecho solo me muestra la lupa y hace zoom en el informe pero no abre el formulario al que intento acceder.

Alguien podría decirme que estoy haciendo mal?

Desde ya muchas gracias.



Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 935
Enlace directo a este mensaje Enviado: 27/Junio/2020 a las 07:12
Hola
Has probado abrir el form en modo dialog...

DoCmd.OpenForm "frm_seleccion_opciones", acNormal ,,,AcDialog
Espero te sirva !!!!!!
Iñaki
Arriba
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 95
Enlace directo a este mensaje Enviado: 27/Junio/2020 a las 17:21
Hola.
Lamentablemente no parece haber sido la solución ya que al igual que antes no responde al comando. 
Al presionar el botón derecho solo aparece la lupa.
Muchas gracias por tu ayuda.

Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4558
Enlace directo a este mensaje Enviado: 28/Junio/2020 a las 12:07
Buenas,

Prueba de la siguiente manera

Ejecuta este codigo (una sola vez) estara disponible en toda tu aplicacion


Dim newItem As CommandBarControl

Rem Microsoft Office xx.x Object Library
Set newItem = CommandBars("Form View Popup").Controls.Add(Type:=1)

With newItem
        .BeginGroup = True
        .Caption = "Ir a Mi Formulario X"
        .FaceId = 0
        .OnAction = "macAbrirForm"
End With


Luego crea una Macro con el mismo nombre que has puesto "OnAction" en este caso seria  macAbrirForm
Al crear la macro indicas (dentro de la macro) que formulario quieres abrir y le especificas los detalles necesarios para hacerlo.


 

Arriba
gabores Ver desplegable
Habitual
Habitual
Avatar

Unido: 06/Agosto/2007
Localización: Bolivia
Estado: Sin conexión
Puntos: 95
Enlace directo a este mensaje Enviado: 28/Junio/2020 a las 16:54
Muchas gracias javier!
He realizado todo lo que me has dicho y solo tuve que agregar al evento del informe (Barra de menu contextuales) el nombre de la macro macAbrirForm y listo.
----------------------------------
Muchas gracias por tu ayuda!
----------------------------------
Consulta cerrada.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable