Imprimir página | Cerrar ventana

Botón derecho mouse

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85375
Fecha de impresión: 20/Abril/2024 a las 06:20


Tema: Botón derecho mouse
Publicado por: gabores
Asunto: Botón derecho mouse
Fecha de publicación: 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.


Respuestas:
Publicado por: jilo
Fecha de publicación: 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

Publicado por: gabores
Fecha de publicación: 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.

Publicado por: javier.mil
Fecha de publicación: 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.


 



-------------
https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info




Publicado por: gabores
Fecha de publicación: 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.


Imprimir página | Cerrar ventana