Botón derecho mouse |
Responder |
Autor | |
gabores
Habitual Unido: 06/Agosto/2007 Localización: Bolivia Estado: Sin conexión Puntos: 123 |
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. |
|
jilo
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: 19/Diciembre/2004 Localización: TAFALLA Estado: Sin conexión Puntos: 959 |
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 |
|
gabores
Habitual Unido: 06/Agosto/2007 Localización: Bolivia Estado: Sin conexión Puntos: 123 |
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. |
|
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: 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. |
|
gabores
Habitual Unido: 06/Agosto/2007 Localización: Bolivia Estado: Sin conexión Puntos: 123 |
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.
|
|
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 |